Changeset 342 for ccr/trunk/p/C0CRPMS.m

Timestamp:

Jan 22, 2009, 9:36:12 AM (15 years ago)

Author:

George Lilly

Message:

integration of CCRMEDS6 for RPMS on flag C0CTESTMEDS

File:

• ccr/trunk/p/C0CRPMS.m (modified) (1 diff)

ccr/trunk/p/C0CRPMS.m

@@ -79 +79 @@
  Q
  ;
+GETTBL(C0CTBL) ; SCAN FOR AND DISPLAY PATIENTS IN A RIMTBL, PASSED BY VALUE
+ ;
+ N ZG S ZG=$NA(^TMP("GPLRIM","RIMTBL","PATS",C0CTBL))
+ N C0CG S C0CG=""
+ N C0CQ S C0CQ=0
+ F  S C0CG=$O(@ZG@(C0CG),-1) Q:(C0CG="")  D  ;
+ . W "PAT: ",C0CG,!
+ . D GETNV^C0CRPMS(C0CG)
+ . K X R X
+ . I X="Q" S C0CQ=1 ; QUIT IF Q
+ Q
+ ;