source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBY155PR.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1IBY155PR ;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 ;
41INCLUDE(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
47INCQ1 Q +$G(IBOUT)
48 ;
49ENT5 ; 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 ;
54LSTDEL(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
60LSTDELX ;
61 Q
62 ;
63BFT ; 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
82BFTX ;
83 Q
84 ;
Note: See TracBrowser for help on using the repository browser.