FBXIP117.m

FBXIP117 ;WOIFO/SAB - PATCH INSTALL ROUTINE ;11/2/2010

 ;;3.5;FEE BASIS;**117**;JAN 30, 1995;Build 9

 Q

 ;

PS ; post-install entry point

 ; create KIDS checkpoints with call backs

 N FBX,Y

 F FBX="XREF" D

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

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

 Q

 ;

XREF ; Set new x-ref

 N DIK

 D BMES^XPDUTL("    Setting ADS x-ref...")

 ;

 S DIK="^FBAA(161.7,"

 S DIK(1)="5^ADS"

 D ENALL^DIK

 ;

 D MES^XPDUTL("    Done.")

 Q

 ;

 ;FBXIP117

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBXIP117   512     printed  Dec 13, 2024@02:01:10                                                                                                                                                                                                     Page 2

FBXIP117  ;WOIFO/SAB - PATCH INSTALL ROUTINE ;11/2/2010

 +1       ;;3.5;FEE BASIS;**117**;JAN 30, 1995;Build 9

 +2        QUIT 

 +3       ;

PS        ; post-install entry point

 +1       ; create KIDS checkpoints with call backs

 +2        NEW FBX,Y

 +3        FOR FBX="XREF"

               Begin DoDot:1

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

 +5                IF 'Y

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

               End DoDot:1

 +6        QUIT 

 +7       ;

XREF      ; Set new x-ref

 +1        NEW DIK

 +2        DO BMES^XPDUTL("    Setting ADS x-ref...")

 +3       ;

 +4        SET DIK="^FBAA(161.7,"

 +5        SET DIK(1)="5^ADS"

 +6        DO ENALL^DIK

 +7       ;

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

 +9        QUIT 

 +10      ;

 +11      ;FBXIP117