User cache %CSP.Page,cspBasis.GAProdTBox 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write !,$c(9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"
",! Write $c(9,9,9,9) Do ..Include("Header.csp") Write !,$c(9,9,9)_"
" Write "" Write "
",! Write ! If '($G(blnNoAccess)) Goto %csp00001 ;{ Write !,$c(9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"
",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9,9,9)_" "_(..WebTextValue("MainBadCode",Taal,"O")),! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"
",! Goto %csp00002 ;} %csp00001 ;{ Write !,$c(9) Write "
" Write !,..InsertHiddenFields("BuildRef.csp"),! Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"
   " Write "" Write (..WebTextValue("Taal",Taal,"L"))_": " Write "" Write ""_(arSwitchTL("N")_" - "_arSwitchTL("F")_" - "_arSwitchTL("E")_" - "_arSwitchTL("D"))_"
" Write "" Write "Analyse QueryString:" Write "" Write "
QueryString: " Write "" Write "
REF: " Write "" Write "
DATAOPT: " Write "" Write "
 " Write "" Write "
",! Write $c(9) Write "
" Write !,$c(9) Write "
" Write !,..InsertHiddenFields("BuildRef.csp"),! Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! #define txtFillV(%v1,%v2) "%v1  " Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_" " Write "" Write !,$c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! #define txtFillM(%v1,%v2) "%v1  " Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9) Write "" Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"
" Write "" Write "Decrypted values:" Write "" Write "   
KLNr: " Write "" Write "REF: " Write "" Write "
VERW: " Write "" Write "  " Write "" Write ($$$txtFillV(v,VHEPN)_""_$$$txtFillV(o,LMC)_$$$txtFillV(h,HEIN)_$$$txtFillV(d,HELMY)_$$$txtFillV(hf,HFLE)_$$$txtFillV(s,SFS)_$$$txtFillV(mh,MBHO)) Write "" Write "DATAOPT: " Write "" Write "
wsID: " Write "" Write "
Mode: " Write "" Write "  " Write "" Write ($$$txtFillM(s,START)_$$$txtFillM(c,COMPLETE)_$$$txtFillM(p,PROCESS)_$$$txtFillM(v,VIEW)) Write "" Write "
 
" Write "" Write "Create a URL:" Write "" Write "
Page:" Write "" Write " "_($S($G(Page)["/":"[..."_$P(Page,"/",$L(Page,"/"))_"]",1:""))_"Taal: " Write "" Write "
 " Write "" Write "
",! Write $c(9) Write "
" Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"
" Write "" Write "Encrypted URL:" Write "" Write "   
URL: ",! Write $c(9,9,9,9) Write "" Write " ",! Write $c(9,9,9,9) Write "" Write !,$c(9,9,9)_"
REF: ",! Write $c(9,9,9,9) Write "" Write "
",! Write $c(9,9,9,9)_"  Check: " Write "" Write ($G(RefCheck)) Write "" Write !,$c(9,9,9)_"
DATAOPT: ",! Write $c(9,9,9,9) Write "" Write "
",! Write $c(9,9,9,9)_"  Check: " Write "" Write ($G(DataOptCheck)) Write "" Write !,$c(9,9,9)_"
 
" Write "" Write "
",! Write $c(9)_"
"_$c(9,9,9),! %csp00002 ;} Write $c(9,9,9,9),! Write $c(9,9,9)_"
",! Write $c(9,9,9,9) Write !,"
",! Write " ",! Write "
",! Write !,"" Write !,$c(9,9,9)_"
",! Write !,$c(9) Set %response.TraceDump=($G(%request.Data("DBG",1))'="" && $G(%request.Data("DBG",1))'="0") Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"RefBuilder",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,!,$c(9) Write "" Write !,(..HyperEventHead()) Write !,"" ]]> 1 code %Boolean " Write !,!,! Do ..Include("PRGACNTs.INC") Write !,!,!,! Set %session.AppTimeout = 905 // Session Data is set in the OnPreHTTP-method Set WSOrd=$S($G(wsID)="":0, 1:##class(WS.TBX.Order).%OpenId(wsID)) Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code cache %Boolean c:\cachesys\csp\vhisie\TBX\BuildRef.csp /vhisie/TBX/BuildRef.csp 0 62018,35096 0