| 1 | IBY155PR ;ALB/TMP - IB*2*155 PRE-INSTALL ;11-APR-02
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**155**;21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | D BMES^XPDUTL(" Pre-Installation Updates")
|
|---|
| 6 | D BMES^XPDUTL(" Delete output formatter data that will be updated during install")
|
|---|
| 7 | N Z,DA,DIK
|
|---|
| 8 | F Z=3,26,27,127 K ^IBA(364.5,Z,3)
|
|---|
| 9 | S DA=353,DIK="^IBA(364.7,"
|
|---|
| 10 | D ^DIK ; remove entry 353 because the .03 field changed
|
|---|
| 11 | S DA=964,DIK="^IBA(364.6,"
|
|---|
| 12 | D ^DIK ; remove entry 964 because the .1 field changed
|
|---|
| 13 | ;
|
|---|
| 14 | D BMES^XPDUTL(" Delete fields in file 361.1 that will be updated during install")
|
|---|
| 15 | ; Remove selective Data Dictionay Elements related to this build
|
|---|
| 16 | ;
|
|---|
| 17 | ; Remove the Multiple 361.13 (File 361.1, Field 2.1 - Original Modifiers)
|
|---|
| 18 | N DIU
|
|---|
| 19 | S DIU=361.13,DIU(0)="S" D EN^DIU2
|
|---|
| 20 | K DIU
|
|---|
| 21 | ;
|
|---|
| 22 | ; Remove field .16 of File 361.1 - REVIEW STATUS
|
|---|
| 23 | N DIK,DA
|
|---|
| 24 | S DIK="^DD(361.1,",DA=.16,DA(1)=361.1 D ^DIK
|
|---|
| 25 | ; Remove Field .2 of File 361.1 - FINAL REVIEW ACTION
|
|---|
| 26 | S DA=.2 D ^DIK
|
|---|
| 27 | ; Remove Field 2.1 of File 361.1 - ORIGINAL MODIFIERS
|
|---|
| 28 | S DA=2.1 D ^DIK
|
|---|
| 29 | ;
|
|---|
| 30 | ; Remove Field 9 of File 399 - AUTHORIZE BILL GENERATION?
|
|---|
| 31 | S DIK="^DD(399,",DA=9,DA(1)=399 D ^DIK
|
|---|
| 32 | ; Remove Field 25 of File 399 - REQUEST AN MRA?
|
|---|
| 33 | S DA=25 D ^DIK
|
|---|
| 34 | ;
|
|---|
| 35 | D BMES^XPDUTL(" Delete list templates which will be updated during install")
|
|---|
| 36 | D LSTDEL("IBCEM MRA DETAIL")
|
|---|
| 37 | ;
|
|---|
| 38 | D BMES^XPDUTL(" Pre-install complete")
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | INCLUDE(Y) ; Code to execute to decide if the data element definition
|
|---|
| 42 | ; should be sent with this patch ... it must exist in the list at
|
|---|
| 43 | ; line ENT5+2 below
|
|---|
| 44 | N IBOUT,Z,Z0
|
|---|
| 45 | I Y>9999 S IBOUT=0 G INCQ1
|
|---|
| 46 | I $P($T(ENT5+2),";;",2)[(U_+Y_U) S IBOUT=1 G INCQ1
|
|---|
| 47 | INCQ1 Q +$G(IBOUT)
|
|---|
| 48 | ;
|
|---|
| 49 | ENT5 ; Changed entries from 364.5 that should be in the build
|
|---|
| 50 | ;
|
|---|
| 51 | ;;^3^26^27^55^127^177^248^249^251^225^257^
|
|---|
| 52 | Q
|
|---|
| 53 | ;
|
|---|
| 54 | LSTDEL(LSTNM) ; Delete list templates from file 409.61 before installation
|
|---|
| 55 | I $G(LSTNM)="" G LSTDELX
|
|---|
| 56 | S DA=$O(^SD(409.61,"B",LSTNM,""))
|
|---|
| 57 | I 'DA G LSTDELX
|
|---|
| 58 | S DIK="^SD(409.61,"
|
|---|
| 59 | D ^DIK
|
|---|
| 60 | LSTDELX ;
|
|---|
| 61 | Q
|
|---|
| 62 | ;
|
|---|
| 63 | BFT ; Add new Bill Form Type for MRA reports;
|
|---|
| 64 | ; Called by the post-install routine IBY155PO;
|
|---|
| 65 | ; File 353, new internal entry number 6;
|
|---|
| 66 | ; Default the printer defined for the Bill Addendum entry
|
|---|
| 67 | ;
|
|---|
| 68 | NEW DA,DIC,DO,X,Y,DD,DLAYGO,DINUM,DG,DICR,DIW,BAPRT
|
|---|
| 69 | I $P($G(^IBE(353,6,0)),U,1)="MRA" G BFTX ; already on file
|
|---|
| 70 | I $D(^IBE(353,6)) D
|
|---|
| 71 | . ; some other entry is defined at ien=6, so get rid of it
|
|---|
| 72 | . S DA=6,DIK="^IBE(353," D ^DIK
|
|---|
| 73 | . Q
|
|---|
| 74 | ;
|
|---|
| 75 | S DIC="^IBE(353,",DIC(0)="F"
|
|---|
| 76 | S X="MRA"
|
|---|
| 77 | S DINUM=6
|
|---|
| 78 | S DIC("DR")="2.02////P" ; format type
|
|---|
| 79 | S BAPRT=$P($G(^IBE(353,4,0)),U,2) ; bill addendum default printer
|
|---|
| 80 | I BAPRT'="" S DIC("DR")=DIC("DR")_";.02////"_BAPRT
|
|---|
| 81 | D FILE^DICN
|
|---|
| 82 | BFTX ;
|
|---|
| 83 | Q
|
|---|
| 84 | ;
|
|---|
