iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added comments for actor routines

This commit is contained in:
george 2008-07-01 23:01:27 +00:00
parent 8e3cfacdb1
commit 63f6f96c1c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
p/GPLCCR.m
View File

@ -4,7 +4,7 @@ GPLCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
; EXPORT A CCR ; EXPORT A CCR
; ;
EXPORT ; EXPORT ENTRY POINT FOR CCR EXPORT ; EXPORT ENTRY POINT FOR CCR
; Select a patient for real. ; Select a patient.
S DIC=2,DIC(0)="AEMQ" D ^DIC S DIC=2,DIC(0)="AEMQ" D ^DIC
I Y<1 Q ; EXIT I Y<1 Q ; EXIT
S DFN=$P(Y,U,1) ; SET THE PATIENT S DFN=$P(Y,U,1) ; SET THE PATIENT
@ -25,7 +25,7 @@ CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY) ; RPC ENTRY POINT FOR CCR OUTPUT
; TIME2 IS ENDING TIME TO INCLUDE TIME IS FILEMAN TIME - NULL MEANS NOW ; TIME2 IS ENDING TIME TO INCLUDE TIME IS FILEMAN TIME - NULL MEANS NOW
; HDRARY IS THE HEADER ARRAY DEFINING THE "FROM" AND "TO" VARIABLES ; HDRARY IS THE HEADER ARRAY DEFINING THE "FROM" AND "TO" VARIABLES
; IF NULL WILL DEFAULT TO "FROM" DUZ AND "TO" DFN ; IF NULL WILL DEFAULT TO "FROM" DUZ AND "TO" DFN
S DEBUG=0 S DEBUG=1
S TGLOBAL=$NA(^TMP($J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE S TGLOBAL=$NA(^TMP($J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE
S CCRGLO=$NA(^TMP($J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR S CCRGLO=$NA(^TMP($J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR
S ACTGLO=$NA(^TMP($J,DFN,"ACTORS")); GLOBAL FOR ALL ACTORS IN CCR S ACTGLO=$NA(^TMP($J,DFN,"ACTORS")); GLOBAL FOR ALL ACTORS IN CCR
@ -61,7 +61,7 @@ CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY) ; RPC ENTRY POINT FOR CCR OUTPUT
. ; NOW INSERT THE RESULTS IN THE CCR BUFFER . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
. D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body") . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
. I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),! . I DEBUG F GPLI=1:1:@OXML@(0) W @OXML@(GPLI),!
. D ACTLST^GPLCCR(CCRGLO,ACTGLO) . D ACTLST^GPLCCR(CCRGLO,ACTGLO) ; GEN THE ACTOR LIST
Q Q
; ;
INITSTPS(TAB) ; INITIALIZE CCR PROCESSING STEPS INITSTPS(TAB) ; INITIALIZE CCR PROCESSING STEPS
@ -131,14 +131,14 @@ TLIST ; LIST THE TESTS
;;><TEST> ;;><TEST>
;;><PROBLEMS> ;;><PROBLEMS>
;;>>>K GPL S GPL="" ;;>>>K GPL S GPL=""
;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS") ;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS","","","")
;;>>?@GPL@(@GPL@(0))="</Problems>" ;;>>?@GPL@(@GPL@(0))="</Problems>"
;;><CCR> ;;><CCR>
;;>>>K GPL S GPL="" ;;>>>K GPL S GPL=""
;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR") ;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
;;>>?@GPL@(@GPL@(0))="</ContinutiyOfCareRecord>" ;;>>?@GPL@(@GPL@(0))="</ContinutiyOfCareRecord>"
;;><ACTLST> ;;><ACTLST>
;;>>>N TCCR ;;>>>N TCCR
;;>>>D CCRRPC^GPLCCR(.TCCR,"2","CCR") ;;>>>D CCRRPC^GPLCCR(.TCCR,"2","CCR","","","")
;;>>>D ACTLST^GPLCCR("TCCR","ACTTEST") ;;>>>D ACTLST^GPLCCR("TCCR","ACTTEST")
;;></TEST> ;;></TEST>