WV3PRE.m

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 ---WV3PRE   778     printed  Apr 09, 2024@21:48:53                                                                                                                                                                                                       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