Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EDPCSV

EDPCSV.m

Go to the documentation of this file.
  1. EDPCSV ;SLC/MKB - CSV format utilities ;2/28/12 08:33am
  1. ;;2.0;EMERGENCY DEPARTMENT;**6**;Feb 24, 2012;Build 200
  1. ;
  1. EN(REQ) ; Controller for HTTP request
  1. ;
  1. ;S:'$G(EDPTEST) $ETRAP="D ^%ZTER H"
  1. ;
  1. N EDPSITE,EDPHTTP,EDPNULL,EDPFAIL,EDPCSV,I
  1. D UESREQ^EDPX(.REQ) ; unescape the posted data
  1. ;
  1. ;D SET^EDPZCTRL ; set up the environment, use null device
  1. ;
  1. D EN^EDPRPT($$VAL("start"),$$VAL("stop"),$$VAL("report"),$$VAL("id"),1)
  1. ;
  1. U EDPHTTP
  1. ;W "<results>",!
  1. S I=0 F S I=$O(EDPCSV(I)) Q:'I W EDPCSV(I),!
  1. ;W "</results>",!
  1. Q
  1. ;
  1. VAL(X) ; return value from request
  1. Q $G(REQ(X,1))
  1. ;
  1. ADD(X) ; -- add line X
  1. S EDPCSV=+$G(EDPCSV)+1,EDPCSV(EDPCSV)=X
  1. Q
  1. ADDG(X,EDPCSV,EDPXML) ; -- add line x
  1. S EDPCSV=+$G(EDPCSV)+1,@EDPXML@(EDPCSV)=$$ESC^EDPX(X)
  1. ;S @EDPXML@(EDPCSV)=X
  1. Q
  1. ;
  1. BLANK ; -- add blank line
  1. S EDPCSV=+$G(EDPCSV)+1,EDPCSV(EDPCSV)=""
  1. Q