Changeset 148

Timestamp:

Sep 10, 2008, 1:55:16 PM (16 years ago)

Author:

George Lilly

Message:

enhancements to check for test patients

Location:

ccr/trunk/p

Files:

• CCRSYS.m (modified) (1 diff)
• GPLRIMA.m (modified) (2 diffs)

ccr/trunk/p/CCRSYS.m

@@ -45 +45 @@
          I CCRTEST Q 0  ; IF WE ARE TESTING, DON'T REJECT TEST PATIENTS
          N DIERR,DATA
+         I $$TESTPAT^VADPT(DFN) Q 1 ; QUIT IF IT'S A VA TEST PATIENT
          S DATA=+$$GET1^DIQ(2,DFN_",",.6,"I") ;Test Patient Indicator
          ; 1 = Test Patient

ccr/trunk/p/GPLRIMA.m

@@ -293 +293 @@
     Q
 GETPA(RTN,DFN,ISEC,IVAR) ; RETURNS ARRAY OF RIM VARIABLES FOR PATIENT DFN
-    ; EXAMPLE: D GETP(.RT,2,"MEDS","MEDSSTATUSTEXT")
+    ; EXAMPLE: D GETPA(.RT,2,"MEDS","MEDSSTATUSTEXT")
     ; RETURNS AN ARRAY RT OF VALUES OF MEDSTATUSTEXT FOR PATIENT 2 IN P2
     ; IN SECTION "MEDS"
@@ -323 +323 @@
     Q
     ;
-CAGET(RTN,IATTR,ISEC,IVAR) ;
+CAGET(RTN,IATTR) ;
     ; GETPA LOOKS AT RIMTBL TO FIND PATIENTS WITH ATTRIBUTE IATTR
     ; IT DOES NOT SEARCH ALL PATIENTS, ONLY THE ONES WITH THE ATTRIBUTE