- 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 Feb 18, 2025@23:18:09 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