- IBY155PR ;ALB/TMP - IB*2*155 PRE-INSTALL ;11-APR-02
- ;;2.0;INTEGRATED BILLING;**155**;21-MAR-94
- ;
- ;
- D BMES^XPDUTL(" Pre-Installation Updates")
- D BMES^XPDUTL(" Delete output formatter data that will be updated during install")
- N Z,DA,DIK
- F Z=3,26,27,127 K ^IBA(364.5,Z,3)
- S DA=353,DIK="^IBA(364.7,"
- D ^DIK ; remove entry 353 because the .03 field changed
- S DA=964,DIK="^IBA(364.6,"
- D ^DIK ; remove entry 964 because the .1 field changed
- ;
- D BMES^XPDUTL(" Delete fields in file 361.1 that will be updated during install")
- ; Remove selective Data Dictionay Elements related to this build
- ;
- ; Remove the Multiple 361.13 (File 361.1, Field 2.1 - Original Modifiers)
- N DIU
- S DIU=361.13,DIU(0)="S" D EN^DIU2
- K DIU
- ;
- ; Remove field .16 of File 361.1 - REVIEW STATUS
- N DIK,DA
- S DIK="^DD(361.1,",DA=.16,DA(1)=361.1 D ^DIK
- ; Remove Field .2 of File 361.1 - FINAL REVIEW ACTION
- S DA=.2 D ^DIK
- ; Remove Field 2.1 of File 361.1 - ORIGINAL MODIFIERS
- S DA=2.1 D ^DIK
- ;
- ; Remove Field 9 of File 399 - AUTHORIZE BILL GENERATION?
- S DIK="^DD(399,",DA=9,DA(1)=399 D ^DIK
- ; Remove Field 25 of File 399 - REQUEST AN MRA?
- S DA=25 D ^DIK
- ;
- D BMES^XPDUTL(" Delete list templates which will be updated during install")
- D LSTDEL("IBCEM MRA DETAIL")
- ;
- D BMES^XPDUTL(" Pre-install complete")
- Q
- ;
- INCLUDE(Y) ; Code to execute to decide if the data element definition
- ; should be sent with this patch ... it must exist in the list at
- ; line ENT5+2 below
- N IBOUT,Z,Z0
- I Y>9999 S IBOUT=0 G INCQ1
- I $P($T(ENT5+2),";;",2)[(U_+Y_U) S IBOUT=1 G INCQ1
- INCQ1 Q +$G(IBOUT)
- ;
- ENT5 ; Changed entries from 364.5 that should be in the build
- ;
- ;;^3^26^27^55^127^177^248^249^251^225^257^
- Q
- ;
- LSTDEL(LSTNM) ; Delete list templates from file 409.61 before installation
- I $G(LSTNM)="" G LSTDELX
- S DA=$O(^SD(409.61,"B",LSTNM,""))
- I 'DA G LSTDELX
- S DIK="^SD(409.61,"
- D ^DIK
- LSTDELX ;
- Q
- ;
- BFT ; Add new Bill Form Type for MRA reports;
- ; Called by the post-install routine IBY155PO;
- ; File 353, new internal entry number 6;
- ; Default the printer defined for the Bill Addendum entry
- ;
- NEW DA,DIC,DO,X,Y,DD,DLAYGO,DINUM,DG,DICR,DIW,BAPRT
- I $P($G(^IBE(353,6,0)),U,1)="MRA" G BFTX ; already on file
- I $D(^IBE(353,6)) D
- . ; some other entry is defined at ien=6, so get rid of it
- . S DA=6,DIK="^IBE(353," D ^DIK
- . Q
- ;
- S DIC="^IBE(353,",DIC(0)="F"
- S X="MRA"
- S DINUM=6
- S DIC("DR")="2.02////P" ; format type
- S BAPRT=$P($G(^IBE(353,4,0)),U,2) ; bill addendum default printer
- I BAPRT'="" S DIC("DR")=DIC("DR")_";.02////"_BAPRT
- D FILE^DICN
- BFTX ;
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY155PR 2673 printed Feb 18, 2025@23:59:55 Page 2
- IBY155PR ;ALB/TMP - IB*2*155 PRE-INSTALL ;11-APR-02
- +1 ;;2.0;INTEGRATED BILLING;**155**;21-MAR-94
- +2 ;
- +3 ;
- +4 DO BMES^XPDUTL(" Pre-Installation Updates")
- +5 DO BMES^XPDUTL(" Delete output formatter data that will be updated during install")
- +6 NEW Z,DA,DIK
- +7 FOR Z=3,26,27,127
- KILL ^IBA(364.5,Z,3)
- +8 SET DA=353
- SET DIK="^IBA(364.7,"
- +9 ; remove entry 353 because the .03 field changed
- DO ^DIK
- +10 SET DA=964
- SET DIK="^IBA(364.6,"
- +11 ; remove entry 964 because the .1 field changed
- DO ^DIK
- +12 ;
- +13 DO BMES^XPDUTL(" Delete fields in file 361.1 that will be updated during install")
- +14 ; Remove selective Data Dictionay Elements related to this build
- +15 ;
- +16 ; Remove the Multiple 361.13 (File 361.1, Field 2.1 - Original Modifiers)
- +17 NEW DIU
- +18 SET DIU=361.13
- SET DIU(0)="S"
- DO EN^DIU2
- +19 KILL DIU
- +20 ;
- +21 ; Remove field .16 of File 361.1 - REVIEW STATUS
- +22 NEW DIK,DA
- +23 SET DIK="^DD(361.1,"
- SET DA=.16
- SET DA(1)=361.1
- DO ^DIK
- +24 ; Remove Field .2 of File 361.1 - FINAL REVIEW ACTION
- +25 SET DA=.2
- DO ^DIK
- +26 ; Remove Field 2.1 of File 361.1 - ORIGINAL MODIFIERS
- +27 SET DA=2.1
- DO ^DIK
- +28 ;
- +29 ; Remove Field 9 of File 399 - AUTHORIZE BILL GENERATION?
- +30 SET DIK="^DD(399,"
- SET DA=9
- SET DA(1)=399
- DO ^DIK
- +31 ; Remove Field 25 of File 399 - REQUEST AN MRA?
- +32 SET DA=25
- DO ^DIK
- +33 ;
- +34 DO BMES^XPDUTL(" Delete list templates which will be updated during install")
- +35 DO LSTDEL("IBCEM MRA DETAIL")
- +36 ;
- +37 DO BMES^XPDUTL(" Pre-install complete")
- +38 QUIT
- +39 ;
- INCLUDE(Y) ; Code to execute to decide if the data element definition
- +1 ; should be sent with this patch ... it must exist in the list at
- +2 ; line ENT5+2 below
- +3 NEW IBOUT,Z,Z0
- +4 IF Y>9999
- SET IBOUT=0
- GOTO INCQ1
- +5 IF $PIECE($TEXT(ENT5+2),";;",2)[(U_+Y_U)
- SET IBOUT=1
- GOTO INCQ1
- INCQ1 QUIT +$GET(IBOUT)
- +1 ;
- ENT5 ; Changed entries from 364.5 that should be in the build
- +1 ;
- +2 ;;^3^26^27^55^127^177^248^249^251^225^257^
- +3 QUIT
- +4 ;
- LSTDEL(LSTNM) ; Delete list templates from file 409.61 before installation
- +1 IF $GET(LSTNM)=""
- GOTO LSTDELX
- +2 SET DA=$ORDER(^SD(409.61,"B",LSTNM,""))
- +3 IF 'DA
- GOTO LSTDELX
- +4 SET DIK="^SD(409.61,"
- +5 DO ^DIK
- LSTDELX ;
- +1 QUIT
- +2 ;
- BFT ; Add new Bill Form Type for MRA reports;
- +1 ; Called by the post-install routine IBY155PO;
- +2 ; File 353, new internal entry number 6;
- +3 ; Default the printer defined for the Bill Addendum entry
- +4 ;
- +5 NEW DA,DIC,DO,X,Y,DD,DLAYGO,DINUM,DG,DICR,DIW,BAPRT
- +6 ; already on file
- IF $PIECE($GET(^IBE(353,6,0)),U,1)="MRA"
- GOTO BFTX
- +7 IF $DATA(^IBE(353,6))
- Begin DoDot:1
- +8 ; some other entry is defined at ien=6, so get rid of it
- +9 SET DA=6
- SET DIK="^IBE(353,"
- DO ^DIK
- +10 QUIT
- End DoDot:1
- +11 ;
- +12 SET DIC="^IBE(353,"
- SET DIC(0)="F"
- +13 SET X="MRA"
- +14 SET DINUM=6
- +15 ; format type
- SET DIC("DR")="2.02////P"
- +16 ; bill addendum default printer
- SET BAPRT=$PIECE($GET(^IBE(353,4,0)),U,2)
- +17 IF BAPRT'=""
- SET DIC("DR")=DIC("DR")_";.02////"_BAPRT
- +18 DO FILE^DICN
- BFTX ;
- +1 QUIT
- +2 ;
