WV3PRE ;HCIOFO/FT-Patch Pre-Installation Routine ;12/14/98 16:03
;;1.0;WOMEN'S HEALTH;**3**;Sep 30, 1998
;
PAT3 ; Entry point for WV*1*3
D PATCH
Q
PATCH ; Delete erroneous patch references in Package file (#9.4)
D FIND^DIC(9.4,"","","X","WV","","C","","","WVIEN","WVERR")
S WVDA=+$G(WVIEN("DILIST",2,1))
Q:'WVDA
K WVIEN,WVERR
D FIND^DIC(9.49,","_WVDA_",","","X","1.0","","","","","WVIEN","WVERR")
S WVDA1=+$G(WVIEN("DILIST",2,1))
Q:'WVDA1
F WVDA2=99,100,101,102 D
.K WVIEN,WVERR
.D FIND^DIC(9.4901,","_WVDA1_","_WVDA_",","","X",WVDA2,"","B","","","WVIEN","WVERR")
.S WVDA2=+$G(WVIEN("DILIST",2,1))
.Q:'WVDA2
.S DA=WVDA2,DA(1)=WVDA1,DA(2)=WVDA
.S DIK="^DIC(9.4,"_WVDA_",22,"_WVDA1_",""PAH"","
.D ^DIK
.Q
K WVDA,WVDA1,WVIEN,WVERR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWV3PRE 778 printed Dec 13, 2024@02:46:32 Page 2
WV3PRE ;HCIOFO/FT-Patch Pre-Installation Routine ;12/14/98 16:03
+1 ;;1.0;WOMEN'S HEALTH;**3**;Sep 30, 1998
+2 ;
PAT3 ; Entry point for WV*1*3
+1 DO PATCH
+2 QUIT
PATCH ; Delete erroneous patch references in Package file (#9.4)
+1 DO FIND^DIC(9.4,"","","X","WV","","C","","","WVIEN","WVERR")
+2 SET WVDA=+$GET(WVIEN("DILIST",2,1))
+3 if 'WVDA
QUIT
+4 KILL WVIEN,WVERR
+5 DO FIND^DIC(9.49,","_WVDA_",","","X","1.0","","","","","WVIEN","WVERR")
+6 SET WVDA1=+$GET(WVIEN("DILIST",2,1))
+7 if 'WVDA1
QUIT
+8 FOR WVDA2=99,100,101,102
Begin DoDot:1
+9 KILL WVIEN,WVERR
+10 DO FIND^DIC(9.4901,","_WVDA1_","_WVDA_",","","X",WVDA2,"","B","","","WVIEN","WVERR")
+11 SET WVDA2=+$GET(WVIEN("DILIST",2,1))
+12 if 'WVDA2
QUIT
+13 SET DA=WVDA2
SET DA(1)=WVDA1
SET DA(2)=WVDA
+14 SET DIK="^DIC(9.4,"_WVDA_",22,"_WVDA1_",""PAH"","
+15 DO ^DIK
+16 QUIT
End DoDot:1
+17 KILL WVDA,WVDA1,WVIEN,WVERR
+18 QUIT
