FBXIP151 ;WOIFO/SAB - PATCH INSTALL ROUTINE ;4/3/2014
;;3.5;FEE BASIS;**151**;JAN 30, 1995;Build 14
;;Per VA Directive 6402, this routine should not be modified.
Q
;
; ICRs
; #10141 BMES^XPDUTL, MES^XPDUTL, $$NEWCP^XPDUTL, $$PATCH^XPDUTL
; #3352 DIEZ^DIKCUTL3
;
PS ; post-install entry point
; create KIDS checkpoints with call backs
N FBX,Y
F FBX="RCIT" D
. S Y=$$NEWCP^XPDUTL(FBX,FBX_"^FBXIP151")
. I 'Y D BMES^XPDUTL("ERROR Creating "_FBX_" Checkpoint.")
Q
;
RCIT ; Recompile Input Templates
; need to include new cross-reference logic in complied templates
N FBFLD,FBLIST
D BMES^XPDUTL(" Recompiling Input Templates for File 161...")
;
F FBFLD=.01,.02,.06,.07,.095 S FBLIST(161.01,FBFLD)=""
D DIEZ^DIKCUTL3(161,.FBLIST)
;
D MES^XPDUTL(" Done.")
Q
;
;FBXIP151
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBXIP151 830 printed Dec 13, 2024@02:01:19 Page 2
FBXIP151 ;WOIFO/SAB - PATCH INSTALL ROUTINE ;4/3/2014
+1 ;;3.5;FEE BASIS;**151**;JAN 30, 1995;Build 14
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
+5 ; ICRs
+6 ; #10141 BMES^XPDUTL, MES^XPDUTL, $$NEWCP^XPDUTL, $$PATCH^XPDUTL
+7 ; #3352 DIEZ^DIKCUTL3
+8 ;
PS ; post-install entry point
+1 ; create KIDS checkpoints with call backs
+2 NEW FBX,Y
+3 FOR FBX="RCIT"
Begin DoDot:1
+4 SET Y=$$NEWCP^XPDUTL(FBX,FBX_"^FBXIP151")
+5 IF 'Y
DO BMES^XPDUTL("ERROR Creating "_FBX_" Checkpoint.")
End DoDot:1
+6 QUIT
+7 ;
RCIT ; Recompile Input Templates
+1 ; need to include new cross-reference logic in complied templates
+2 NEW FBFLD,FBLIST
+3 DO BMES^XPDUTL(" Recompiling Input Templates for File 161...")
+4 ;
+5 FOR FBFLD=.01,.02,.06,.07,.095
SET FBLIST(161.01,FBFLD)=""
+6 DO DIEZ^DIKCUTL3(161,.FBLIST)
+7 ;
+8 DO MES^XPDUTL(" Done.")
+9 QUIT
+10 ;
+11 ;FBXIP151
