From 9c9ddda93af314e65a08beb218cb79a5566c265d Mon Sep 17 00:00:00 2001 From: george Date: Sat, 5 Jul 2008 16:34:56 +0000 Subject: [PATCH] More formatting changes --- p/GPLCCR.m | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/p/GPLCCR.m b/p/GPLCCR.m index c06b74e..6cd42a0 100644 --- a/p/GPLCCR.m +++ b/p/GPLCCR.m @@ -6,7 +6,7 @@ GPLCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08 EXPORT ; EXPORT ENTRY POINT FOR CCR ; Select a patient. 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 N CCRGLO 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 TGLOBAL=$NA(^TMP($J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE 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 S CCRGRTN=$NA(^TMP($J,DFN,CCRPART)) ; RTN GLO NM OF PART OR ALL D LOAD^GPLCCR0(TGLOBAL) ; LOAD THE CCR TEMPLATE @@ -128,15 +128,11 @@ ZTEST(WHICH) ; RUN ONE SET OF TESTS Q ; TLIST ; LIST THE TESTS - N ZTMP,GNEW + N ZTMP D ZLOAD^GPLUNIT("ZTMP","GPLCCR") D TLIST^GPLUNIT(.ZTMP) Q - ; LAST LINE BEFORE TESTS -NEW ; new debugging routine - W "this is new",! - Q - ; end of NEW + ; ;;> ;;> ;;>>>K GPL S GPL=""