VistA-ccr/p/C0CEVC.m

C0CEVC	  ; CCDCCR/GPL - SUPPORT FOR EWD VISTCOM PAGES ; 3/1/2010
	;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
	;
	; (C) Geroge Lilly 2010.
	;
	; This program is free software: you can redistribute it and/or modify
	; it under the terms of the GNU Affero General Public License as
	; published by the Free Software Foundation, either version 3 of the
	; License, or (at your option) any later version.
	;
	; This program is distributed in the hope that it will be useful,
	; but WITHOUT ANY WARRANTY; without even the implied warranty of
	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	; GNU Affero General Public License for more details.
	;
	; You should have received a copy of the GNU Affero General Public License
	; along with this program.  If not, see <http://www.gnu.org/licenses/>.
	;
gpltest2	; experiment with sending a CCR to an ewd page
	N ZI
	S ZI=""
	D PSEUDO
	N ZIO
	S ZIO=IO
	S IO="/dev/null"
	OPEN IO
	U IO
	N G
	S G=$$URLTOKEN^C0CEWD
	D CCRRPC^C0CCCR(.GPL,2)
	S IO=ZIO
	OPEN IO
	U IO
	K GPL(0)
	F  S ZI=$O(GPL(ZI)) Q:ZI=""  W GPL(ZI),!
	Q
	;
gpltest	; experiment with sending a CCR to an ewd page
	N ZI
	S ZI=""
	K ^GPL(0)
	S ^GPL(2)="<?xml-stylesheet type=""text/xsl"" href=""/resources/ccr.xsl""?>"
	F  S ZI=$O(^GPL(ZI)) Q:ZI=""  W ^GPL(ZI),!
	Q
	;
TEST(sessid);	
	d setSessionValue^%zewdAPI("person.Name","Rob",sessid)
	d setSessionValue^%zewdAPI("person.DateOfBirth","13/06/55",sessid)
	d setSessionValue^%zewdAPI("person.Address.PostCode","SW1 3QA",sessid)
	d setSessionValue^%zewdAPI("person.Address.Line1","1 The Street",sessid)
	d setSessionValue^%zewdAPI("person.Address.2.hello","world",sessid)
	d setJSONValue^%zewdAPI("json","person",sessid)
	Q ""
	
PARSE(INXML,INDOC)	;CALL THE EWD PARSER ON INXML, PASSED BY NAME
	; INDOC IS PASSED AS THE DOCUMENT NAME TO EWD
	; EXTRINSIC WHICH RETURNS THE DOCID ASSIGNED BY EWD
	N ZR
	M ^CacheTempEWD($j)=@INXML ;
	S ZR=$$parseDocument^%zewdHTMLParser(INDOC)
	Q ZR
	;
TEST2(sessid)	; try to put a ccr in the session
	S U="^"
	D PSEUDO ; FAKE LOGIN
	S ZIO=$IO
	S DEV="/dev/null"
	O DEV U DEV
	N G
	N ZDFN
	S ZDFN=$$getSessionValue^%zewdAPI("vista.dfn",sessid)
	I ZDFN="" S ZDFN=2
	;K ^TMP("GPL")
	;M ^TMP("GPL")=^%zewdSession("session",sessid)
	D CCRRPC^C0CCCR(.GPL,ZDFN)
	K GPL(0)   
	S GPL(2)="<?xml-stylesheet type=""text/xsl"" href=""/resources/ccr.xsl""?>"
	C DEV U ZIO
	;M ^CacheTempEWD($j)=GPL
	S DOCNAME="CCR"
	;ZWR GPL 
	;S ZR=$$parseDocument^%zewdHTMLParser(DOCNAME)
	;d setSessionValues^%zewdAPI(DOCNAME,GPL,sessid)
	d mergeArrayToSession^%zewdAPI(.GPL,DOCNAME,sessid)
	Q ""
	;
INITSES(sessid)	;initialize an EWD/CPRS session
	K ^TMP("GPL")
	;M ^TMP("GPL")=^%zewdSession("session",sessid)
	N ZT,ZDFN
	S ZT=$$URLTOKEN^C0CEWD(sessid)
	;S ^TMP("GPL")=ZT
	d trace^%zewdAPI("*********************ZT="_ZT)
	S ZDFN=$$PRSEORTK(ZT) ; PARSE THE TOKEN AND LOOK UP THE DFN
	S ^TMP("GPL","DFN")=ZDFN
	I ZDFN=0 S DFN=2 ; DEFAULT TEST PATIENT
	D setSessionValue^%zewdAPI("vista.dfn",ZDFN,sessid)
	;M ^TMP("GPL","request")=requestArray
	;D PSEUDO
	;D ^%ZTER
	q ""
	;
PRSEORTK(ZTOKEN)	;PARSES THE TOKEN SENT BY CPRS AND RETURNS THE DFN 
	; OF THE PATIENT ; HERE'S WHAT THE TOKEN LOOKS LIKE: 
	; ^TMP('ORWCHART',6547,'192.168.169.8',002E0FE6)
	N ZX,ZN1,ZIP,ZN2,ZDFN,ZG
	S ZDFN=0 ; DEFAULT RETURN
	S ZN1=$P(ZTOKEN,",",2) ; FIRST NUMBER
	S ZIP=$P(ZTOKEN,",",3) ; IP NUMBER
	S ZIP=$P(ZIP,"'",2) ; GET RID OF '
	S ZN2=$P(ZTOKEN,",",4) ; SECOND NUMBER
	S ZN2=$P(ZN2,")",1) ; GET RID OF )
	S ZG=$NA(^TMP("ORWCHART",ZN1,ZIP,ZN2)) ; BUILD THE GLOBAL NAME
	I $G(@ZG)'="" S ZDFN=@ZG ; ACCESS THE GLOBAL
	S ^TMP("GPL","FIRSTDFN")=ZDFN
	S ^TMP("GPL","FIRSTGLB")=ZG
	Q ZDFN
	;
GETPATIENTLIST(sessid)	;
	D PSEUDO
	D LISTALL^ORWPT(.RTN,"NAME","1")
	N ZI
	S ZI=""
	F  S ZI=$O(RTN(ZI)) Q:ZI=""  D  ;
	. S data(ZI,"DFN")=$P(RTN(ZI),"^",1)
	. S data(ZI,"Name")=$P(RTN(ZI),"^",2)
	; ZWR data
	;S data(1,"DFN")=$P(RTN(1),"^",1)
	;S data(1,"Name")=$P(RTN(1),"^",2)
	d deleteFromSession^%zewdAPI("patients",sessid)
	d createDataTableStore^%zewdYUIRuntime(.data,"patients",sessid)
	;d mergeArrayToSession^%zewdAPI(.data,"patients",sessid)
	Q ""
	;
PSEUDO	
	S U="^"
	S DILOCKTM=3
	S DISYS=19
	S DT=3100219
	S DTIME=999
	S DUZ=10
	S DUZ(0)="@"
	S DUZ(1)=""
	S DUZ(2)=1
	S DUZ("AG")="V"
	S DUZ("BUF")=1
	S DUZ("LANG")=""
	;S IO="/dev/pts/2"
	;S IO(0)="/dev/pts/2"
	;S IO(1,"/dev/pts/2")=""
	;S IO("ERROR")=""
	;S IO("HOME")="41^/dev/pts/2"
	;S IO("ZIO")="/dev/pts/2"
	;S IOBS="$C(8)"
	;S IOF="#,$C(27,91,50,74,27,91,72)"
	;S SIOM=80
	Q
	;
PSEUDO2	; FAKE LOGIN SETS SOME LOCAL VARIABLE TO FOOL FILEMAN
	S DILOCKTM=3
	S DISYS=19
	S DT=3100112
	S DTIME=9999
	S DUZ=10000000020
	S DUZ(0)="@"
	S DUZ(1)=""
	S DUZ(2)=67
	S DUZ("AG")="E"
	S DUZ("BUF")=1
	S DUZ("LANG")=1
	S IO="/dev/pts/0"
	;S IO(0)="/dev/pts/0"
	;S IO(1,"/dev/pts/0")=""
	;S IO("ERROR")=""
	;S IO("HOME")="50^/dev/pts/0"
	;S IO("ZIO")="/dev/pts/0"
	;S IOBS="$C(8)"
	;S IOF="!!!!!!!!!!!!!!!!!!!!!!!!,#,$C(27,91,50,74,27,91,72)"
	;S IOM=80
	;S ION="GTM/UNIX TELNET"
	;S IOS=50
	;S IOSL=24
	;S IOST="C-VT100"
	;S IOST(0)=9
	;S IOT="VTRM"
	;S IOXY="W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)"
	S U="^"
	S X="1;DIC(4.2,"
	S XPARSYS="1;DIC(4.2,"
	S XQXFLG="^^XUP"
	S Y="DEV^VISTA^hollywood^VISTA:hollywood"
	Q
	;