- 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
