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

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

initial load of WorldVistAEHR
File size: 4.0 KB
Line 
1IBJYL2 ; List Template Exporter ; 04-JAN-1996
2 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
3 I VALM>0 D
4 .S ^SD(409.61,VALM,0)="IBJT BILL PROCEDURES^1^^80^5^17^1^1^Bill Procedures^IBJT BILL PROCEDURES MENU^Bill Procedures^1^^1"
5 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
6 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTBC"",$J)"
7 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTBC"
8 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTBC"
9 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTBC"
10 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTBC"
11 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
12 .W "Filed."
13 ;
14 W !,"'IBJT CLAIM INFO' List Template..."
15 S DA=$O(^SD(409.61,"B","IBJT CLAIM INFO",0)),DIK="^SD(409.61," D ^DIK:DA
16 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT CLAIM INFO" D FILE^DICN S VALM=+Y
17 I VALM>0 D
18 .S ^SD(409.61,VALM,0)="IBJT CLAIM INFO^1^^80^4^17^1^1^Claim Information^IBJT CLAIM SCREEN MENU^Claim Information^1^^1"
19 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
20 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTCA"",$J)"
21 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTCA"
22 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTCA"
23 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTCA"
24 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTCA"
25 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
26 .W "Filed."
27 ;
28 W !,"'IBJT CT/IR APPEALS/DENIALS' List Template..."
29 S DA=$O(^SD(409.61,"B","IBJT CT/IR APPEALS/DENIALS",0)),DIK="^SD(409.61," D ^DIK:DA
30 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT CT/IR APPEALS/DENIALS" D FILE^DICN S VALM=+Y
31 I VALM>0 D
32 .S ^SD(409.61,VALM,0)="IBJT CT/IR APPEALS/DENIALS^1^^80^4^21^1^1^Appeal/Denial^IBJT CT/IR REVIEWS/APPEALS MENU^Expanded Appeals/Denials^1^^1"
33 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
34 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBTRDD"",$J)"
35 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBTRDD"
36 .S ^SD(409.61,VALM,"HDR")="D HDR^IBTRDD"
37 .S ^SD(409.61,VALM,"HLP")="D HELP^IBTRDD"
38 .S ^SD(409.61,VALM,"INIT")="D INIT^IBTRDD"
39 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
40 .W "Filed."
41 ;
42 W !,"'IBJT CT/IR COMMUNICATIONS LIST' List Template..."
43 S DA=$O(^SD(409.61,"B","IBJT CT/IR COMMUNICATIONS LIST",0)),DIK="^SD(409.61," D ^DIK:DA
44 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT CT/IR COMMUNICATIONS LIST" D FILE^DICN S VALM=+Y
45 I VALM>0 D
46 .S ^SD(409.61,VALM,0)="IBJT CT/IR COMMUNICATIONS LIST^1^^132^4^17^1^1^Review/Contact^IBJT CT/IR COMMUNICATIONS LIST MENU^Insurance Reviews/Contacts^1^^1"
47 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
48 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBJTRA"",$J)"
49 .S ^SD(409.61,VALM,"COL",0)="^409.621^11^11"
50 .S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^4"
51 .S ^SD(409.61,VALM,"COL",2,0)="DATE^5^17^Date"
52 .S ^SD(409.61,VALM,"COL",3,0)="INS CO^16^18^Ins. Co.^^1"
53 .S ^SD(409.61,VALM,"COL",4,0)="GROUP^140^11^Group No."
54 .S ^SD(409.61,VALM,"COL",5,0)="ACTION^55^9^Action"
55 .S ^SD(409.61,VALM,"COL",6,0)="PRE-CERT^65^10^Auth. No."
56 .S ^SD(409.61,VALM,"COL",7,0)="DAYS^76^5^Days"
57 .S ^SD(409.61,VALM,"COL",8,0)="CONTACT^81^20^Person Contacted"
58 .S ^SD(409.61,VALM,"COL",9,0)="PHONE^103^14^Phone"
59 .S ^SD(409.61,VALM,"COL",10,0)="REF NO^119^12^Call Ref. No"
60 .S ^SD(409.61,VALM,"COL",11,0)="TYPE^36^17^Type Contact"
61 .S ^SD(409.61,VALM,"COL","AIDENT",1,3)=""
62 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBJTRA"
63 .S ^SD(409.61,VALM,"HDR")="D HDR^IBJTRA"
64 .S ^SD(409.61,VALM,"HLP")="D HELP^IBJTRA"
65 .S ^SD(409.61,VALM,"INIT")="D INIT^IBJTRA"
66 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
67 .W "Filed."
68 ;
69 W !,"'IBJT CT/IR REVIEWS' List Template..."
70 S DA=$O(^SD(409.61,"B","IBJT CT/IR REVIEWS",0)),DIK="^SD(409.61," D ^DIK:DA
71 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBJT CT/IR REVIEWS" D FILE^DICN S VALM=+Y
72 I VALM>0 D
73 .S ^SD(409.61,VALM,0)="IBJT CT/IR REVIEWS^1^^80^4^21^1^1^Review^IBJT CT/IR REVIEWS/APPEALS MENU^Expanded Insurance Reviews^1^^1"
74 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
75 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBTRCD"",$J)"
76 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBTRCD"
77 .S ^SD(409.61,VALM,"HDR")="D HDR^IBTRCD"
78 .S ^SD(409.61,VALM,"HLP")="D HELP^IBTRCD"
79 .S ^SD(409.61,VALM,"INIT")="D INIT^IBTRCD"
80 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
81 .W "Filed."
82 ;
83 G ^IBJYL3
Note: See TracBrowser for help on using the repository browser.