APCDL ; IHS/CMI/LAB - List Template Exporter ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;; ;
W !,"'APCD EL HISTORICAL ITEMS' List Template..."
S DA=$O(^SD(409.61,"B","APCD EL HISTORICAL ITEMS",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="APCD EL HISTORICAL ITEMS" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="APCD EL HISTORICAL ITEMS^1^^80^7^20^1^1^Historical Patient Data^APCDEL HISTORICAL MENU^Historical Patient Data^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEL"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^APCDEL"
.S ^SD(409.61,VALM,"HDR")="D HDR^APCDEL"
.S ^SD(409.61,VALM,"HLP")="D HELP^APCDEL"
.S ^SD(409.61,VALM,"INIT")="D INIT3^APCDEL"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'APCD EL PCC DATA ENTRY' List Template..."
S DA=$O(^SD(409.61,"B","APCD EL PCC DATA ENTRY",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="APCD EL PCC DATA ENTRY" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="APCD EL PCC DATA ENTRY^1^^80^6^19^1^1^^APCDEL PCC VISIT UPDATE^PCC DATA ENTRY VISIT UPDATE^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEL"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^APCDEL"
.S ^SD(409.61,VALM,"HDR")="D HDR^APCDEL"
.S ^SD(409.61,VALM,"HLP")="D HELP^APCDEL"
.S ^SD(409.61,VALM,"INIT")="D INIT^APCDEL"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'APCD EL SECONDARY ITEMS' List Template..."
S DA=$O(^SD(409.61,"B","APCD EL SECONDARY ITEMS",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="APCD EL SECONDARY ITEMS" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="APCD EL SECONDARY ITEMS^1^^80^7^20^1^1^^APCDEL PCC SECONDARY MENU^PCC VISIT OTHER ITEMS^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEL"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^APCDEL"
.S ^SD(409.61,VALM,"HDR")="D HDR^APCDEL"
.S ^SD(409.61,VALM,"HLP")="D HELP^APCDEL"
.S ^SD(409.61,VALM,"INIT")="D INIT2^APCDEL"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'APCD HISTORICAL DATA ENTRY' List Template..."
S DA=$O(^SD(409.61,"B","APCD HISTORICAL DATA ENTRY",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="APCD HISTORICAL DATA ENTRY" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="APCD HISTORICAL DATA ENTRY^1^^80^7^20^1^1^Historical Patient Data^APCDEH HISTORICAL ITEMS MENU^Historical Patient Data^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEH"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^APCDEH"
.S ^SD(409.61,VALM,"HDR")="D HDR^APCDEH"
.S ^SD(409.61,VALM,"HLP")="D HELP^APCDEH"
.S ^SD(409.61,VALM,"INIT")="D INIT3^APCDEH"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'APCD PL PROBLEM LIST' List Template..."
S DA=$O(^SD(409.61,"B","APCD PL PROBLEM LIST",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="APCD PL PROBLEM LIST" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="APCD PL PROBLEM LIST^1^1^200^6^18^1^1^Problem^APCD PL PROBLEM LIST^Problem List Update^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" APCDPL"
.S ^SD(409.61,VALM,"FNL")="D EXIT^APCDPL"
.S ^SD(409.61,VALM,"HDR")="D HDR^APCDPL"
.S ^SD(409.61,VALM,"HLP")="D HELP^APCDPL"
.S ^SD(409.61,VALM,"INIT")="D INIT^APCDPL"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'APCD VISIT DISPLAY' List Template..."
S DA=$O(^SD(409.61,"B","APCD VISIT DISPLAY",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="APCD VISIT DISPLAY" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="APCD VISIT DISPLAY^1^^80^3^21^1^1^^APCD VISIT DISPLAY^PCC VISIT DISPLAY^1^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDVDSG"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^APCDVD"
.S ^SD(409.61,VALM,"HDR")="D HDR^APCDVD"
.S ^SD(409.61,VALM,"HLP")="D HELP^APCDVD"
.S ^SD(409.61,VALM,"INIT")="D INIT^APCDVD"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'APCDEF VISIT DISPLAY' List Template..."
S DA=$O(^SD(409.61,"B","APCDEF VISIT DISPLAY",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="APCDEF VISIT DISPLAY" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="APCDEF VISIT DISPLAY^1^^80^3^19^1^1^Visit Item^APCDEF VISIT EDIT MENU^PCC VISIT EDIT^4^^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEFG"",$J)"
.S ^SD(409.61,VALM,"FNL")="D EXIT^APCDEFL"
.S ^SD(409.61,VALM,"HDR")="D HDR^APCDEFL"
.S ^SD(409.61,VALM,"HLP")="D HELP^APCDEFL"
.S ^SD(409.61,VALM,"INIT")="D INIT^APCDEFL"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
G ^APCDL1
APCDL ; IHS/CMI/LAB - List Template Exporter ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;; ;
+3 WRITE !,"'APCD EL HISTORICAL ITEMS' List Template..."
+4 SET DA=$ORDER(^SD(409.61,"B","APCD EL HISTORICAL ITEMS",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+5 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="APCD EL HISTORICAL ITEMS"
DO FILE^DICN
SET VALM=+Y
+6 IF VALM>0
Begin DoDot:1
+7 SET ^SD(409.61,VALM,0)="APCD EL HISTORICAL ITEMS^1^^80^7^20^1^1^Historical Patient Data^APCDEL HISTORICAL MENU^Historical Patient Data^1^^1"
+8 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+9 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEL"",$J)"
+10 SET ^SD(409.61,VALM,"FNL")="D EXIT^APCDEL"
+11 SET ^SD(409.61,VALM,"HDR")="D HDR^APCDEL"
+12 SET ^SD(409.61,VALM,"HLP")="D HELP^APCDEL"
+13 SET ^SD(409.61,VALM,"INIT")="D INIT3^APCDEL"
+14 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+15 WRITE "Filed."
End DoDot:1
+16 ;
+17 WRITE !,"'APCD EL PCC DATA ENTRY' List Template..."
+18 SET DA=$ORDER(^SD(409.61,"B","APCD EL PCC DATA ENTRY",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+19 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="APCD EL PCC DATA ENTRY"
DO FILE^DICN
SET VALM=+Y
+20 IF VALM>0
Begin DoDot:1
+21 SET ^SD(409.61,VALM,0)="APCD EL PCC DATA ENTRY^1^^80^6^19^1^1^^APCDEL PCC VISIT UPDATE^PCC DATA ENTRY VISIT UPDATE^1^^1"
+22 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+23 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEL"",$J)"
+24 SET ^SD(409.61,VALM,"FNL")="D EXIT^APCDEL"
+25 SET ^SD(409.61,VALM,"HDR")="D HDR^APCDEL"
+26 SET ^SD(409.61,VALM,"HLP")="D HELP^APCDEL"
+27 SET ^SD(409.61,VALM,"INIT")="D INIT^APCDEL"
+28 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+29 WRITE "Filed."
End DoDot:1
+30 ;
+31 WRITE !,"'APCD EL SECONDARY ITEMS' List Template..."
+32 SET DA=$ORDER(^SD(409.61,"B","APCD EL SECONDARY ITEMS",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+33 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="APCD EL SECONDARY ITEMS"
DO FILE^DICN
SET VALM=+Y
+34 IF VALM>0
Begin DoDot:1
+35 SET ^SD(409.61,VALM,0)="APCD EL SECONDARY ITEMS^1^^80^7^20^1^1^^APCDEL PCC SECONDARY MENU^PCC VISIT OTHER ITEMS^1^^1"
+36 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+37 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEL"",$J)"
+38 SET ^SD(409.61,VALM,"FNL")="D EXIT^APCDEL"
+39 SET ^SD(409.61,VALM,"HDR")="D HDR^APCDEL"
+40 SET ^SD(409.61,VALM,"HLP")="D HELP^APCDEL"
+41 SET ^SD(409.61,VALM,"INIT")="D INIT2^APCDEL"
+42 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+43 WRITE "Filed."
End DoDot:1
+44 ;
+45 WRITE !,"'APCD HISTORICAL DATA ENTRY' List Template..."
+46 SET DA=$ORDER(^SD(409.61,"B","APCD HISTORICAL DATA ENTRY",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+47 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="APCD HISTORICAL DATA ENTRY"
DO FILE^DICN
SET VALM=+Y
+48 IF VALM>0
Begin DoDot:1
+49 SET ^SD(409.61,VALM,0)="APCD HISTORICAL DATA ENTRY^1^^80^7^20^1^1^Historical Patient Data^APCDEH HISTORICAL ITEMS MENU^Historical Patient Data^1^^1"
+50 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+51 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEH"",$J)"
+52 SET ^SD(409.61,VALM,"FNL")="D EXIT^APCDEH"
+53 SET ^SD(409.61,VALM,"HDR")="D HDR^APCDEH"
+54 SET ^SD(409.61,VALM,"HLP")="D HELP^APCDEH"
+55 SET ^SD(409.61,VALM,"INIT")="D INIT3^APCDEH"
+56 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+57 WRITE "Filed."
End DoDot:1
+58 ;
+59 WRITE !,"'APCD PL PROBLEM LIST' List Template..."
+60 SET DA=$ORDER(^SD(409.61,"B","APCD PL PROBLEM LIST",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+61 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="APCD PL PROBLEM LIST"
DO FILE^DICN
SET VALM=+Y
+62 IF VALM>0
Begin DoDot:1
+63 SET ^SD(409.61,VALM,0)="APCD PL PROBLEM LIST^1^1^200^6^18^1^1^Problem^APCD PL PROBLEM LIST^Problem List Update^1^^1"
+64 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+65 SET ^SD(409.61,VALM,"ARRAY")=" APCDPL"
+66 SET ^SD(409.61,VALM,"FNL")="D EXIT^APCDPL"
+67 SET ^SD(409.61,VALM,"HDR")="D HDR^APCDPL"
+68 SET ^SD(409.61,VALM,"HLP")="D HELP^APCDPL"
+69 SET ^SD(409.61,VALM,"INIT")="D INIT^APCDPL"
+70 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+71 WRITE "Filed."
End DoDot:1
+72 ;
+73 WRITE !,"'APCD VISIT DISPLAY' List Template..."
+74 SET DA=$ORDER(^SD(409.61,"B","APCD VISIT DISPLAY",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+75 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="APCD VISIT DISPLAY"
DO FILE^DICN
SET VALM=+Y
+76 IF VALM>0
Begin DoDot:1
+77 SET ^SD(409.61,VALM,0)="APCD VISIT DISPLAY^1^^80^3^21^1^1^^APCD VISIT DISPLAY^PCC VISIT DISPLAY^1^^1"
+78 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+79 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDVDSG"",$J)"
+80 SET ^SD(409.61,VALM,"FNL")="D EXIT^APCDVD"
+81 SET ^SD(409.61,VALM,"HDR")="D HDR^APCDVD"
+82 SET ^SD(409.61,VALM,"HLP")="D HELP^APCDVD"
+83 SET ^SD(409.61,VALM,"INIT")="D INIT^APCDVD"
+84 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+85 WRITE "Filed."
End DoDot:1
+86 ;
+87 WRITE !,"'APCDEF VISIT DISPLAY' List Template..."
+88 SET DA=$ORDER(^SD(409.61,"B","APCDEF VISIT DISPLAY",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+89 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="APCDEF VISIT DISPLAY"
DO FILE^DICN
SET VALM=+Y
+90 IF VALM>0
Begin DoDot:1
+91 SET ^SD(409.61,VALM,0)="APCDEF VISIT DISPLAY^1^^80^3^19^1^1^Visit Item^APCDEF VISIT EDIT MENU^PCC VISIT EDIT^4^^1"
+92 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+93 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""APCDEFG"",$J)"
+94 SET ^SD(409.61,VALM,"FNL")="D EXIT^APCDEFL"
+95 SET ^SD(409.61,VALM,"HDR")="D HDR^APCDEFL"
+96 SET ^SD(409.61,VALM,"HLP")="D HELP^APCDEFL"
+97 SET ^SD(409.61,VALM,"INIT")="D INIT^APCDEFL"
+98 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+99 WRITE "Filed."
End DoDot:1
+100 ;
+101 GOTO ^APCDL1
