TIUIL9 ; List Template Exporter ; 20-JUN-1997
;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
D BMES^XPDUTL("'TIUFH EDIT DDEFS MGR' List Template...")
S DA=$O(^SD(409.61,"B","TIUFH EDIT DDEFS MGR",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIUFH EDIT DDEFS MGR" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIUFH EDIT DDEFS MGR^1^^188^5^18^1^1^Entry^TIUFH ACTION MENU MGR^Edit Document Definitions^1^^1"
.S ^SD(409.61,VALM,1)="^TIUF HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUF1"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^14^11"
.S ^SD(409.61,VALM,"COL",4,0)="NUMBER^1^6^^^0"
.S ^SD(409.61,VALM,"COL",5,0)="NAME1^8^40^Name^^1"
.S ^SD(409.61,VALM,"COL",6,0)="NAME2^48^27"
.S ^SD(409.61,VALM,"COL",7,0)="TYPE^77^4^Type"
.S ^SD(409.61,VALM,"COL",8,0)="IFN^82^7^ IFN"
.S ^SD(409.61,VALM,"COL",9,0)="NATIONAL^91^4^Natl"
.S ^SD(409.61,VALM,"COL",10,0)="STATUS^97^6^Status"
.S ^SD(409.61,VALM,"COL",11,0)="OWNER^105^7^Owner"
.S ^SD(409.61,VALM,"COL",12,0)="INUSE^114^6^In Use"
.S ^SD(409.61,VALM,"COL",13,0)="BOIL^122^4^Boil"
.S ^SD(409.61,VALM,"COL",14,0)="PRINTNM^128^60^Print Name"
.S ^SD(409.61,VALM,"COL","AIDENT",0,4)=""
.S ^SD(409.61,VALM,"COL","AIDENT",1,5)=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^TIUFH"
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUFH"
.S ^SD(409.61,VALM,"HLP")="D HELP^TIUFHLP"
.S ^SD(409.61,VALM,"INIT")="D INIT^TIUFH"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'TIUFJ OBJECTS CLIN' List Template...")
S DA=$O(^SD(409.61,"B","TIUFJ OBJECTS CLIN",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIUFJ OBJECTS CLIN" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIUFJ OBJECTS CLIN^1^^157^5^18^1^1^Entry^TIUFJ ACTION MENU CLIN^Objects^1^^1"
.S ^SD(409.61,VALM,1)="^TIUF HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUF1"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^7^7"
.S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^6"
.S ^SD(409.61,VALM,"COL",2,0)="NAME1^8^40^Name^^1"
.S ^SD(409.61,VALM,"COL",3,0)="NAME2^48^27"
.S ^SD(409.61,VALM,"COL",4,0)="STATUS^75^6^Status"
.S ^SD(409.61,VALM,"COL",5,0)="NATIONAL^82^4^Natl"
.S ^SD(409.61,VALM,"COL",6,0)="OWNER^88^7^Owner"
.S ^SD(409.61,VALM,"COL",7,0)="PRINTNM^97^60^Print Name"
.S ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^TIUFJ"
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUFJ"
.S ^SD(409.61,VALM,"HLP")="D HELP^TIUFHLP"
.S ^SD(409.61,VALM,"INIT")="D INIT^TIUFJ"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'TIUFJ OBJECTS MGR' List Template...")
S DA=$O(^SD(409.61,"B","TIUFJ OBJECTS MGR",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIUFJ OBJECTS MGR" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIUFJ OBJECTS MGR^1^^166^5^18^1^1^Entry^TIUFJ ACTION MENU MGR^Objects^1^^1"
.S ^SD(409.61,VALM,1)="^TIUF HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUF1"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^8^8"
.S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^6"
.S ^SD(409.61,VALM,"COL",2,0)="NAME1^8^40^^^1"
.S ^SD(409.61,VALM,"COL",3,0)="NAME2^48^27"
.S ^SD(409.61,VALM,"COL",4,0)="STATUS^75^6^Status"
.S ^SD(409.61,VALM,"COL",5,0)="IFN^82^7^ IFN"
.S ^SD(409.61,VALM,"COL",6,0)="NATIONAL^91^4^Natl"
.S ^SD(409.61,VALM,"COL",7,0)="OWNER^97^7^Owner"
.S ^SD(409.61,VALM,"COL",8,0)="PRINTNM^106^60^Print Name"
.S ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^TIUFJ"
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUFJ"
.S ^SD(409.61,VALM,"HLP")="D HELP^TIUFHLP"
.S ^SD(409.61,VALM,"INIT")="D INIT^TIUFJ"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
D BMES^XPDUTL("'TIUFT ITEMS ADD/EDIT/VIEW MGR' List Template...")
S DA=$O(^SD(409.61,"B","TIUFT ITEMS ADD/EDIT/VIEW MGR",0)),DIK="^SD(409.61," D ^DIK:DA
K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIUFT ITEMS ADD/EDIT/VIEW MGR" D FILE^DICN S VALM=+Y
I VALM>0 D
.S ^SD(409.61,VALM,0)="TIUFT ITEMS ADD/EDIT/VIEW MGR^1^^123^5^18^1^1^Item^TIUFT ACTION MENU ADD/EDIT/VIEW ITEMS^Items^1^^1"
.S ^SD(409.61,VALM,1)="^TIUF HIDDEN ACTIONS"
.S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUF2"",$J)"
.S ^SD(409.61,VALM,"COL",0)="^409.621^7^7"
.S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^6"
.S ^SD(409.61,VALM,"COL",2,0)="NAME1^8^23^Item^^1"
.S ^SD(409.61,VALM,"COL",3,0)="NAME2^31^37"
.S ^SD(409.61,VALM,"COL",4,0)="MNEM^91^4^Mnem"
.S ^SD(409.61,VALM,"COL",5,0)="IFN^82^7^ IFN"
.S ^SD(409.61,VALM,"COL",6,0)="SEQUENCE^75^6^Seq "
.S ^SD(409.61,VALM,"COL",7,0)="MENUTEXT^97^26^Menu Text"
.S ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
.S ^SD(409.61,VALM,"FNL")="D EXIT^TIUFT"
.S ^SD(409.61,VALM,"HDR")="D HDR^TIUFT"
.S ^SD(409.61,VALM,"HLP")="D HELP^TIUFHLP"
.S ^SD(409.61,VALM,"INIT")="D INIT^TIUFT"
.S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
.D MES^XPDUTL(" Filed.")
;
G ^TIUIL10
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUIL9 5055 printed Sep 15, 2024@22:05:57 Page 2
TIUIL9 ; List Template Exporter ; 20-JUN-1997
+1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
+2 DO BMES^XPDUTL("'TIUFH EDIT DDEFS MGR' List Template...")
+3 SET DA=$ORDER(^SD(409.61,"B","TIUFH EDIT DDEFS MGR",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="TIUFH EDIT DDEFS MGR"
DO FILE^DICN
SET VALM=+Y
+5 IF VALM>0
Begin DoDot:1
+6 SET ^SD(409.61,VALM,0)="TIUFH EDIT DDEFS MGR^1^^188^5^18^1^1^Entry^TIUFH ACTION MENU MGR^Edit Document Definitions^1^^1"
+7 SET ^SD(409.61,VALM,1)="^TIUF HIDDEN ACTIONS"
+8 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUF1"",$J)"
+9 SET ^SD(409.61,VALM,"COL",0)="^409.621^14^11"
+10 SET ^SD(409.61,VALM,"COL",4,0)="NUMBER^1^6^^^0"
+11 SET ^SD(409.61,VALM,"COL",5,0)="NAME1^8^40^Name^^1"
+12 SET ^SD(409.61,VALM,"COL",6,0)="NAME2^48^27"
+13 SET ^SD(409.61,VALM,"COL",7,0)="TYPE^77^4^Type"
+14 SET ^SD(409.61,VALM,"COL",8,0)="IFN^82^7^ IFN"
+15 SET ^SD(409.61,VALM,"COL",9,0)="NATIONAL^91^4^Natl"
+16 SET ^SD(409.61,VALM,"COL",10,0)="STATUS^97^6^Status"
+17 SET ^SD(409.61,VALM,"COL",11,0)="OWNER^105^7^Owner"
+18 SET ^SD(409.61,VALM,"COL",12,0)="INUSE^114^6^In Use"
+19 SET ^SD(409.61,VALM,"COL",13,0)="BOIL^122^4^Boil"
+20 SET ^SD(409.61,VALM,"COL",14,0)="PRINTNM^128^60^Print Name"
+21 SET ^SD(409.61,VALM,"COL","AIDENT",0,4)=""
+22 SET ^SD(409.61,VALM,"COL","AIDENT",1,5)=""
+23 SET ^SD(409.61,VALM,"FNL")="D EXIT^TIUFH"
+24 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUFH"
+25 SET ^SD(409.61,VALM,"HLP")="D HELP^TIUFHLP"
+26 SET ^SD(409.61,VALM,"INIT")="D INIT^TIUFH"
+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("'TIUFJ OBJECTS CLIN' List Template...")
+31 SET DA=$ORDER(^SD(409.61,"B","TIUFJ OBJECTS CLIN",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="TIUFJ OBJECTS CLIN"
DO FILE^DICN
SET VALM=+Y
+33 IF VALM>0
Begin DoDot:1
+34 SET ^SD(409.61,VALM,0)="TIUFJ OBJECTS CLIN^1^^157^5^18^1^1^Entry^TIUFJ ACTION MENU CLIN^Objects^1^^1"
+35 SET ^SD(409.61,VALM,1)="^TIUF HIDDEN ACTIONS"
+36 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUF1"",$J)"
+37 SET ^SD(409.61,VALM,"COL",0)="^409.621^7^7"
+38 SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^6"
+39 SET ^SD(409.61,VALM,"COL",2,0)="NAME1^8^40^Name^^1"
+40 SET ^SD(409.61,VALM,"COL",3,0)="NAME2^48^27"
+41 SET ^SD(409.61,VALM,"COL",4,0)="STATUS^75^6^Status"
+42 SET ^SD(409.61,VALM,"COL",5,0)="NATIONAL^82^4^Natl"
+43 SET ^SD(409.61,VALM,"COL",6,0)="OWNER^88^7^Owner"
+44 SET ^SD(409.61,VALM,"COL",7,0)="PRINTNM^97^60^Print Name"
+45 SET ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
+46 SET ^SD(409.61,VALM,"FNL")="D EXIT^TIUFJ"
+47 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUFJ"
+48 SET ^SD(409.61,VALM,"HLP")="D HELP^TIUFHLP"
+49 SET ^SD(409.61,VALM,"INIT")="D INIT^TIUFJ"
+50 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+51 DO MES^XPDUTL(" Filed.")
End DoDot:1
+52 ;
+53 DO BMES^XPDUTL("'TIUFJ OBJECTS MGR' List Template...")
+54 SET DA=$ORDER(^SD(409.61,"B","TIUFJ OBJECTS MGR",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+55 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="TIUFJ OBJECTS MGR"
DO FILE^DICN
SET VALM=+Y
+56 IF VALM>0
Begin DoDot:1
+57 SET ^SD(409.61,VALM,0)="TIUFJ OBJECTS MGR^1^^166^5^18^1^1^Entry^TIUFJ ACTION MENU MGR^Objects^1^^1"
+58 SET ^SD(409.61,VALM,1)="^TIUF HIDDEN ACTIONS"
+59 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUF1"",$J)"
+60 SET ^SD(409.61,VALM,"COL",0)="^409.621^8^8"
+61 SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^6"
+62 SET ^SD(409.61,VALM,"COL",2,0)="NAME1^8^40^^^1"
+63 SET ^SD(409.61,VALM,"COL",3,0)="NAME2^48^27"
+64 SET ^SD(409.61,VALM,"COL",4,0)="STATUS^75^6^Status"
+65 SET ^SD(409.61,VALM,"COL",5,0)="IFN^82^7^ IFN"
+66 SET ^SD(409.61,VALM,"COL",6,0)="NATIONAL^91^4^Natl"
+67 SET ^SD(409.61,VALM,"COL",7,0)="OWNER^97^7^Owner"
+68 SET ^SD(409.61,VALM,"COL",8,0)="PRINTNM^106^60^Print Name"
+69 SET ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
+70 SET ^SD(409.61,VALM,"FNL")="D EXIT^TIUFJ"
+71 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUFJ"
+72 SET ^SD(409.61,VALM,"HLP")="D HELP^TIUFHLP"
+73 SET ^SD(409.61,VALM,"INIT")="D INIT^TIUFJ"
+74 SET DA=VALM
SET DIK="^SD(409.61,"
DO IX1^DIK
KILL DA,DIK
+75 DO MES^XPDUTL(" Filed.")
End DoDot:1
+76 ;
+77 DO BMES^XPDUTL("'TIUFT ITEMS ADD/EDIT/VIEW MGR' List Template...")
+78 SET DA=$ORDER(^SD(409.61,"B","TIUFT ITEMS ADD/EDIT/VIEW MGR",0))
SET DIK="^SD(409.61,"
if DA
DO ^DIK
+79 KILL DO,DD
SET DIC(0)="L"
SET DIC="^SD(409.61,"
SET X="TIUFT ITEMS ADD/EDIT/VIEW MGR"
DO FILE^DICN
SET VALM=+Y
+80 IF VALM>0
Begin DoDot:1
+81 SET ^SD(409.61,VALM,0)="TIUFT ITEMS ADD/EDIT/VIEW MGR^1^^123^5^18^1^1^Item^TIUFT ACTION MENU ADD/EDIT/VIEW ITEMS^Items^1^^1"
+82 SET ^SD(409.61,VALM,1)="^TIUF HIDDEN ACTIONS"
+83 SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUF2"",$J)"
+84 SET ^SD(409.61,VALM,"COL",0)="^409.621^7^7"
+85 SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^6"
+86 SET ^SD(409.61,VALM,"COL",2,0)="NAME1^8^23^Item^^1"
+87 SET ^SD(409.61,VALM,"COL",3,0)="NAME2^31^37"
+88 SET ^SD(409.61,VALM,"COL",4,0)="MNEM^91^4^Mnem"
+89 SET ^SD(409.61,VALM,"COL",5,0)="IFN^82^7^ IFN"
+90 SET ^SD(409.61,VALM,"COL",6,0)="SEQUENCE^75^6^Seq "
+91 SET ^SD(409.61,VALM,"COL",7,0)="MENUTEXT^97^26^Menu Text"
+92 SET ^SD(409.61,VALM,"COL","AIDENT",1,2)=""
+93 SET ^SD(409.61,VALM,"FNL")="D EXIT^TIUFT"
+94 SET ^SD(409.61,VALM,"HDR")="D HDR^TIUFT"
+95 SET ^SD(409.61,VALM,"HLP")="D HELP^TIUFHLP"
+96 SET ^SD(409.61,VALM,"INIT")="D INIT^TIUFT"
+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 ^TIUIL10
