DGVLT2 ; List Template Exporter ; 13-AUG-1993
;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
;; ;
W !,"'DGJ IRT REC ENTER' List Template..."
S DA=$O(^SD(409.61,"B","DGJ IRT REC ENTER",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGJ IRT REC ENTER" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="DGJ IRT REC ENTER^1^^^5^17^1^1^Record^DGJ IRT SUMMARIES^New IRT Record^2"
.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"
.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 ^DGJTVW1"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'DGJ IRT RECORD LIST' List Template..."
S DA=$O(^SD(409.61,"B","DGJ IRT RECORD LIST",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGJ IRT RECORD LIST" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="DGJ IRT RECORD LIST^1^^^5^17^1^1^Record^DGJ ENTER/EDIT RECORDS MENU^Incomplete Records 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^5^5"
.S ^SD(409.61,VALM,"COL",1,0)="RECORD TYPE^5^12^Record Type"
.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")="S DGJTREC=1 D EN^DGJTEE"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'DGPT A/P EDIT TEMPLATE' List Template..."
S DA=$O(^SD(409.61,"B","DGPT A/P EDIT TEMPLATE",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGPT A/P EDIT TEMPLATE" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="DGPT A/P EDIT TEMPLATE^1^^^6^16^1^1^PTF Record^DGPT A/P EDIT TMP^PTF Archive/Purge^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""ARCPTF"",$J,""LIST"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
.S ^SD(409.61,VALM,"COL",1,0)="PTF #^8^6^PTF #^H"
.S ^SD(409.61,VALM,"COL",2,0)="PATIENT^15^20^Patient Name^"
.S ^SD(409.61,VALM,"COL",3,0)="ADMISSION DATE^37^18^Adm Date/Time^"
.S ^SD(409.61,VALM,"COL",4,0)="DISCHARGE DATE^56^18^Dis Date/Time^"
.S ^SD(409.61,VALM,"COL",5,0)="STATUS^6^1^^H"
.S ^SD(409.61,VALM,"FNL")="D EXQ^DGPTLMU1"
.S ^SD(409.61,VALM,"HDR")="D EXHDR^DGPTLMU1"
.S ^SD(409.61,VALM,"INIT")="D EXINT^DGPTLMU1 Q:'VALMCNT"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'DGPT A/P MAIN SELECT' List Template..."
S DA=$O(^SD(409.61,"B","DGPT A/P MAIN SELECT",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGPT A/P MAIN SELECT" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="DGPT A/P MAIN SELECT^1^^^4^13^1^1^PTF Archive/Purge Template^DGPT A/P MAIN^PTF Archive/Purge Template^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""ARCPTF"",$J,""AP LIST"")"
.S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
.S ^SD(409.61,VALM,"COL",1,0)="DATE RANGE^8^30^Date Range"
.S ^SD(409.61,VALM,"COL",2,0)="STATUS^65^10^Status"
.S ^SD(409.61,VALM,"COL",3,0)="TOTAL RECORDS^45^12^# of Records"
.S ^SD(409.61,VALM,"FNL")="D TMPBYE^DGPTLMU2"
.S ^SD(409.61,VALM,"INIT")="D TMPINT^DGPTLMU2"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'DGPT CLOSE-OUT ERROR' List Template..."
S DA=$O(^SD(409.61,"B","DGPT CLOSE-OUT ERROR",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGPT CLOSE-OUT ERROR" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="DGPT CLOSE-OUT ERROR^2^^^6^17^1^1^^^PTF Close-Out Errors^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""AD"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^^0"
.S ^SD(409.61,VALM,"FNL")="D EXIT^DGPTAEE"
.S ^SD(409.61,VALM,"HDR")="D HDR^DGPTAEE"
.S ^SD(409.61,VALM,"INIT")="D EN^DGPTAEE"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
W !,"'DGPT DETAILED INQUIRY' List Template..."
S DA=$O(^SD(409.61,"B","DGPT DETAILED INQUIRY",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="DGPT DETAILED INQUIRY" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="DGPT DETAILED INQUIRY^2^^^6^17^1^1^^^PTF Detailed Inquiry^1"
.S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""ARCPTFDI"",$J)"
.S ^SD(409.61,VALM,"FNL")="D DIEX^DGPTLMU4"
.S ^SD(409.61,VALM,"HDR")="D DIHEAD^DGPTLMU4"
.S ^SD(409.61,VALM,"INIT")="D DIINT^DGPTLMU4"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.W "Filed."
;
G ^DGVLT3
DGVLT2 ; List Template Exporter ; 13-AUG-1993
+1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
+2 ;; ;
+3 WRITE !,"'DGJ IRT REC ENTER' List Template..."
+4 SET DA=$ORDER(^SD(409.61,"B","DGJ IRT REC ENTER",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="DGJ IRT REC ENTER"
DO FILE^DICN
SET VALM=+Y
+6 IF VALM>0
Begin DoDot:1
+7 SET ^SD(409.61,VALM,0)="DGJ IRT REC ENTER^1^^^5^17^1^1^Record^DGJ IRT SUMMARIES^New IRT Record^2"
+8 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+9 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJRPT"",$J)"
+10 SET ^SD(409.61,VALM,"COL",0)="^409.621"
+11 SET ^SD(409.61,VALM,"FNL")="D QUIT1^DGJTVW1"
+12 SET ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
+13 SET ^SD(409.61,VALM,"INIT")="D ^DGJTVW1"
+14 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+15 WRITE "Filed."
End DoDot:1
+16 ;
+17 WRITE !,"'DGJ IRT RECORD LIST' List Template..."
+18 SET DA=$ORDER(^SD(409.61,"B","DGJ IRT RECORD LIST",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="DGJ IRT RECORD LIST"
DO FILE^DICN
SET VALM=+Y
+20 IF VALM>0
Begin DoDot:1
+21 SET ^SD(409.61,VALM,0)="DGJ IRT RECORD LIST^1^^^5^17^1^1^Record^DGJ ENTER/EDIT RECORDS MENU^Incomplete Records List^2"
+22 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+23 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""DGJDEF"",$J)"
+24 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
+25 SET ^SD(409.61,VALM,"COL",1,0)="RECORD TYPE^5^12^Record Type"
+26 SET ^SD(409.61,VALM,"COL",2,0)="PHYSICIAN^19^10^Physician"
+27 SET ^SD(409.61,VALM,"COL",3,0)="STATUS^37^10^Status"
+28 SET ^SD(409.61,VALM,"COL",4,0)="CATEGORY^50^10^Category"
+29 SET ^SD(409.61,VALM,"COL",5,0)="EVENT DATE^62^18^Event Date"
+30 SET ^SD(409.61,VALM,"FNL")="D FNL^DGJTEE"
+31 SET ^SD(409.61,VALM,"HDR")="D HDR^DGJTEE"
+32 SET ^SD(409.61,VALM,"HLP")="D HLP^DGJTHLP"
+33 SET ^SD(409.61,VALM,"INIT")="S DGJTREC=1 D EN^DGJTEE"
+34 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+35 WRITE "Filed."
End DoDot:1
+36 ;
+37 WRITE !,"'DGPT A/P EDIT TEMPLATE' List Template..."
+38 SET DA=$ORDER(^SD(409.61,"B","DGPT A/P EDIT TEMPLATE",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+39 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="DGPT A/P EDIT TEMPLATE"
DO FILE^DICN
SET VALM=+Y
+40 IF VALM>0
Begin DoDot:1
+41 SET ^SD(409.61,VALM,0)="DGPT A/P EDIT TEMPLATE^1^^^6^16^1^1^PTF Record^DGPT A/P EDIT TMP^PTF Archive/Purge^1"
+42 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+43 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""ARCPTF"",$J,""LIST"")"
+44 SET ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
+45 SET ^SD(409.61,VALM,"COL",1,0)="PTF #^8^6^PTF #^H"
+46 SET ^SD(409.61,VALM,"COL",2,0)="PATIENT^15^20^Patient Name^"
+47 SET ^SD(409.61,VALM,"COL",3,0)="ADMISSION DATE^37^18^Adm Date/Time^"
+48 SET ^SD(409.61,VALM,"COL",4,0)="DISCHARGE DATE^56^18^Dis Date/Time^"
+49 SET ^SD(409.61,VALM,"COL",5,0)="STATUS^6^1^^H"
+50 SET ^SD(409.61,VALM,"FNL")="D EXQ^DGPTLMU1"
+51 SET ^SD(409.61,VALM,"HDR")="D EXHDR^DGPTLMU1"
+52 SET ^SD(409.61,VALM,"INIT")="D EXINT^DGPTLMU1 Q:'VALMCNT"
+53 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+54 WRITE "Filed."
End DoDot:1
+55 ;
+56 WRITE !,"'DGPT A/P MAIN SELECT' List Template..."
+57 SET DA=$ORDER(^SD(409.61,"B","DGPT A/P MAIN SELECT",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+58 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="DGPT A/P MAIN SELECT"
DO FILE^DICN
SET VALM=+Y
+59 IF VALM>0
Begin DoDot:1
+60 SET ^SD(409.61,VALM,0)="DGPT A/P MAIN SELECT^1^^^4^13^1^1^PTF Archive/Purge Template^DGPT A/P MAIN^PTF Archive/Purge Template^1"
+61 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+62 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""ARCPTF"",$J,""AP LIST"")"
+63 SET ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
+64 SET ^SD(409.61,VALM,"COL",1,0)="DATE RANGE^8^30^Date Range"
+65 SET ^SD(409.61,VALM,"COL",2,0)="STATUS^65^10^Status"
+66 SET ^SD(409.61,VALM,"COL",3,0)="TOTAL RECORDS^45^12^# of Records"
+67 SET ^SD(409.61,VALM,"FNL")="D TMPBYE^DGPTLMU2"
+68 SET ^SD(409.61,VALM,"INIT")="D TMPINT^DGPTLMU2"
+69 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+70 WRITE "Filed."
End DoDot:1
+71 ;
+72 WRITE !,"'DGPT CLOSE-OUT ERROR' List Template..."
+73 SET DA=$ORDER(^SD(409.61,"B","DGPT CLOSE-OUT ERROR",0))
SET DIK="^SD(409.61,"
IF DA
DO ^DIK
+74 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="DGPT CLOSE-OUT ERROR"
DO FILE^DICN
SET VALM=+Y
+75 IF VALM>0
Begin DoDot:1
+76 SET ^SD(409.61,VALM,0)="DGPT CLOSE-OUT ERROR^2^^^6^17^1^1^^^PTF Close-Out Errors^1"
+77 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+78 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""AD"",$J)"
+79 SET ^SD(409.61,VALM,"COL",0)="^409.621^^0"
+80 SET ^SD(409.61,VALM,"FNL")="D EXIT^DGPTAEE"
+81 SET ^SD(409.61,VALM,"HDR")="D HDR^DGPTAEE"
+82 SET ^SD(409.61,VALM,"INIT")="D EN^DGPTAEE"
+83 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+84 WRITE "Filed."
End DoDot:1
+85 ;
+86 WRITE !,"'DGPT DETAILED INQUIRY' List Template..."
+87 SET DA=$ORDER(^SD(409.61,"B","DGPT DETAILED INQUIRY",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="DGPT DETAILED INQUIRY"
DO FILE^DICN
SET VALM=+Y
+89 IF VALM>0
Begin DoDot:1
+90 SET ^SD(409.61,VALM,0)="DGPT DETAILED INQUIRY^2^^^6^17^1^1^^^PTF Detailed Inquiry^1"
+91 SET ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
+92 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""ARCPTFDI"",$J)"
+93 SET ^SD(409.61,VALM,"FNL")="D DIEX^DGPTLMU4"
+94 SET ^SD(409.61,VALM,"HDR")="D DIHEAD^DGPTLMU4"
+95 SET ^SD(409.61,VALM,"INIT")="D DIINT^DGPTLMU4"
+96 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+97 WRITE "Filed."
End DoDot:1
+98 ;
+99 GOTO ^DGVLT3
