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 ---[H[J[2J[HFBXIP61 737 printed Dec 13, 2024@02:01:55 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
