TIUIL ; List Template Exporter ; 20-JUN-1997
;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
D BMES^XPDUTL("'TIU BROWSE FOR CLINICIAN' List Template...")
S DA=$O(^SD(409.61,"B","TIU BROWSE FOR CLINICIAN",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU BROWSE FOR CLINICIAN" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIU BROWSE FOR CLINICIAN^1^^^5^17^1^1^Document^TIU BROWSE MENU CLINICIAN^Browse Document"
.S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
.S ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
.S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
.S ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'TIU BROWSE FOR MGR' List Template...")
S DA=$O(^SD(409.61,"B","TIU BROWSE FOR MGR",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU BROWSE FOR MGR" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIU BROWSE FOR MGR^1^^^5^18^1^1^Document^TIU BROWSE MENU MGR^Browse Document"
.S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
.S ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
.S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
.S ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'TIU BROWSE FOR MRT' List Template...")
S DA=$O(^SD(409.61,"B","TIU BROWSE FOR MRT",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU BROWSE FOR MRT" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIU BROWSE FOR MRT^1^^^5^18^1^1^^TIU BROWSE MENU MRT^Browse Document"
.S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
.S ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
.S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
.S ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'TIU BROWSE FOR READ ONLY' List Template...")
S DA=$O(^SD(409.61,"B","TIU BROWSE FOR READ ONLY",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU BROWSE FOR READ ONLY" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIU BROWSE FOR READ ONLY^1^^^5^18^1^1^Document^TIU BROWSE MENU READ ONLY^Browse Document"
.S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
.S ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
.S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
.S ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'TIU CHANGE TITLE' List Template...")
S DA=$O(^SD(409.61,"B","TIU CHANGE TITLE",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU CHANGE TITLE" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIU CHANGE TITLE^1^^^5^18^1^1^Document^TIU ACTION MENU CHANGE TITLE^Change Document Title"
.S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
.S ^SD(409.61,VALM,"FNL")="S VALMBCK=""Q"""
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
.S ^SD(409.61,VALM,"HLP")="D FULL^VALM1,PROTOCOL^TIUHELP S VALMBCK=""R"""
.S ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'TIU COMPLETE NOTES' List Template...")
S DA=$O(^SD(409.61,"B","TIU COMPLETE NOTES",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU COMPLETE NOTES" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIU COMPLETE NOTES^1^^^5^20^1^1^Progress Note^TIU COMPLETE NOTES MENU^Complete Notes"
.S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
.S ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
.S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
.S ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'TIU COPY DOCUMENT' List Template...")
S DA=$O(^SD(409.61,"B","TIU COPY DOCUMENT",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU COPY DOCUMENT" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIU COPY DOCUMENT^1^^^5^18^1^1^Document^TIU ACTION MENU COPY^Copy Document"
.S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
.S ^SD(409.61,VALM,"FNL")="S VALMBCK=""Q"""
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
.S ^SD(409.61,VALM,"HLP")="D FULL^VALM1,PROTOCOL^TIUHELP S VALMBCK=""R"""
.S ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
G ^TIUIL1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUIL 5148 printed Oct 16, 2024@18:42:25 Page 2
TIUIL ; List Template Exporter ; 20-JUN-1997
+1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
+2 DO BMES^XPDUTL("'TIU BROWSE FOR CLINICIAN' List Template...")
+3 SET DA=$ORDER(^SD(409.61,"B","TIU BROWSE FOR CLINICIAN",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+4 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="TIU BROWSE FOR CLINICIAN"
DO FILE^DICN
SET VALM=+Y
+5 IF VALM>0
Begin DoDot:1
+6 SET ^SD(409.61,VALM,0)="TIU BROWSE FOR CLINICIAN^1^^^5^17^1^1^Document^TIU BROWSE MENU CLINICIAN^Browse Document"
+7 SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
+8 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
+9 SET ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
+10 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
+11 SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
+12 SET ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
+13 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+14 DO MES^XPDUTL(" Filed.")
End DoDot:1
+15 ;
+16 DO BMES^XPDUTL("'TIU BROWSE FOR MGR' List Template...")
+17 SET DA=$ORDER(^SD(409.61,"B","TIU BROWSE FOR MGR",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+18 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="TIU BROWSE FOR MGR"
DO FILE^DICN
SET VALM=+Y
+19 IF VALM>0
Begin DoDot:1
+20 SET ^SD(409.61,VALM,0)="TIU BROWSE FOR MGR^1^^^5^18^1^1^Document^TIU BROWSE MENU MGR^Browse Document"
+21 SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
+22 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
+23 SET ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
+24 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
+25 SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
+26 SET ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
+27 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+28 DO MES^XPDUTL(" Filed.")
End DoDot:1
+29 ;
+30 DO BMES^XPDUTL("'TIU BROWSE FOR MRT' List Template...")
+31 SET DA=$ORDER(^SD(409.61,"B","TIU BROWSE FOR MRT",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+32 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="TIU BROWSE FOR MRT"
DO FILE^DICN
SET VALM=+Y
+33 IF VALM>0
Begin DoDot:1
+34 SET ^SD(409.61,VALM,0)="TIU BROWSE FOR MRT^1^^^5^18^1^1^^TIU BROWSE MENU MRT^Browse Document"
+35 SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
+36 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
+37 SET ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
+38 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
+39 SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
+40 SET ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
+41 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+42 DO MES^XPDUTL(" Filed.")
End DoDot:1
+43 ;
+44 DO BMES^XPDUTL("'TIU BROWSE FOR READ ONLY' List Template...")
+45 SET DA=$ORDER(^SD(409.61,"B","TIU BROWSE FOR READ ONLY",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+46 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="TIU BROWSE FOR READ ONLY"
DO FILE^DICN
SET VALM=+Y
+47 IF VALM>0
Begin DoDot:1
+48 SET ^SD(409.61,VALM,0)="TIU BROWSE FOR READ ONLY^1^^^5^18^1^1^Document^TIU BROWSE MENU READ ONLY^Browse Document"
+49 SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
+50 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
+51 SET ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
+52 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
+53 SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
+54 SET ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
+55 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+56 DO MES^XPDUTL(" Filed.")
End DoDot:1
+57 ;
+58 DO BMES^XPDUTL("'TIU CHANGE TITLE' List Template...")
+59 SET DA=$ORDER(^SD(409.61,"B","TIU CHANGE TITLE",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+60 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="TIU CHANGE TITLE"
DO FILE^DICN
SET VALM=+Y
+61 IF VALM>0
Begin DoDot:1
+62 SET ^SD(409.61,VALM,0)="TIU CHANGE TITLE^1^^^5^18^1^1^Document^TIU ACTION MENU CHANGE TITLE^Change Document Title"
+63 SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
+64 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
+65 SET ^SD(409.61,VALM,"FNL")="S VALMBCK=""Q"""
+66 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
+67 SET ^SD(409.61,VALM,"HLP")="D FULL^VALM1,PROTOCOL^TIUHELP S VALMBCK=""R"""
+68 SET ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
+69 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+70 DO MES^XPDUTL(" Filed.")
End DoDot:1
+71 ;
+72 DO BMES^XPDUTL("'TIU COMPLETE NOTES' List Template...")
+73 SET DA=$ORDER(^SD(409.61,"B","TIU COMPLETE NOTES",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="TIU COMPLETE NOTES"
DO FILE^DICN
SET VALM=+Y
+75 IF VALM>0
Begin DoDot:1
+76 SET ^SD(409.61,VALM,0)="TIU COMPLETE NOTES^1^^^5^20^1^1^Progress Note^TIU COMPLETE NOTES MENU^Complete Notes"
+77 SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
+78 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
+79 SET ^SD(409.61,VALM,"FNL")="D CLEAN^TIUBR"
+80 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
+81 SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"
+82 SET ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
+83 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+84 DO MES^XPDUTL(" Filed.")
End DoDot:1
+85 ;
+86 DO BMES^XPDUTL("'TIU COPY DOCUMENT' List Template...")
+87 SET DA=$ORDER(^SD(409.61,"B","TIU COPY DOCUMENT",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="TIU COPY DOCUMENT"
DO FILE^DICN
SET VALM=+Y
+89 IF VALM>0
Begin DoDot:1
+90 SET ^SD(409.61,VALM,0)="TIU COPY DOCUMENT^1^^^5^18^1^1^Document^TIU ACTION MENU COPY^Copy Document"
+91 SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS BROWSE"
+92 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUVIEW"",$J)"
+93 SET ^SD(409.61,VALM,"FNL")="S VALMBCK=""Q"""
+94 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUBR"
+95 SET ^SD(409.61,VALM,"HLP")="D FULL^VALM1,PROTOCOL^TIUHELP S VALMBCK=""R"""
+96 SET ^SD(409.61,VALM,"INIT")="D EN^TIUBR"
+97 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+98 DO MES^XPDUTL(" Filed.")
End DoDot:1
+99 ;
+100 GOTO ^TIUIL1
