EDPCSV ;SLC/MKB - CSV format utilities ;2/28/12 08:33am
;;2.0;EMERGENCY DEPARTMENT;**6**;Feb 24, 2012;Build 200
;
EN(REQ) ; Controller for HTTP request
;
;S:'$G(EDPTEST) $ETRAP="D ^%ZTER H"
;
N EDPSITE,EDPHTTP,EDPNULL,EDPFAIL,EDPCSV,I
D UESREQ^EDPX(.REQ) ; unescape the posted data
;
;D SET^EDPZCTRL ; set up the environment, use null device
;
D EN^EDPRPT($$VAL("start"),$$VAL("stop"),$$VAL("report"),$$VAL("id"),1)
;
U EDPHTTP
;W "<results>",!
S I=0 F S I=$O(EDPCSV(I)) Q:'I W EDPCSV(I),!
;W "</results>",!
Q
;
VAL(X) ; return value from request
Q $G(REQ(X,1))
;
ADD(X) ; -- add line X
S EDPCSV=+$G(EDPCSV)+1,EDPCSV(EDPCSV)=X
Q
ADDG(X,EDPCSV,EDPXML) ; -- add line x
S EDPCSV=+$G(EDPCSV)+1,@EDPXML@(EDPCSV)=$$ESC^EDPX(X)
;S @EDPXML@(EDPCSV)=X
Q
;
BLANK ; -- add blank line
S EDPCSV=+$G(EDPCSV)+1,EDPCSV(EDPCSV)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEDPCSV 886 printed Jan 18, 2025@02:52:59 Page 2
EDPCSV ;SLC/MKB - CSV format utilities ;2/28/12 08:33am
+1 ;;2.0;EMERGENCY DEPARTMENT;**6**;Feb 24, 2012;Build 200
+2 ;
EN(REQ) ; Controller for HTTP request
+1 ;
+2 ;S:'$G(EDPTEST) $ETRAP="D ^%ZTER H"
+3 ;
+4 NEW EDPSITE,EDPHTTP,EDPNULL,EDPFAIL,EDPCSV,I
+5 ; unescape the posted data
DO UESREQ^EDPX(.REQ)
+6 ;
+7 ;D SET^EDPZCTRL ; set up the environment, use null device
+8 ;
+9 DO EN^EDPRPT($$VAL("start"),$$VAL("stop"),$$VAL("report"),$$VAL("id"),1)
+10 ;
+11 USE EDPHTTP
+12 ;W "<results>",!
+13 SET I=0
FOR
SET I=$ORDER(EDPCSV(I))
if 'I
QUIT
WRITE EDPCSV(I),!
+14 ;W "</results>",!
+15 QUIT
+16 ;
VAL(X) ; return value from request
+1 QUIT $GET(REQ(X,1))
+2 ;
ADD(X) ; -- add line X
+1 SET EDPCSV=+$GET(EDPCSV)+1
SET EDPCSV(EDPCSV)=X
+2 QUIT
ADDG(X,EDPCSV,EDPXML) ; -- add line x
+1 SET EDPCSV=+$GET(EDPCSV)+1
SET @EDPXML@(EDPCSV)=$$ESC^EDPX(X)
+2 ;S @EDPXML@(EDPCSV)=X
+3 QUIT
+4 ;
BLANK ; -- add blank line
+1 SET EDPCSV=+$GET(EDPCSV)+1
SET EDPCSV(EDPCSV)=""
+2 QUIT
