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

More formatting changes

This commit is contained in:
george 2008-07-05 16:34:56 +00:00
parent 8abe8a52e1
commit 9c9ddda93a
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
p/GPLCCR.m
View File

@ -6,7 +6,7 @@ GPLCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
EXPORT ; EXPORT ENTRY POINT FOR CCR EXPORT ; EXPORT ENTRY POINT FOR CCR
; Select a patient. ; 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
N CCRGLO N CCRGLO
D CCRRPC(.CCRGLO,DFN,"CCR","","","") D CCRRPC(.CCRGLO,DFN,"CCR","","","")
@ -31,7 +31,7 @@ CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY) ;RPC ENTRY POINT FOR CCR OUTPUT
S DEBUG=0 S DEBUG=0
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 S ACTGLO=$NA(^TMP($J,DFN,"ACTORS")) ; GLOBAL FOR ALL ACTORS
; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC ; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC
S CCRGRTN=$NA(^TMP($J,DFN,CCRPART)) ; RTN GLO NM OF PART OR ALL S CCRGRTN=$NA(^TMP($J,DFN,CCRPART)) ; RTN GLO NM OF PART OR ALL
D LOAD^GPLCCR0(TGLOBAL) ; LOAD THE CCR TEMPLATE D LOAD^GPLCCR0(TGLOBAL) ; LOAD THE CCR TEMPLATE
@ -128,15 +128,11 @@ ZTEST(WHICH) ; RUN ONE SET OF TESTS
Q Q
; ;
TLIST ; LIST THE TESTS TLIST ; LIST THE TESTS
N ZTMP,GNEW N ZTMP
D ZLOAD^GPLUNIT("ZTMP","GPLCCR") D ZLOAD^GPLUNIT("ZTMP","GPLCCR")
D TLIST^GPLUNIT(.ZTMP) D TLIST^GPLUNIT(.ZTMP)
Q Q
; LAST LINE BEFORE TESTS ;
NEW ; new debugging routine
W "this is new",!
Q
; end of NEW
;;><TEST> ;;><TEST>
;;><PROBLEMS> ;;><PROBLEMS>
;;>>>K GPL S GPL="" ;;>>>K GPL S GPL=""