- 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 Feb 18, 2025@23:27:44 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
