EDPCSV.m

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 ---EDPCSV   886     printed  Apr 09, 2024@20:57:25                                                                                                                                                                                                       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