LR260 ;VA/DALOI/RLM-PATCH 260 POST-INIT ROUTINE ;1/1/98
;;5.2;LAB SERVICE;**1030**;NOV 01, 1997
;;5.2;LAB SERVICE;**260**;Sep 27, 1994;Build 2
K ERROR,FDA,DIERR
D VAL^DIE(69.51,"+1,",.01,,"VA-HEP C RISK ASSESSMENT",.LRANS)
S FDA(42,69.51,"+1,",.01)=LRANS
I $D(^LAB(69.51,"B",LRANS)) W !,"VA-HEP C RISK ASSESSMENT entry exists in 69.51 and will not be duplicated."
I '$D(^LAB(69.51,"B",LRANS)) D UPDATE^DIE("","FDA(42)","","ERROR")
I $D(ERROR) W !,"VA-HEP C RISK ASSESSMENT not added to file 69.51.",!,"Please log a NOIS call and request assistance."
;
K ERROR,FDA,DIERR
D VAL^DIE(69.51,"+1,",.01,,"VA-NATIONAL EPI LAB EXTRACT",.LRANS)
S FDA(42,69.51,"+1,",.01)=LRANS
I $D(^LAB(69.51,"B",LRANS)) W !,"VA-NATIONAL EPI LAB EXTRACT entry exists in 69.51 and will not be duplicated."
I '$D(^LAB(69.51,"B",LRANS)) D UPDATE^DIE("","FDA(42)","","ERROR")
I $D(ERROR) W !,"VA-NATIONAL EPI LAB EXTRACT not added to file 69.51.",!,"Please log a NOIS call and request assistance."
;
K ERROR,FDA,DIERR
D VAL^DIE(69.51,"+1,",.01,,"VA-NATIONAL EPI RX EXTRACT",.LRANS)
S FDA(42,69.51,"+1,",.01)=LRANS
I $D(^LAB(69.51,"B",LRANS)) W !,"VA-NATIONAL EPI RX EXTRACT entry exists in 69.51 and will not be duplicated."
I '$D(^LAB(69.51,"B",LRANS)) D UPDATE^DIE("","FDA(42)","","ERROR")
I $D(ERROR) W !,"VA-NATIONAL VA-NATIONAL EPI RX EXTRACT not added to file 69.51.",!,"Please log a NOIS call and request assistance."
;
K ERROR,FDA,DIERR
D VAL^DIE(69.5,"+1,",12,,"LREPI",.LRANS)
S FDA(42,69.5,"+1,",12)=LRANS ;Protocol
S FDA(42,69.5,"+1,",.01)="HEPATITIS C ANTIBODY NEG" ;Name
S FDA(42,69.5,"+1,",.05)=15 ;Sequence Number
S FDA(42,69.5,"+1,",1)=0 ;Active (0=yes)
S FDA(42,69.5,"+1,",10.5)=15 ;Lag Days
S FDA(42,69.5,"+1,",10)="M" ;Cycle
S FDA(42,69.5,"+1,",13)=1 ;Follow PTF
I $D(^LAB(69.5,"B","HEPATITIS C ANTIBODY NEG")) W !,"HEPATITIS C ANTIBODY NEG entry exists in 69.5 and will not be duplicated."
I '$D(^LAB(69.5,"B","HEPATITIS C ANTIBODY NEG")) D UPDATE^DIE("","FDA(42)","","ERROR")
I $D(ERROR) W !,"HEPATITIS C ANTIBODY NEG not added to file 69.5.",!,"Please log a NOIS call and request assistance."
;
K ERROR,FDA,DIERR
D VAL^DIE(69.5,"+1,",12,,"LREPI",.LRANS)
S FDA(42,69.5,"+1,",12)=LRANS ;Protocol
S FDA(42,69.5,"+1,",.01)="HEPATITIS A ANTIBODY POS" ;Name
S FDA(42,69.5,"+1,",.05)=16 ;Sequence Number
S FDA(42,69.5,"+1,",1)=0 ;Active (0=yes)
S FDA(42,69.5,"+1,",10.5)=15 ;Lag Days
S FDA(42,69.5,"+1,",10)="M" ;Cycle
S FDA(42,69.5,"+1,",13)=1 ;Follow PTF
I $D(^LAB(69.5,"B","HEPATITIS A ANTIBODY POS")) W !,"HEPATITIS A ANTIBODY POS entry exists in 69.5 and will not be duplicated."
I '$D(^LAB(69.5,"B","HEPATITIS A ANTIBODY POS")) D UPDATE^DIE("","FDA(42)","","ERROR")
I $D(ERROR) W !,"HEPATITIS A ANTIBODY POS not added to file 69.5.",!,"Please log a NOIS call and request assistance."
;
K ERROR,FDA,DIERR
D VAL^DIE(69.5,"+1,",12,,"LREPI",.LRANS)
S FDA(42,69.5,"+1,",12)=LRANS ;Protocol
S FDA(42,69.5,"+1,",.01)="HEPATITIS B POS" ;Name
S FDA(42,69.5,"+1,",.05)=17 ;Sequence Number
S FDA(42,69.5,"+1,",1)=0 ;Active (0=yes)
S FDA(42,69.5,"+1,",10.5)=15 ;Lag Days
S FDA(42,69.5,"+1,",10)="M" ;Cycle
S FDA(42,69.5,"+1,",13)=1 ;Follow PTF
I $D(^LAB(69.5,"B","HEPATITIS B POS")) W !,"HEPATITIS B ANTIBODY POS entry exists in 69.51 and will not be duplicated."
I '$D(^LAB(69.5,"B","HEPATITIS B POS")) D UPDATE^DIE("","FDA(42)","","ERROR")
I $D(ERROR) W !,"HEPATITIS B POS not added to file 69.5.",!,"Please log a NOIS call and request assistance."
K FDA,ERROR,DIERR ;
;I $$FIND1^DIC(3.812,","_$$FIND1^DIC(3.8,,"XM","EPI")_",","M","XXX@Q-EPI",,,"ERROR") W !,"XXX@Q-EPI.MED.VA.GOV already exists in the EPI mailgroup and will not be duplicated."
;I '$$FIND1^DIC(3.812,","_$$FIND1^DIC(3.8,,"XM","EPI")_",","M","XXX@Q-EPI",,,"ERROR") D
; . D FIND^DIC(3.8,,,"O","EPI",1,,,,"RESULT","ERROR")
; . S LRMG=RESULT("DILIST",2,1) D
; . . S FDA(42,3.812,"+2,"_LRMG_",",.01)="XXX@Q-EPI.MED.VA.GOV"
; . . D UPDATE^DIE("","FDA(42)","","ERROR")
;I $D(ERROR) W !,"XXX@Q-EPI.MED.VA.GOV not added to EPI MailGroup.",!,"Please log a NOIS call and request assistance."
K FDA,ERROR,DIERR
S LRIEN=$O(^LAB(69.5,"B","NCH PAP SMEAR",""))
I LRIEN S $P(^LAB(69.5,LRIEN,0),"^",2)=1
S LRIEN=$O(^LAB(69.5,"B","NCH CHOLESTEROL",""))
I LRIEN S $P(^LAB(69.5,LRIEN,0),"^",2)=1
K DIERR,ERROR,FDA,LRANS,LRIEN,LRMG,RESULT
ZEOR ;LR260
LR260 ;VA/DALOI/RLM-PATCH 260 POST-INIT ROUTINE ;1/1/98
+1 ;;5.2;LAB SERVICE;**1030**;NOV 01, 1997
+2 ;;5.2;LAB SERVICE;**260**;Sep 27, 1994;Build 2
+3 KILL ERROR,FDA,DIERR
+4 DO VAL^DIE(69.51,"+1,",.01,,"VA-HEP C RISK ASSESSMENT",.LRANS)
+5 SET FDA(42,69.51,"+1,",.01)=LRANS
+6 IF $DATA(^LAB(69.51,"B",LRANS))
WRITE !,"VA-HEP C RISK ASSESSMENT entry exists in 69.51 and will not be duplicated."
+7 IF '$DATA(^LAB(69.51,"B",LRANS))
DO UPDATE^DIE("","FDA(42)","","ERROR")
+8 IF $DATA(ERROR)
WRITE !,"VA-HEP C RISK ASSESSMENT not added to file 69.51.",!,"Please log a NOIS call and request assistance."
+9 ;
+10 KILL ERROR,FDA,DIERR
+11 DO VAL^DIE(69.51,"+1,",.01,,"VA-NATIONAL EPI LAB EXTRACT",.LRANS)
+12 SET FDA(42,69.51,"+1,",.01)=LRANS
+13 IF $DATA(^LAB(69.51,"B",LRANS))
WRITE !,"VA-NATIONAL EPI LAB EXTRACT entry exists in 69.51 and will not be duplicated."
+14 IF '$DATA(^LAB(69.51,"B",LRANS))
DO UPDATE^DIE("","FDA(42)","","ERROR")
+15 IF $DATA(ERROR)
WRITE !,"VA-NATIONAL EPI LAB EXTRACT not added to file 69.51.",!,"Please log a NOIS call and request assistance."
+16 ;
+17 KILL ERROR,FDA,DIERR
+18 DO VAL^DIE(69.51,"+1,",.01,,"VA-NATIONAL EPI RX EXTRACT",.LRANS)
+19 SET FDA(42,69.51,"+1,",.01)=LRANS
+20 IF $DATA(^LAB(69.51,"B",LRANS))
WRITE !,"VA-NATIONAL EPI RX EXTRACT entry exists in 69.51 and will not be duplicated."
+21 IF '$DATA(^LAB(69.51,"B",LRANS))
DO UPDATE^DIE("","FDA(42)","","ERROR")
+22 IF $DATA(ERROR)
WRITE !,"VA-NATIONAL VA-NATIONAL EPI RX EXTRACT not added to file 69.51.",!,"Please log a NOIS call and request assistance."
+23 ;
+24 KILL ERROR,FDA,DIERR
+25 DO VAL^DIE(69.5,"+1,",12,,"LREPI",.LRANS)
+26 ;Protocol
SET FDA(42,69.5,"+1,",12)=LRANS
+27 ;Name
SET FDA(42,69.5,"+1,",.01)="HEPATITIS C ANTIBODY NEG"
+28 ;Sequence Number
SET FDA(42,69.5,"+1,",.05)=15
+29 ;Active (0=yes)
SET FDA(42,69.5,"+1,",1)=0
+30 ;Lag Days
SET FDA(42,69.5,"+1,",10.5)=15
+31 ;Cycle
SET FDA(42,69.5,"+1,",10)="M"
+32 ;Follow PTF
SET FDA(42,69.5,"+1,",13)=1
+33 IF $DATA(^LAB(69.5,"B","HEPATITIS C ANTIBODY NEG"))
WRITE !,"HEPATITIS C ANTIBODY NEG entry exists in 69.5 and will not be duplicated."
+34 IF '$DATA(^LAB(69.5,"B","HEPATITIS C ANTIBODY NEG"))
DO UPDATE^DIE("","FDA(42)","","ERROR")
+35 IF $DATA(ERROR)
WRITE !,"HEPATITIS C ANTIBODY NEG not added to file 69.5.",!,"Please log a NOIS call and request assistance."
+36 ;
+37 KILL ERROR,FDA,DIERR
+38 DO VAL^DIE(69.5,"+1,",12,,"LREPI",.LRANS)
+39 ;Protocol
SET FDA(42,69.5,"+1,",12)=LRANS
+40 ;Name
SET FDA(42,69.5,"+1,",.01)="HEPATITIS A ANTIBODY POS"
+41 ;Sequence Number
SET FDA(42,69.5,"+1,",.05)=16
+42 ;Active (0=yes)
SET FDA(42,69.5,"+1,",1)=0
+43 ;Lag Days
SET FDA(42,69.5,"+1,",10.5)=15
+44 ;Cycle
SET FDA(42,69.5,"+1,",10)="M"
+45 ;Follow PTF
SET FDA(42,69.5,"+1,",13)=1
+46 IF $DATA(^LAB(69.5,"B","HEPATITIS A ANTIBODY POS"))
WRITE !,"HEPATITIS A ANTIBODY POS entry exists in 69.5 and will not be duplicated."
+47 IF '$DATA(^LAB(69.5,"B","HEPATITIS A ANTIBODY POS"))
DO UPDATE^DIE("","FDA(42)","","ERROR")
+48 IF $DATA(ERROR)
WRITE !,"HEPATITIS A ANTIBODY POS not added to file 69.5.",!,"Please log a NOIS call and request assistance."
+49 ;
+50 KILL ERROR,FDA,DIERR
+51 DO VAL^DIE(69.5,"+1,",12,,"LREPI",.LRANS)
+52 ;Protocol
SET FDA(42,69.5,"+1,",12)=LRANS
+53 ;Name
SET FDA(42,69.5,"+1,",.01)="HEPATITIS B POS"
+54 ;Sequence Number
SET FDA(42,69.5,"+1,",.05)=17
+55 ;Active (0=yes)
SET FDA(42,69.5,"+1,",1)=0
+56 ;Lag Days
SET FDA(42,69.5,"+1,",10.5)=15
+57 ;Cycle
SET FDA(42,69.5,"+1,",10)="M"
+58 ;Follow PTF
SET FDA(42,69.5,"+1,",13)=1
+59 IF $DATA(^LAB(69.5,"B","HEPATITIS B POS"))
WRITE !,"HEPATITIS B ANTIBODY POS entry exists in 69.51 and will not be duplicated."
+60 IF '$DATA(^LAB(69.5,"B","HEPATITIS B POS"))
DO UPDATE^DIE("","FDA(42)","","ERROR")
+61 IF $DATA(ERROR)
WRITE !,"HEPATITIS B POS not added to file 69.5.",!,"Please log a NOIS call and request assistance."
+62 ;
KILL FDA,ERROR,DIERR
+63 ;I $$FIND1^DIC(3.812,","_$$FIND1^DIC(3.8,,"XM","EPI")_",","M","XXX@Q-EPI",,,"ERROR") W !,"XXX@Q-EPI.MED.VA.GOV already exists in the EPI mailgroup and will not be duplicated."
+64 ;I '$$FIND1^DIC(3.812,","_$$FIND1^DIC(3.8,,"XM","EPI")_",","M","XXX@Q-EPI",,,"ERROR") D
+65 ; . D FIND^DIC(3.8,,,"O","EPI",1,,,,"RESULT","ERROR")
+66 ; . S LRMG=RESULT("DILIST",2,1) D
+67 ; . . S FDA(42,3.812,"+2,"_LRMG_",",.01)="XXX@Q-EPI.MED.VA.GOV"
+68 ; . . D UPDATE^DIE("","FDA(42)","","ERROR")
+69 ;I $D(ERROR) W !,"XXX@Q-EPI.MED.VA.GOV not added to EPI MailGroup.",!,"Please log a NOIS call and request assistance."
+70 KILL FDA,ERROR,DIERR
+71 SET LRIEN=$ORDER(^LAB(69.5,"B","NCH PAP SMEAR",""))
+72 IF LRIEN
SET $PIECE(^LAB(69.5,LRIEN,0),"^",2)=1
+73 SET LRIEN=$ORDER(^LAB(69.5,"B","NCH CHOLESTEROL",""))
+74 IF LRIEN
SET $PIECE(^LAB(69.5,LRIEN,0),"^",2)=1
+75 KILL DIERR,ERROR,FDA,LRANS,LRIEN,LRMG,RESULT
ZEOR ;LR260
