Changeset 356 for ccr/trunk/p


Ignore:
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)

Location:
ccr/trunk/p
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CPARMS.m

    r347 r356  
    2323 ;
    2424 N PTMP ;
    25  S C0CPARMS=$NA(^TMP($J,"C0CPARMS")) ;BASE FOR THIS RUN
     25 S C0CPARMS=$NA(^TMP("C0CPARMS",$J)) ;BASE FOR THIS RUN
    2626 ;K @C0CPARMS ;START WITH EMPTY PARMS; MAY NOT WANT TO DO THIS KILL
    2727 I $G(INPARMS)'="" D  ; OVERRIDES PROVIDED
    … …  
    4040CHECK ; CHECK TO SEE IF PARMS ARE PRESENT, ELSE RUN SET
    4141 ;
    42  I '$D(C0CPARMS) S C0CPARMS=$NA(^TMP($J,"C0CPARMS")) ;SHOULDN'T HAPPEN
     42 I '$D(C0CPARMS) S C0CPARMS=$NA(^TMP("C0CPARMS",$J)) ;SHOULDN'T HAPPEN
    4343 I '$D(@C0CPARMS) D SET("SETWITHCHECK:1")
    4444 Q

  • ccr/trunk/p/GPLIMMU.m

    r355 r356  
    3838 . . . D INSINNER^GPLXPATH(OUTXML,"C0CZT")
    3939 E  S @OUTXML@(0)=0 ; SIGNAL NO IMMUNIZATIONS
     40 N IMMUTMP,I
     41 D MISSING^GPLXPATH(OUTXML,"IMMUTMP") ; SEARCH XML FOR MISSING VARS
     42 I IMMUTMP(0)>0  D  ; IF THERE ARE MISSING VARS -
     43 . ; STRINGS MARKED AS @@X@@
     44 . W !,"IMMUNE Missing list: ",!
     45 . F I=1:1:IMMUTMP(0) W IMMUTMP(I),!
    4046 Q
    4147 ;
    … …  
    96102 . . . S @VMAP@("IMMUNEPRODUCTCODE")="" ; CVX CODE
    97103 . . . S @VMAP@("IMMUNEPRODUCTCODESYSTEM")="" ;NO CODE
    98  N IMMUTMP,I
    99  D MISSING^GPLXPATH(ARYTMP,"IMMUTMP") ; SEARCH XML FOR MISSING VARS
    100  I IMMUTMP(0)>0  D  ; IF THERE ARE MISSING VARS -
    101  . ; STRINGS MARKED AS @@X@@
    102  . W !,"IMMUNE Missing list: ",!
    103  . F I=1:1:IMMUTMP(0) W IMMUTMP(I),!
     104 N C0CIRIM S C0CIRIM=$NA(^TMP("GPLRIM","VARS",DFN,"IMMUNE"))
     105 M @C0CIRIM=@TVMAP ; PERSIST RIM VARIABLES
    104106 Q
    105107 ;

  • ccr/trunk/p/GPLRIMA.m

    r348 r356  
    109109    . ; W "POSTING PROBLEMS",!
    110110    I $D(@SBASE@("VITALS",1)) D APOST("SATTR","RIMTBL","VITALS")
     111    I $D(@SBASE@("IMMUNE",1)) D  ;IMMUNIZATIONS PRESENT
     112    . D APOST("SATTR","RIMTBL","IMMUNE")
     113    . N ZR,ZI
     114    . D GETPA(.ZR,SDFN,"IMMUNE","IMMUNEPRODUCTCODE")
     115    . I ZR(0)>0 D APOST("SATTR","RIMTBL","IMMUNECODE") ;IMMUNIZATION CODES
    111116    I $D(@SBASE@("MEDS",1)) D  ; IF THE PATIENT HAS MEDS VARIABLES
    112117    . D APOST("SATTR","RIMTBL","MEDS")
    … …  
    307312      D APUSH(RIMTBL,"VITALSDATE")
    308313      D APUSH(RIMTBL,"VITALSNODATE")
     314      D APUSH(RIMTBL,"IMMUNE")
     315      D APUSH(RIMTBL,"IMMUNECODE")
    309316      D APUSH(RIMTBL,"MEDS")
    310317      D APUSH(RIMTBL,"MEDSCODE")
Note: See TracChangeset for help on using the changeset viewer.