source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDVLT.m@ 862

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

initial load of WorldVistAEHR
File size: 4.2 KB
RevLine 
[613]1SDVLT ; List Template Exporter ; 13-AUG-1993
2 ;;5.3;Scheduling;;Aug 13, 1993
3 ;; ;
4 W !,"'SD PARM PARAMETERS' List Template..."
5 S DA=$O(^SD(409.61,"B","SD PARM PARAMETERS",0)),DIK="^SD(409.61," D ^DIK:DA
6 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SD PARM PARAMETERS" D FILE^DICN S VALM=+Y
7 I VALM>0 D
8 .S ^SD(409.61,VALM,0)="SD PARM PARAMETERS^1^^^2^17^1^1^PARAMETERS^SD PARM PARAMETERS MENU^Scheduling Parameters^2"
9 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
10 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDPARM"",$J)"
11 .S ^SD(409.61,VALM,"FNL")="D QUIT^SDPARM"
12 .S ^SD(409.61,VALM,"HLP")="D HLP^SDAM5"
13 .S ^SD(409.61,VALM,"INIT")="D EN^SDPARM"
14 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
15 .W "Filed."
16 ;
17 W !,"'SDAM APPT MGT' List Template..."
18 S DA=$O(^SD(409.61,"B","SDAM APPT MGT",0)),DIK="^SD(409.61," D ^DIK:DA
19 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDAM APPT MGT" D FILE^DICN S VALM=+Y
20 I VALM>0 D
21 .S ^SD(409.61,VALM,0)="SDAM APPT MGT^1^1^80^5^14^1^1^Appointment^SDAM MENU^Appt Mgt Module^1^999"
22 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
23 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDAM"",$J)"
24 .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
25 .S ^SD(409.61,VALM,"COL",1,0)="NAME^9^22^Patient or Clinic"
26 .S ^SD(409.61,VALM,"COL",2,0)="DATE^32^20^Appt Date/Time"
27 .S ^SD(409.61,VALM,"COL",3,0)="STAT^53^22^Status"
28 .S ^SD(409.61,VALM,"COL",4,0)="APPT#^5^3"
29 .S ^SD(409.61,VALM,"COL",5,0)="TIME^76^5"
30 .S ^SD(409.61,VALM,"EXP")="D EN^SDAMEP"
31 .S ^SD(409.61,VALM,"FNL")="D FNL^SDAM"
32 .S ^SD(409.61,VALM,"HDR")="D HDR^SDAM"
33 .S ^SD(409.61,VALM,"HLP")="D HLP^SDAM5"
34 .S ^SD(409.61,VALM,"INIT")="D INIT^SDAM"
35 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
36 .W "Filed."
37 ;
38 W !,"'SDAM APPT PROFILE' List Template..."
39 S DA=$O(^SD(409.61,"B","SDAM APPT PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
40 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDAM APPT PROFILE" D FILE^DICN S VALM=+Y
41 I VALM>0 D
42 .S ^SD(409.61,VALM,0)="SDAM APPT PROFILE^2^^^5^17^1^1^^^Expanded Profile^2"
43 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDAMEP"",$J)"
44 .S ^SD(409.61,VALM,"EXP")=""
45 .S ^SD(409.61,VALM,"FNL")="D FNL^SDAMEP"
46 .S ^SD(409.61,VALM,"HDR")="D HDR^SDAMEP"
47 .S ^SD(409.61,VALM,"HLP")="D HLP^SDAM5"
48 .S ^SD(409.61,VALM,"INIT")="D INIT^SDAMEP"
49 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
50 .W "Filed."
51 ;
52 W !,"'SDCO CHECK OUT' List Template..."
53 S DA=$O(^SD(409.61,"B","SDCO CHECK OUT",0)),DIK="^SD(409.61," D ^DIK:DA
54 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDCO CHECK OUT" D FILE^DICN S VALM=+Y
55 I VALM>0 D
56 .S ^SD(409.61,VALM,0)="SDCO CHECK OUT^1^^80^5^17^1^1^^SDCO MENU^Check Out^1"
57 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
58 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDCO"",$J)"
59 .S ^SD(409.61,VALM,"COL",0)="^409.621^^0"
60 .S ^SD(409.61,VALM,"FNL")="D EXIT^SDCO"
61 .S ^SD(409.61,VALM,"HDR")="D HDR^SDCO"
62 .S ^SD(409.61,VALM,"HLP")="D HELP^SDCO"
63 .S ^SD(409.61,VALM,"INIT")="D INIT^SDCO"
64 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
65 .W "Filed."
66 ;
67 W !,"'SDPP PATIENT PROFILE' List Template..."
68 S DA=$O(^SD(409.61,"B","SDPP PATIENT PROFILE",0)),DIK="^SD(409.61," D ^DIK:DA
69 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDPP PATIENT PROFILE" D FILE^DICN S VALM=+Y
70 I VALM>0 D
71 .S ^SD(409.61,VALM,0)="SDPP PATIENT PROFILE^1^^^4^16^1^1^^SDPP PATIENT PROFILE MENU^Patient Profile"
72 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
73 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDPP"",$J)"
74 .S ^SD(409.61,VALM,"FNL")="D QUIT^SDPP,CLEAR^VALM1"
75 .S ^SD(409.61,VALM,"HDR")="D HDR^SDPP"
76 .S ^SD(409.61,VALM,"HLP")="S VAR=""HELPTXT"" D HLP^SDPPHLP"
77 .S ^SD(409.61,VALM,"INIT")="D INIT^SDPP"
78 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
79 .W "Filed."
80 ;
81 W !,"'SDPP PATIENT PROFILE ALL' List Template..."
82 S DA=$O(^SD(409.61,"B","SDPP PATIENT PROFILE ALL",0)),DIK="^SD(409.61," D ^DIK:DA
83 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SDPP PATIENT PROFILE ALL" D FILE^DICN S VALM=+Y
84 I VALM>0 D
85 .S ^SD(409.61,VALM,0)="SDPP PATIENT PROFILE ALL^2^^^4^16^1^1^^^Display Information"
86 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""SDPPALL"",$J)"
87 .S ^SD(409.61,VALM,"FNL")="D QUIT^SDPPALL"
88 .S ^SD(409.61,VALM,"HDR")="D HDR^SDPP"
89 .S ^SD(409.61,VALM,"HLP")="S VAR=""HLPTXT1"" D HLP^SDPPHLP"
90 .S ^SD(409.61,VALM,"INIT")="D INIT^SDPPALL"
91 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
92 .W "Filed."
93 ;
94 K DIC,DIK,VALM,X,DA Q
Note: See TracBrowser for help on using the repository browser.