source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQPSL.m@ 1000

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

initial load of WorldVistAEHR
File size: 3.5 KB
Line 
1VAQPSL ;ALB/List Manager - INITIALIZE ENTRIES IN LIST TEMPLATE FILE; 25-OCT-1993
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3 W !,"'VAQ DIS MIN NUPD' List Template..."
4 S DA=$O(^SD(409.61,"B","VAQ DIS MIN NUPD",0)),DIK="^SD(409.61," D ^DIK:DA
5 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="VAQ DIS MIN NUPD" D FILE^DICN S VALM=+Y
6 I VALM>0 D
7 .S ^SD(409.61,VALM,0)="VAQ DIS MIN NUPD^2^^^6^18^1^1^PDX MINIMAL^VAQ DIS1 (MENU)^PDX V1.5 - MINIMAL UPDATE^1"
8 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
9 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""VAQD1"",$J)"
10 .S ^SD(409.61,VALM,"COL",0)="^409.621^1^1"
11 .S ^SD(409.61,VALM,"COL",1,0)="LOCAL^2^25^Remote Patient Data"
12 .S ^SD(409.61,VALM,"FNL")="D EXIT^VAQLED07"
13 .S ^SD(409.61,VALM,"HDR")="D HD^VAQLED07"
14 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !"
15 .S ^SD(409.61,VALM,"INIT")="D INIT^VAQLED07"
16 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK
17 .W "Filed."
18 ;
19 W !,"'VAQ DIS MIN UPD' List Template..."
20 S DA=$O(^SD(409.61,"B","VAQ DIS MIN UPD",0)),DIK="^SD(409.61," D ^DIK:DA
21 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="VAQ DIS MIN UPD" D FILE^DICN S VALM=+Y
22 I VALM>0 D
23 .S ^SD(409.61,VALM,0)="VAQ DIS MIN UPD^1^^^6^18^1^1^PDX MINIMAL^VAQ PDX7 (MENU)^PDX V1.5 - MINIMAL UPDATE^1"
24 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
25 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""VAQD1"",$J)"
26 .S ^SD(409.61,VALM,"COL",0)="^409.621^1^1"
27 .S ^SD(409.61,VALM,"COL",1,0)="LOCAL^2^25^ Remote Patient Data"
28 .S ^SD(409.61,VALM,"FNL")="D EXIT^VAQLED07"
29 .S ^SD(409.61,VALM,"HDR")="D HD^VAQLED07"
30 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !"
31 .S ^SD(409.61,VALM,"INIT")="D INIT^VAQLED07"
32 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK
33 .W "Filed."
34 ;
35 W !,"'VAQ DIS PATIENT PDX9' List Template..."
36 S DA=$O(^SD(409.61,"B","VAQ DIS PATIENT PDX9",0)),DIK="^SD(409.61," D ^DIK:DA
37 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="VAQ DIS PATIENT PDX9" D FILE^DICN S VALM=+Y
38 I VALM>0 D
39 .S ^SD(409.61,VALM,0)="VAQ DIS PATIENT PDX9^1^^^6^18^1^1^Entry^VAQ PDX9 (MENU)^PDX V1.5 DISPLAY BY PATIENT^1"
40 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
41 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""VAQD1"",$J)"
42 .S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
43 .S ^SD(409.61,VALM,"COL",1,0)="ENTRY^2^7^Entry"
44 .S ^SD(409.61,VALM,"COL",2,0)="DOMAIN^11^29^Domain"
45 .S ^SD(409.61,VALM,"COL",3,0)="DATE^42^26^Date/Time"
46 .S ^SD(409.61,VALM,"COL",4,0)="TRNO^69^10^Trans No"
47 .S ^SD(409.61,VALM,"EXP")=""
48 .S ^SD(409.61,VALM,"FNL")="D EXIT^VAQDIS11"
49 .S ^SD(409.61,VALM,"HDR")="D HD^VAQDIS11"
50 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !"
51 .S ^SD(409.61,VALM,"INIT")="D INIT^VAQDIS11"
52 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK
53 .W "Filed."
54 ;
55 W !,"'VAQ DIS REQUESTOR PDX10' List Template..."
56 S DA=$O(^SD(409.61,"B","VAQ DIS REQUESTOR PDX10",0)),DIK="^SD(409.61," D ^DIK:DA
57 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="VAQ DIS REQUESTOR PDX10" D FILE^DICN S VALM=+Y
58 I VALM>0 D
59 .S ^SD(409.61,VALM,0)="VAQ DIS REQUESTOR PDX10^1^^^6^16^1^1^Entry^VAQ PDX10 (MENU)^PDX V1.5 DISPLAY BY REQUESTOR^1"
60 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
61 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""VAQD1"",$J)"
62 .S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
63 .S ^SD(409.61,VALM,"COL",1,0)="ENTRY^2^7^Entry"
64 .S ^SD(409.61,VALM,"COL",2,0)="DOMAIN^11^29^Domain\Patient"
65 .S ^SD(409.61,VALM,"COL",3,0)="DATE^42^26^Date/Time"
66 .S ^SD(409.61,VALM,"COL",4,0)="TRNO^69^10^Tran No"
67 .S ^SD(409.61,VALM,"FNL")="D EXIT^VAQDIS12"
68 .S ^SD(409.61,VALM,"HDR")="D HD^VAQDIS12"
69 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !"
70 .S ^SD(409.61,VALM,"INIT")="D INIT^VAQDIS12"
71 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK
72 .W "Filed."
73 ;
74 G ^VAQPSL1
Note: See TracBrowser for help on using the repository browser.