Changeset 356 for ccr/trunk/p/C0CPARMS.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/C0CPARMS.m (modified) (2 diffs)

ccr/trunk/p/C0CPARMS.m

@@ -23 +23 @@
  ;
  N PTMP ;
- S C0CPARMS=$NA(^TMP($J,"C0CPARMS")) ;BASE FOR THIS RUN
+ S C0CPARMS=$NA(^TMP("C0CPARMS",$J)) ;BASE FOR THIS RUN
  ;K @C0CPARMS ;START WITH EMPTY PARMS; MAY NOT WANT TO DO THIS KILL
  I $G(INPARMS)'="" D  ; OVERRIDES PROVIDED
@@ -40 +40 @@
 CHECK ; CHECK TO SEE IF PARMS ARE PRESENT, ELSE RUN SET
  ;
- I '$D(C0CPARMS) S C0CPARMS=$NA(^TMP($J,"C0CPARMS")) ;SHOULDN'T HAPPEN
+ I '$D(C0CPARMS) S C0CPARMS=$NA(^TMP("C0CPARMS",$J)) ;SHOULDN'T HAPPEN
  I '$D(@C0CPARMS) D SET("SETWITHCHECK:1")
  Q