- DGVLT1 ; List Template Exporter ; 13-AUG-1993
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- ;; ;
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGJ DELETE RECORD" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="DGJ DELETE RECORD^2^^^5^17^1^1^Deficiencie^^Record to Delete^2"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJRPT"",$J)"
- .S ^SD(409.61,VALM,"FNL")="D QUIT1^DGJTVW1"
- .S ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- .S ^SD(409.61,VALM,"INIT")="D EN2^DGJTVW"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'DGJ DELETE SINGLE' List Template..."
- S DA=$O(^SD(409.61,"B","DGJ DELETE SINGLE",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGJ DELETE SINGLE" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="DGJ DELETE SINGLE^1^^80^5^17^1^1^Deficiencie^DGJ DELETE MENU^Delete an IRT List^1"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJDEF"",$J)"
- .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
- .S ^SD(409.61,VALM,"COL",1,0)="DEFICIENCY^5^12^Deficiency"
- .S ^SD(409.61,VALM,"COL",2,0)="PHYSICIAN^19^10^Physician"
- .S ^SD(409.61,VALM,"COL",3,0)="STATUS^37^10^Status"
- .S ^SD(409.61,VALM,"COL",4,0)="CATEGORY^50^10^Category"
- .S ^SD(409.61,VALM,"COL",5,0)="EVENT DATE^62^18^Event Date"
- .S ^SD(409.61,VALM,"FNL")="D FNL^DGJTEE"
- .S ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- .S ^SD(409.61,VALM,"HLP")="D HLP^DGJTHLP"
- .S ^SD(409.61,VALM,"INIT")="D EN^DGJTEE"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'DGJ DELETE SUPER' List Template..."
- S DA=$O(^SD(409.61,"B","DGJ DELETE SUPER",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGJ DELETE SUPER" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="DGJ DELETE SUPER^1^^80^5^17^1^1^Deficiencie^DGJ DELETE MENU^Delete an IRT^1"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJDEF"",$J)"
- .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
- .S ^SD(409.61,VALM,"COL",1,0)="DEFICIENCY^5^12^Deficiency"
- .S ^SD(409.61,VALM,"COL",2,0)="PHYSICIAN^19^10^Physician"
- .S ^SD(409.61,VALM,"COL",3,0)="STATUS^37^10^Status"
- .S ^SD(409.61,VALM,"COL",4,0)="CATEGORY^50^10^Category"
- .S ^SD(409.61,VALM,"COL",5,0)="EVENT DATE^62^18^Event Date"
- .S ^SD(409.61,VALM,"FNL")=""
- .S ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- .S ^SD(409.61,VALM,"HLP")="D HLP^DGJTHLP"
- .S ^SD(409.61,VALM,"INIT")="D EVDT^DGJTEE"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'DGJ ENTER/EDIT DEF. PARMS.' List Template..."
- S DA=$O(^SD(409.61,"B","DGJ ENTER/EDIT DEF. PARMS.",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGJ ENTER/EDIT DEF. PARMS." D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="DGJ ENTER/EDIT DEF. PARMS.^1^^^5^17^1^1^Deficiencie^DGJ IRT PARM ENTER/EDIT MENU^Deficiency Parameter List^2"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJDEF"",$J)"
- .S ^SD(409.61,VALM,"COL",0)="^409.621^6^4"
- .S ^SD(409.61,VALM,"COL",1,0)="DEFICIENCY^5^20^Deficiency^"
- .S ^SD(409.61,VALM,"COL",4,0)="CATEGORY^60^20^Category"
- .S ^SD(409.61,VALM,"COL",5,0)="TRACK DEF^28^12^Track Def.?"
- .S ^SD(409.61,VALM,"COL",6,0)="STANDARD DEF^44^14^Standard Def.?"
- .S ^SD(409.61,VALM,"FNL")="D QUIT^DGJPAR1"
- .S ^SD(409.61,VALM,"HDR")=""
- .S ^SD(409.61,VALM,"HLP")="D HLP^DGJTHLP"
- .S ^SD(409.61,VALM,"INIT")="D EVDT^DGJPAR1"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'DGJ EXP ENTRY' List Template..."
- S DA=$O(^SD(409.61,"B","DGJ EXP ENTRY",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGJ EXP ENTRY" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="DGJ EXP ENTRY^2^^^5^17^1^1^Deficiencie^^Expanded Entry^2"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJRPT"",$J)"
- .S ^SD(409.61,VALM,"FNL")="D QUIT1^DGJTVW1"
- .S ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- .S ^SD(409.61,VALM,"INIT")="D EN2^DGJTVW"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- W !,"'DGJ IRT REC EDIT' List Template..."
- S DA=$O(^SD(409.61,"B","DGJ IRT REC EDIT",0)),DIK="^SD(409.61," D ^DIK:DA
- K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGJ IRT REC EDIT" D FILE^DICN S VALM=+Y
- I VALM>0 D
- .S ^SD(409.61,VALM,0)="DGJ IRT REC EDIT^1^^^5^17^1^1^Report^DGJ IRT SUMMARIES^Edit IRT Record^3"
- .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJRPT"",$J)"
- .S ^SD(409.61,VALM,"COL",0)="^409.621^^0"
- .S ^SD(409.61,VALM,"FNL")="D QUIT1^DGJTVW1"
- .S ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- .S ^SD(409.61,VALM,"HLP")="D HLP1^DGJTHLP"
- .S ^SD(409.61,VALM,"INIT")="D ^DGJTVW1"
- .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
- .W "Filed."
- ;
- G ^DGVLT2
- DGVLT1 ; List Template Exporter ; 13-AUG-1993
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- +2 ;; ;
- +3 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="DGJ DELETE RECORD"
- DO FILE^DICN
- SET VALM=+Y
- +4 IF VALM>0
- Begin DoDot:1
- +5 SET ^SD(409.61,VALM,0)="DGJ DELETE RECORD^2^^^5^17^1^1^Deficiencie^^Record to Delete^2"
- +6 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +7 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJRPT"",$J)"
- +8 SET ^SD(409.61,VALM,"FNL")="D QUIT1^DGJTVW1"
- +9 SET ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- +10 SET ^SD(409.61,VALM,"INIT")="D EN2^DGJTVW"
- +11 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +12 WRITE "Filed."
- End DoDot:1
- +13 ;
- +14 WRITE !,"'DGJ DELETE SINGLE' List Template..."
- +15 SET DA=$ORDER(^SD(409.61,"B","DGJ DELETE SINGLE",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +16 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="DGJ DELETE SINGLE"
- DO FILE^DICN
- SET VALM=+Y
- +17 IF VALM>0
- Begin DoDot:1
- +18 SET ^SD(409.61,VALM,0)="DGJ DELETE SINGLE^1^^80^5^17^1^1^Deficiencie^DGJ DELETE MENU^Delete an IRT List^1"
- +19 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +20 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJDEF"",$J)"
- +21 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
- +22 SET ^SD(409.61,VALM,"COL",1,0)="DEFICIENCY^5^12^Deficiency"
- +23 SET ^SD(409.61,VALM,"COL",2,0)="PHYSICIAN^19^10^Physician"
- +24 SET ^SD(409.61,VALM,"COL",3,0)="STATUS^37^10^Status"
- +25 SET ^SD(409.61,VALM,"COL",4,0)="CATEGORY^50^10^Category"
- +26 SET ^SD(409.61,VALM,"COL",5,0)="EVENT DATE^62^18^Event Date"
- +27 SET ^SD(409.61,VALM,"FNL")="D FNL^DGJTEE"
- +28 SET ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- +29 SET ^SD(409.61,VALM,"HLP")="D HLP^DGJTHLP"
- +30 SET ^SD(409.61,VALM,"INIT")="D EN^DGJTEE"
- +31 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +32 WRITE "Filed."
- End DoDot:1
- +33 ;
- +34 WRITE !,"'DGJ DELETE SUPER' List Template..."
- +35 SET DA=$ORDER(^SD(409.61,"B","DGJ DELETE SUPER",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +36 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="DGJ DELETE SUPER"
- DO FILE^DICN
- SET VALM=+Y
- +37 IF VALM>0
- Begin DoDot:1
- +38 SET ^SD(409.61,VALM,0)="DGJ DELETE SUPER^1^^80^5^17^1^1^Deficiencie^DGJ DELETE MENU^Delete an IRT^1"
- +39 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +40 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJDEF"",$J)"
- +41 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
- +42 SET ^SD(409.61,VALM,"COL",1,0)="DEFICIENCY^5^12^Deficiency"
- +43 SET ^SD(409.61,VALM,"COL",2,0)="PHYSICIAN^19^10^Physician"
- +44 SET ^SD(409.61,VALM,"COL",3,0)="STATUS^37^10^Status"
- +45 SET ^SD(409.61,VALM,"COL",4,0)="CATEGORY^50^10^Category"
- +46 SET ^SD(409.61,VALM,"COL",5,0)="EVENT DATE^62^18^Event Date"
- +47 SET ^SD(409.61,VALM,"FNL")=""
- +48 SET ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- +49 SET ^SD(409.61,VALM,"HLP")="D HLP^DGJTHLP"
- +50 SET ^SD(409.61,VALM,"INIT")="D EVDT^DGJTEE"
- +51 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +52 WRITE "Filed."
- End DoDot:1
- +53 ;
- +54 WRITE !,"'DGJ ENTER/EDIT DEF. PARMS.' List Template..."
- +55 SET DA=$ORDER(^SD(409.61,"B","DGJ ENTER/EDIT DEF. PARMS.",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +56 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="DGJ ENTER/EDIT DEF. PARMS."
- DO FILE^DICN
- SET VALM=+Y
- +57 IF VALM>0
- Begin DoDot:1
- +58 SET ^SD(409.61,VALM,0)="DGJ ENTER/EDIT DEF. PARMS.^1^^^5^17^1^1^Deficiencie^DGJ IRT PARM ENTER/EDIT MENU^Deficiency Parameter List^2"
- +59 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +60 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJDEF"",$J)"
- +61 SET ^SD(409.61,VALM,"COL",0)="^409.621^6^4"
- +62 SET ^SD(409.61,VALM,"COL",1,0)="DEFICIENCY^5^20^Deficiency^"
- +63 SET ^SD(409.61,VALM,"COL",4,0)="CATEGORY^60^20^Category"
- +64 SET ^SD(409.61,VALM,"COL",5,0)="TRACK DEF^28^12^Track Def.?"
- +65 SET ^SD(409.61,VALM,"COL",6,0)="STANDARD DEF^44^14^Standard Def.?"
- +66 SET ^SD(409.61,VALM,"FNL")="D QUIT^DGJPAR1"
- +67 SET ^SD(409.61,VALM,"HDR")=""
- +68 SET ^SD(409.61,VALM,"HLP")="D HLP^DGJTHLP"
- +69 SET ^SD(409.61,VALM,"INIT")="D EVDT^DGJPAR1"
- +70 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +71 WRITE "Filed."
- End DoDot:1
- +72 ;
- +73 WRITE !,"'DGJ EXP ENTRY' List Template..."
- +74 SET DA=$ORDER(^SD(409.61,"B","DGJ EXP ENTRY",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="DGJ EXP ENTRY"
- DO FILE^DICN
- SET VALM=+Y
- +76 IF VALM>0
- Begin DoDot:1
- +77 SET ^SD(409.61,VALM,0)="DGJ EXP ENTRY^2^^^5^17^1^1^Deficiencie^^Expanded Entry^2"
- +78 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +79 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJRPT"",$J)"
- +80 SET ^SD(409.61,VALM,"FNL")="D QUIT1^DGJTVW1"
- +81 SET ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- +82 SET ^SD(409.61,VALM,"INIT")="D EN2^DGJTVW"
- +83 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +84 WRITE "Filed."
- End DoDot:1
- +85 ;
- +86 WRITE !,"'DGJ IRT REC EDIT' List Template..."
- +87 SET DA=$ORDER(^SD(409.61,"B","DGJ IRT REC EDIT",0))
- SET DIK="^SD(409.61,"
- IF DA
- DO ^DIK
- +88 KILL DO,DD
- SET DIC(0)="L"
- SET DIC="^SD(409.61,"
- SET X="DGJ IRT REC EDIT"
- DO FILE^DICN
- SET VALM=+Y
- +89 IF VALM>0
- Begin DoDot:1
- +90 SET ^SD(409.61,VALM,0)="DGJ IRT REC EDIT^1^^^5^17^1^1^Report^DGJ IRT SUMMARIES^Edit IRT Record^3"
- +91 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
- +92 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJRPT"",$J)"
- +93 SET ^SD(409.61,VALM,"COL",0)="^409.621^^0"
- +94 SET ^SD(409.61,VALM,"FNL")="D QUIT1^DGJTVW1"
- +95 SET ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
- +96 SET ^SD(409.61,VALM,"HLP")="D HLP1^DGJTHLP"
- +97 SET ^SD(409.61,VALM,"INIT")="D ^DGJTVW1"
- +98 SET DA=VALM
- SET DIK="^SD(409.61,"
- DO IX1^DIK
- KILL DA,DIK
- +99 WRITE "Filed."
- End DoDot:1
- +100 ;
- +101 GOTO ^DGVLT2