source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20PT4.m@ 1671

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

initial load of FOIAVistA 6/30/08 version
File size: 3.6 KB
Line 
1IB20PT4 ;ALB/CPM - List Template Exporter ; 21-MAR-1994
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 W !!,">>> Installing List Templates...",!
4 W !,"'IB CHARGES' List Template..."
5 S DA=$O(^SD(409.61,"B","IB CHARGES",0)),DIK="^SD(409.61," D ^DIK:DA
6 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IB CHARGES" D FILE^DICN S VALM=+Y
7 I VALM>0 D
8 .S ^SD(409.61,VALM,0)="IB CHARGES^1^1^80^5^14^1^1^Charge^IBACM1 MENU^Charges^1^32"
9 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
10 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBACM"",$J)"
11 .S ^SD(409.61,VALM,"COL",0)="^409.621^7^7"
12 .S ^SD(409.61,VALM,"COL",1,0)="CHARGE^71^9^Charge"
13 .S ^SD(409.61,VALM,"COL",2,0)="FDATE^4^9^Bill From"
14 .S ^SD(409.61,VALM,"COL",3,0)="ENTRY^25^23^Charge Type"
15 .S ^SD(409.61,VALM,"COL",4,0)="STATUS^57^12^Status"
16 .S ^SD(409.61,VALM,"COL",5,0)="CHG#^1^3"
17 .S ^SD(409.61,VALM,"COL",6,0)="BILL#^49^6^Bill #"
18 .S ^SD(409.61,VALM,"COL",7,0)="TDATE^15^8^Bill To"
19 .S ^SD(409.61,VALM,"FNL")="D FNL^IBECEA"
20 .S ^SD(409.61,VALM,"HDR")="D HDR^IBECEA"
21 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
22 .S ^SD(409.61,VALM,"INIT")="D INIT^IBECEA"
23 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
24 .W "Filed."
25 ;
26 W !,"'IB EVENTS' List Template..."
27 S DA=$O(^SD(409.61,"B","IB EVENTS",0)),DIK="^SD(409.61," D ^DIK:DA
28 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IB EVENTS" D FILE^DICN S VALM=+Y
29 I VALM>0 D
30 .S ^SD(409.61,VALM,0)="IB EVENTS^1^^80^5^14^1^1^Event^IBACME EVENT MENU^Update Events^1^^1"
31 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
32 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBACME"",$J)"
33 .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
34 .S ^SD(409.61,VALM,"COL",1,0)="TYPE^4^18^Event Type"
35 .S ^SD(409.61,VALM,"COL",2,0)="WARD^24^20^Ward"
36 .S ^SD(409.61,VALM,"COL",3,0)="EDATE^48^10^Event Date"
37 .S ^SD(409.61,VALM,"COL",4,0)="STATUS^60^7^Status"
38 .S ^SD(409.61,VALM,"COL",5,0)="LCALC^69^10^Last Calc"
39 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBECEA5"
40 .S ^SD(409.61,VALM,"HDR")="D HDR^IBECEA5"
41 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
42 .S ^SD(409.61,VALM,"INIT")="D INIT^IBECEA5"
43 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
44 .W "Filed."
45 ;
46 W !,"'IBCNS ANNUAL BENEFITS' List Template..."
47 S DA=$O(^SD(409.61,"B","IBCNS ANNUAL BENEFITS",0)),DIK="^SD(409.61," D ^DIK:DA
48 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBCNS ANNUAL BENEFITS" D FILE^DICN S VALM=+Y
49 I VALM>0 D
50 .S ^SD(409.61,VALM,0)="IBCNS ANNUAL BENEFITS^1^^98^5^18^1^1^Annual Benefits^IBCNSA ANNUAL BENEFITS^Annual Benefits Editor^1^^1"
51 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
52 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBCNSA"",$J)"
53 .S ^SD(409.61,VALM,"COL",0)="^409.621^^0"
54 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBCNSA K IBL"
55 .S ^SD(409.61,VALM,"HDR")="D HDR^IBCNSA(""Annual Benefits"")"
56 .S ^SD(409.61,VALM,"HLP")="D HELP^IBCNSA"
57 .S ^SD(409.61,VALM,"INIT")="S IBL=1 D INIT^IBCNSA"
58 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
59 .W "Filed."
60 ;
61 W !,"'IBCNS BENEFITS USED BY DATE' List Template..."
62 S DA=$O(^SD(409.61,"B","IBCNS BENEFITS USED BY DATE",0)),DIK="^SD(409.61," D ^DIK:DA
63 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBCNS BENEFITS USED BY DATE" D FILE^DICN S VALM=+Y
64 I VALM>0 D
65 .S ^SD(409.61,VALM,0)="IBCNS BENEFITS USED BY DATE^1^^98^5^18^1^1^Benefits Used by Date^IBCNSD BENEFITS USED BY DATE^Benefits Used By Date Editor^1^^1"
66 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
67 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBCNSD"",$J)"
68 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBCNSD"
69 .S ^SD(409.61,VALM,"HDR")="D HDR^IBCNSA(""Benefits Used"")"
70 .S ^SD(409.61,VALM,"HLP")=""
71 .S ^SD(409.61,VALM,"INIT")="D INIT^IBCNSD"
72 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
73 .W "Filed."
74 ;
75 G ^IB20PT41
Note: See TracBrowser for help on using the repository browser.