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

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

initial load of WorldVistAEHR
File size: 3.8 KB
RevLine 
[613]1IB20PT45 ;ALB/CPM - List Template Exporter ; 21-MAR-1994
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 I VALM>0 D
4 .S ^SD(409.61,VALM,0)="IBDF EDIT TOOL KIT BLOCKS^1^^160^4^20^1^1^TOOL KIT BLOCK^IBDF EDIT TOOL KIT BLOCKS MENU^EDIT TOOL KIT BLOCKS^1"
5 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
6 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDF"",$J,""TOOL KIT BLOCK LIST"")"
7 .S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
8 .S ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
9 .S ^SD(409.61,VALM,"COL",2,0)="BLOCK NAME^6^30^BLOCK NAME"
10 .S ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^43^80^BRIEF DESCRIPTION"
11 .S ^SD(409.61,VALM,"COL",4,0)="TK ORDER^38^4^TK#"
12 .S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
13 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBDF7"
14 .S ^SD(409.61,VALM,"HLP")="D HELP^IBDF7"
15 .S ^SD(409.61,VALM,"INIT")="D INIT^IBDF7"
16 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
17 .W "Filed."
18 ;
19 W !,"'IBDF FORM BLOCK EDIT' List Template..."
20 S DA=$O(^SD(409.61,"B","IBDF FORM BLOCK EDIT",0)),DIK="^SD(409.61," D ^DIK:DA
21 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF FORM BLOCK EDIT" D FILE^DICN S VALM=+Y
22 I VALM>0 D
23 .S ^SD(409.61,VALM,0)="IBDF FORM BLOCK EDIT^1^^200^4^18^1^1^FORM BLOCK^IBDF EDIT FORM BLOCK MENU^EDITING A FORM BLOCK^1"
24 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
25 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""FORM BLOCK"")"
26 .S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
27 .S ^SD(409.61,VALM,"COL",1,0)="ROW^1^3^^^1"
28 .S ^SD(409.61,VALM,"COL",2,0)="BLOCK LEFT SIDE^5^80^123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789"
29 .S ^SD(409.61,VALM,"COL",3,0)="BLOCK RIGHT SIDE^85^80^123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789"
30 .S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
31 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBDF9"
32 .S ^SD(409.61,VALM,"HDR")="D HDR^IBDF9"
33 .S ^SD(409.61,VALM,"HLP")="W """""
34 .S ^SD(409.61,VALM,"INIT")="D INIT^IBDF9"
35 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
36 .W "Filed."
37 ;
38 W !,"'IBDF TOOL KIT BLOCK LIST' List Template..."
39 S DA=$O(^SD(409.61,"B","IBDF TOOL KIT BLOCK LIST",0)),DIK="^SD(409.61," D ^DIK:DA
40 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF TOOL KIT BLOCK LIST" D FILE^DICN S VALM=+Y
41 I VALM>0 D
42 .S ^SD(409.61,VALM,0)="IBDF TOOL KIT BLOCK LIST^1^^160^4^20^1^1^TOOL KIT BLOCK^IBDF MENU FOR ADDING TOOL KIT BLOCK^LIST OF TOOL KIT BLOCKS^1"
43 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
44 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBDF"",$J,""TOOL KIT BLOCK LIST"")"
45 .S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
46 .S ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
47 .S ^SD(409.61,VALM,"COL",2,0)="BLOCK NAME^6^30^BLOCK NAME"
48 .S ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^37^80^BRIEF DESCRIPTION"
49 .S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
50 .S ^SD(409.61,VALM,"FNL")="D EXIT^IBDF7"
51 .S ^SD(409.61,VALM,"HDR")=""
52 .S ^SD(409.61,VALM,"HLP")="D HELP^IBDF7"
53 .S ^SD(409.61,VALM,"INIT")="D INIT^IBDF7"
54 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
55 .W "Filed."
56 ;
57 W !,"'IBDF TOOL KIT FORMS' List Template..."
58 S DA=$O(^SD(409.61,"B","IBDF TOOL KIT FORMS",0)),DIK="^SD(409.61," D ^DIK:DA
59 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBDF TOOL KIT FORMS" D FILE^DICN S VALM=+Y
60 I VALM>0 D
61 .S ^SD(409.61,VALM,0)="IBDF TOOL KIT FORMS^1^^123^5^20^1^1^FORM^IBDF TOOL KIT FORMS MENU^LIST OF TOOL KIT FORMS^1"
62 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
63 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IB"",$J,""FORM LIST"")"
64 .S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
65 .S ^SD(409.61,VALM,"COL",1,0)="ID^1^3^^R^1"
66 .S ^SD(409.61,VALM,"COL",2,0)="FORM NAME^6^30^FORM NAME"
67 .S ^SD(409.61,VALM,"COL",3,0)="BRIEF DESCRIPTION^38^80^BRIEF DESCRIPTION^H"
68 .S ^SD(409.61,VALM,"COL","AIDENT",1,1)=""
69 .S ^SD(409.61,VALM,"FNL")="D ONEXIT^IBDF12"
70 .S ^SD(409.61,VALM,"HDR")=""
71 .S ^SD(409.61,VALM,"HLP")="W """""
72 .S ^SD(409.61,VALM,"INIT")="D ONENTRY^IBDF12"
73 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
74 .W "Filed."
75 ;
76 G ^IB20PT46
Note: See TracBrowser for help on using the repository browser.