Changeset 356 for ccr/trunk/p/GPLIMMU.m

Timestamp:

Feb 4, 2009, 3:18:25 PM (15 years ago)

Author:

George Lilly

Message:

added Immunizations to RIM variable analysis code.. changed global for
parms to ^{TMP("C0CPARMS",$J)}

File:

• ccr/trunk/p/GPLIMMU.m (modified) (2 diffs)

ccr/trunk/p/GPLIMMU.m

@@ -38 +38 @@
  . . . D INSINNER^GPLXPATH(OUTXML,"C0CZT")
  E  S @OUTXML@(0)=0 ; SIGNAL NO IMMUNIZATIONS
+ N IMMUTMP,I
+ D MISSING^GPLXPATH(OUTXML,"IMMUTMP") ; SEARCH XML FOR MISSING VARS
+ I IMMUTMP(0)>0  D  ; IF THERE ARE MISSING VARS -
+ . ; STRINGS MARKED AS @@X@@
+ . W !,"IMMUNE Missing list: ",!
+ . F I=1:1:IMMUTMP(0) W IMMUTMP(I),!
  Q
  ;
@@ -96 +102 @@
  . . . S @VMAP@("IMMUNEPRODUCTCODE")="" ; CVX CODE
  . . . S @VMAP@("IMMUNEPRODUCTCODESYSTEM")="" ;NO CODE
- N IMMUTMP,I
- D MISSING^GPLXPATH(ARYTMP,"IMMUTMP") ; SEARCH XML FOR MISSING VARS
- I IMMUTMP(0)>0  D  ; IF THERE ARE MISSING VARS -
- . ; STRINGS MARKED AS @@X@@
- . W !,"IMMUNE Missing list: ",!
- . F I=1:1:IMMUTMP(0) W IMMUTMP(I),!
+ N C0CIRIM S C0CIRIM=$NA(^TMP("GPLRIM","VARS",DFN,"IMMUNE"))
+ M @C0CIRIM=@TVMAP ; PERSIST RIM VARIABLES
  Q
  ;