FBXIP61.m

FBXIP61 ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;11/25/2003

 ;;3.5;FEE BASIS;**61**;JAN 30, 1995

 Q

 ; THIS INIT ROUTINE IS ONLY NEEDED FOR SITES THAT HAVE INSTALLED

 ; TEST v1 of PATCH FB*3.5*61.  IT WILL BE INCLUDED WITH TEST v2.

 ; IT WILL NOT BE INCLUDED IN LATER VERSIONS OF THE PATCH

 ;

PR ; pre-install entry point

 ; create KIDS checkpoints with call backs

 N FBX,Y

 F FBX="KDD" D

 . S Y=$$NEWCP^XPDUTL(FBX,FBX_"^FBXIP61")

 . I 'Y D BMES^XPDUTL("ERROR Creating "_FBX_" Checkpoint.")

 Q

 ;

KDD ; Kill DD (but leave any data) for File 163.5

 N DIU

 D BMES^XPDUTL("  Removing current DD definition for file 163.5...")

 ;

 S DIU="^FBHL(163.5,"

 S DIU(0)=""

 D EN^DIU2

 ;

 D MES^XPDUTL("  Done.")

 Q

 ;

 ;FBXIP61

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBXIP61   737     printed  Apr 09, 2024@21:02:37                                                                                                                                                                                                      Page 2

FBXIP61   ;WCIOFO/SAB-PATCH INSTALL ROUTINE ;11/25/2003

 +1       ;;3.5;FEE BASIS;**61**;JAN 30, 1995

 +2        QUIT 

 +3       ; THIS INIT ROUTINE IS ONLY NEEDED FOR SITES THAT HAVE INSTALLED

 +4       ; TEST v1 of PATCH FB*3.5*61.  IT WILL BE INCLUDED WITH TEST v2.

 +5       ; IT WILL NOT BE INCLUDED IN LATER VERSIONS OF THE PATCH

 +6       ;

PR        ; pre-install entry point

 +1       ; create KIDS checkpoints with call backs

 +2        NEW FBX,Y

 +3        FOR FBX="KDD"

               Begin DoDot:1

 +4                SET Y=$$NEWCP^XPDUTL(FBX,FBX_"^FBXIP61")

 +5                IF 'Y

                       DO BMES^XPDUTL("ERROR Creating "_FBX_" Checkpoint.")

               End DoDot:1

 +6        QUIT 

 +7       ;

KDD       ; Kill DD (but leave any data) for File 163.5

 +1        NEW DIU

 +2        DO BMES^XPDUTL("  Removing current DD definition for file 163.5...")

 +3       ;

 +4        SET DIU="^FBHL(163.5,"

 +5        SET DIU(0)=""

 +6        DO EN^DIU2

 +7       ;

 +8        DO MES^XPDUTL("  Done.")

 +9        QUIT 

 +10      ;

 +11      ;FBXIP61