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

updates for parms

This commit is contained in:
george 2009-01-30 18:33:38 +00:00
parent 7d4b190641
commit ae7d52928f
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/GPLCCR.m
View File

@ -72,7 +72,7 @@ CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART) ;RPC ENTRY POINT FOR CCR OUTPUT
; SEE C0CPARMS FOR A COMPLETE LIST OF SUPPORTED PARAMETERS
I '$D(DEBUG) S DEBUG=0
S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
D SET^C0CPARMS(XPARMS) ;SET PARAMETERS WITH XPARMS AS OVERRIDES
D SET^C0CPARMS(CCRPARMS) ;SET PARAMETERS WITH CCRPARMS AS OVERRIDES
I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
I '$D(TESTALERT) S TESTALERT=1 ; FLAG FOR TESTING ALERTS SECTION
I '$D(TESTMEDS) S TESTMEDS=0 ; FLAG FOR TESTING CCRMEDS SECTION

7
p/GPLRIMA.m
View File

@ -35,10 +35,12 @@ GPLRIMA ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
; CONVEYANCE TO THE RIM APPLICATION.
;
;
ANALYZE(BEGDFN,DFNCNT) ; RIM COHERANCE ANALYSIS ROUTINE
ANALYZE(BEGDFN,DFNCNT,APARMS) ; RIM COHERANCE ANALYSIS ROUTINE
; BEGINS AT BEGDFN AND GOES FOR DFNCNT PATIENTS
; TO RESUME AT NEXT PATIENT, USE BEGDFN=""
; USE RESET^GPLRIMA TO RESET TO TOP OF PATIENT LIST
; APARMS ARE PARAMETERS TO BE USED IN THE EXTRACTION
; SEE C0CPARMS FOR SUPPORTED PARAMTERS
;
N RIMARY,RIMTMP,RIMI,RIMDFN,RATTR
N CCRGLO
@ -50,9 +52,10 @@ ANALYZE(BEGDFN,DFNCNT) ; RIM COHERANCE ANALYSIS ROUTINE
I RIMDFN="" S RIMDFN=RESUME
I +RIMDFN=0 D Q ; AT THE END OF THE PATIENTS
. W "END OF PATIENT LIST, CALL RESET^GPLRIMA",!
I '$D(APARMS) S APARMS="" ; DEFAULT NO OVERRIDE PARMS
F RIMI=1:1:DFNCNT D Q:+RIMDFN=0 ; FOR DFNCNT NUMBER OF PATIENTS OR END
. K @RIMBASE@("VARS",RIMDFN) ; CLEAR OUT OLD VARS
. D CCRRPC^GPLCCR(.CCRGLO,RIMDFN,"CCR","","","") ;PROCESS THE CCR
. D CCRRPC^GPLCCR(.CCRGLO,RIMDFN,APARMS,"CCR") ;PROCESS THE CCR
. W RIMDFN,!
. ;
. ; COPY ALL THE VARIABLES TO THE RIM MAP AREA INDEXED BY PATIENT