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

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

initial load of WorldVistAEHR
File size: 4.0 KB
Line 
1IBJYL1 ; List Template Exporter ; 04-JAN-1996
2 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
3 W !,"'IBJT AR ACCOUNT PROFILE' List Template..."
4 S DA=$O(^SD(409.61,"B","IBJT AR ACCOUNT PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
5 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT AR ACCOUNT PROFILE" D FILE^DICN S VALM=+Y
6 I VALM>0 D
7 .S ^SD(409.61,VALM,0)="IBJT AR ACCOUNT PROFILE^1^^80^5^17^1^1^Transaction Profile^IBJT AR ACCOUNT PROFILE MENU^AR Account Profile^1^^1"
8 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
9 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTA"",$J)"
10 .S ^SD(409.61,VALM,"COL",0)="^409.621^6^6"
11 .S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^3"
12 .S ^SD(409.61,VALM,"COL",2,0)="TRNUM^4^8"
13 .S ^SD(409.61,VALM,"COL",3,0)="DATE^14^8"
14 .S ^SD(409.61,VALM,"COL",4,0)="TRTY^25^30"
15 .S ^SD(409.61,VALM,"COL",5,0)="TAMT^57^11"
16 .S ^SD(409.61,VALM,"COL",6,0)="CAMT^69^11"
17 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTA"
18 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTTA"
19 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTTA"
20 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTTA"
21 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
22 .W "Filed."
23 ;
24 W !,"'IBJT AR COMMENT HISTORY' List Template..."
25 S DA=$O(^SD(409.61,"B","IBJT AR COMMENT HISTORY",0)),DIK="^SD(409.61," D ^DIK:DA
26 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT AR COMMENT HISTORY" D FILE^DICN S VALM=+Y
27 I VALM>0 D
28 .S ^SD(409.61,VALM,0)="IBJT AR COMMENT HISTORY^1^^80^5^17^1^1^AR Comments^IBJT AR COMMENT HISTORY MENU^AR Comment History^1^^1"
29 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
30 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTC"",$J)"
31 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTC"
32 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTTC"
33 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTTC"
34 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTTC"
35 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
36 .W "Filed."
37 ;
38 W !,"'IBJT AR TRANSACTION PROFILE' List Template..."
39 S DA=$O(^SD(409.61,"B","IBJT AR TRANSACTION PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
40 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT AR TRANSACTION PROFILE" D FILE^DICN S VALM=+Y
41 I VALM>0 D
42 .S ^SD(409.61,VALM,0)="IBJT AR TRANSACTION PROFILE^1^^80^5^21^1^1^AR Transaction Profile^IBJT AR TRANSACTION PROFILE MENU^AR Transaction Profile^1^^1"
43 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
44 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTTB"",$J)"
45 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTTB"
46 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTTB"
47 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTTB"
48 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTTB"
49 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
50 .W "Filed."
51 ;
52 W !,"'IBJT BILL CHARGES' List Template..."
53 S DA=$O(^SD(409.61,"B","IBJT BILL CHARGES",0)),DIK="^SD(409.61," D ^DIK:DA
54 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT BILL CHARGES" D FILE^DICN S VALM=+Y
55 I VALM>0 D
56 .S ^SD(409.61,VALM,0)="IBJT BILL CHARGES^1^^80^5^17^1^1^Bill Charges^IBJT BILL CHARGES MENU^Bill Charges^1^^1"
57 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
58 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTBA"",$J)"
59 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTBA"
60 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTBA"
61 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTBA"
62 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTBA"
63 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
64 .W "Filed."
65 ;
66 W !,"'IBJT BILL DX' List Template..."
67 S DA=$O(^SD(409.61,"B","IBJT BILL DX",0)),DIK="^SD(409.61," D ^DIK:DA
68 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT BILL DX" D FILE^DICN S VALM=+Y
69 I VALM>0 D
70 .S ^SD(409.61,VALM,0)="IBJT BILL DX^1^^80^5^17^1^1^Bill Diagnosis^IBJT BILL DX MENU^Bill Diagnosis^1^^1"
71 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
72 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTBB"",$J)"
73 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTBB"
74 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTBB"
75 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTBB"
76 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTBB"
77 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
78 .W "Filed."
79 ;
80 W !,"'IBJT BILL PROCEDURES' List Template..."
81 S DA=$O(^SD(409.61,"B","IBJT BILL PROCEDURES",0)),DIK="^SD(409.61," D ^DIK:DA
82 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT BILL PROCEDURES" D FILE^DICN S VALM=+Y
83 G ^IBJYL2
Note: See TracBrowser for help on using the repository browser.