Routine: TIUIL2

TIUIL2 ; List Template Exporter ; 20-JUN-1997

 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997

 D BMES^XPDUTL("'TIU REVIEW BY PATIENT & TITLE' List Template...")

 S DA=$O(^SD(409.61,"B","TIU REVIEW BY PATIENT & TITLE",0)),DIK="^SD(409.61," D ^DIK:DA

 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU REVIEW BY PATIENT & TITLE" D FILE^DICN S VALM=+Y

 I VALM>0 D

 .S ^SD(409.61,VALM,0)="TIU REVIEW BY PATIENT & TITLE^1^^135^4^18^1^1^Progress Note^TIU ACTION MENU PT/TTL REVIEW^Progress Notes"

 .S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS ADVANCED"

 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUR"",$J)"

 .S ^SD(409.61,VALM,"COL",0)="^409.621^13^9"

 .S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^4"

 .S ^SD(409.61,VALM,"COL",2,0)="STATUS^63^19^Status"

 .S ^SD(409.61,VALM,"COL",3,0)="PATIENT NAME^6^14^Patient"

 .S ^SD(409.61,VALM,"COL",4,0)="REF DATE^53^8^Ref Date"

 .S ^SD(409.61,VALM,"COL",5,0)="SIG DATE^82^8^Completed"

 .S ^SD(409.61,VALM,"COL",10,0)="LAST I/LAST 4^20^7^^^0"

 .S ^SD(409.61,VALM,"COL",11,0)="AUTHOR^92^15^Author"

 .S ^SD(409.61,VALM,"COL",12,0)="COSIGNER^109^15^Cosigner"

 .S ^SD(409.61,VALM,"COL",13,0)="DOCUMENT TYPE^28^24^Document^^1"

 .S ^SD(409.61,VALM,"COL","AIDENT",0,10)=""

 .S ^SD(409.61,VALM,"COL","AIDENT",1,13)=""

 .S ^SD(409.61,VALM,"FNL")="D CLEAN^TIURPTTL"

 .S ^SD(409.61,VALM,"HDR")="D HDR^TIURH"

 .S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"

 .S ^SD(409.61,VALM,"INIT")="D MAKELIST^TIURPTTL(3)"

 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK

 .D MES^XPDUTL("  Filed.")

 D BMES^XPDUTL("'TIU REVIEW BY TITLE' List Template...")

 S DA=$O(^SD(409.61,"B","TIU REVIEW BY TITLE",0)),DIK="^SD(409.61," D ^DIK:DA

 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU REVIEW BY TITLE" D FILE^DICN S VALM=+Y

 I VALM>0 D

 .S ^SD(409.61,VALM,0)="TIU REVIEW BY TITLE^1^^135^4^18^1^1^Progress Note^TIU ACTION MENU TITLE REVIEW^Progress Notes by Title"

 .S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS ADVANCED"

 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUR"",$J)"

 .S ^SD(409.61,VALM,"COL",0)="^409.621^13^9"

 .S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^4"

 .S ^SD(409.61,VALM,"COL",2,0)="STATUS^63^19^Status"

 .S ^SD(409.61,VALM,"COL",3,0)="PATIENT NAME^6^14^Patient"

 .S ^SD(409.61,VALM,"COL",4,0)="REF DATE^53^8^Ref Date"

 .S ^SD(409.61,VALM,"COL",5,0)="SIG DATE^82^8^Completed"

 .S ^SD(409.61,VALM,"COL",10,0)="LAST I/LAST 4^20^7^^^0"

 .S ^SD(409.61,VALM,"COL",11,0)="AUTHOR^92^15^Author"

 .S ^SD(409.61,VALM,"COL",12,0)="COSIGNER^109^15^Cosigner"

 .S ^SD(409.61,VALM,"COL",13,0)="DOCUMENT TYPE^28^24^Document^^1"

 .S ^SD(409.61,VALM,"COL","AIDENT",0,10)=""

 .S ^SD(409.61,VALM,"COL","AIDENT",1,13)=""

 .S ^SD(409.61,VALM,"FNL")="D CLEAN^TIURTITL"

 .S ^SD(409.61,VALM,"HDR")="D HDR^TIURTITH"

 .S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"

 .S ^SD(409.61,VALM,"INIT")="D MAKELIST^TIURTITL(3)"

 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK

 .D MES^XPDUTL("  Filed.")

 D BMES^XPDUTL("'TIU REVIEW DS CLINICIAN' List Template...")

 S DA=$O(^SD(409.61,"B","TIU REVIEW DS CLINICIAN",0)),DIK="^SD(409.61," D ^DIK:DA

 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU REVIEW DS CLINICIAN" D FILE^DICN S VALM=+Y

 I VALM>0 D

 .S ^SD(409.61,VALM,0)="TIU REVIEW DS CLINICIAN^1^^135^4^17^1^1^Discharge Summary^TIU ACTION MENU CLINICIAN^Discharge Summaries"

 .S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS ADVANCED"

 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUR"",$J)"

 .S ^SD(409.61,VALM,"COL",0)="^409.621^13^9"

 .S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^4"

 .S ^SD(409.61,VALM,"COL",2,0)="STATUS^63^19^Status"

 .S ^SD(409.61,VALM,"COL",3,0)="PATIENT NAME^6^14^Patient"

 .S ^SD(409.61,VALM,"COL",4,0)="REF DATE^53^8^Ref Date"

 .S ^SD(409.61,VALM,"COL",5,0)="SIG DATE^82^8^Completed"

 .S ^SD(409.61,VALM,"COL",10,0)="LAST I/LAST 4^20^7^^^0"

 .S ^SD(409.61,VALM,"COL",11,0)="AUTHOR^92^15^Author"

 .S ^SD(409.61,VALM,"COL",12,0)="COSIGNER^109^15^Cosigner"

 .S ^SD(409.61,VALM,"COL",13,0)="DOCUMENT TYPE^28^24^Document^^1"

 .S ^SD(409.61,VALM,"COL","AIDENT",0,10)=""

 .S ^SD(409.61,VALM,"COL","AIDENT",1,13)=""

 .S ^SD(409.61,VALM,"FNL")="D CLEAN^TIUR"

 .S ^SD(409.61,VALM,"HDR")="D HDR^TIURH"

 .S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"

 .S ^SD(409.61,VALM,"INIT")="D MAKELIST^TIUR(244)"

 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK

 .D MES^XPDUTL("  Filed.")

 D BMES^XPDUTL("'TIU REVIEW DS MGR' List Template...")

 S DA=$O(^SD(409.61,"B","TIU REVIEW DS MGR",0)),DIK="^SD(409.61," D ^DIK:DA

 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="TIU REVIEW DS MGR" D FILE^DICN S VALM=+Y

 I VALM>0 D

 .S ^SD(409.61,VALM,0)="TIU REVIEW DS MGR^1^^145^4^18^1^1^Discharge Summary^TIU ACTION MENU MGR REVIEW^Discharge Summaries"

 .S ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS ADVANCED"

 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUR"",$J)"

 .S ^SD(409.61,VALM,"COL",0)="^409.621^12^11"

 .S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^5"

 .S ^SD(409.61,VALM,"COL",2,0)="STATUS^99^10^Status"

 .S ^SD(409.61,VALM,"COL",3,0)="PATIENT NAME^6^14^Patient"

 .S ^SD(409.61,VALM,"COL",4,0)="DISCH DATE^72^8^Disch'd"

 .S ^SD(409.61,VALM,"COL",5,0)="DICT DATE^82^8^Dictated"

 .S ^SD(409.61,VALM,"COL",6,0)="LINE COUNT^92^5^Lines"

 .S ^SD(409.61,VALM,"COL",8,0)="ADMISSION DATE^62^8^Admitted"

 .S ^SD(409.61,VALM,"COL",9,0)="LAST I/LAST 4^20^8^^^1"

 .S ^SD(409.61,VALM,"COL",10,0)="AUTHOR^111^15^Author"

 .S ^SD(409.61,VALM,"COL",11,0)="ATTENDING^128^15^Attending"

 .S ^SD(409.61,VALM,"COL",12,0)="DOCUMENT TYPE^29^31^Document"

 .S ^SD(409.61,VALM,"COL","AIDENT",1,9)=""

 .S ^SD(409.61,VALM,"FNL")="D CLEAN^TIURM"

 .S ^SD(409.61,VALM,"HDR")="D HDR^TIURMH"

 .S ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"

 .S ^SD(409.61,VALM,"INIT")="D MAKELIST^TIURM(244)"

 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK

 .D MES^XPDUTL("  Filed.")

 G ^TIUIL3

TIUIL2    ; List Template Exporter ; 20-JUN-1997

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997

 +2        DO BMES^XPDUTL("'TIU REVIEW BY PATIENT & TITLE' List Template...")

 +3        SET DA=$ORDER(^SD(409.61,"B","TIU REVIEW BY PATIENT & TITLE",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 REVIEW BY PATIENT & TITLE"

           DO FILE^DICN

           SET VALM=+Y

 +5        IF VALM>0

               Begin DoDot:1

 +6                SET ^SD(409.61,VALM,0)="TIU REVIEW BY PATIENT & TITLE^1^^135^4^18^1^1^Progress Note^TIU ACTION MENU PT/TTL REVIEW^Progress Notes"

 +7                SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS ADVANCED"

 +8                SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUR"",$J)"

 +9                SET ^SD(409.61,VALM,"COL",0)="^409.621^13^9"

 +10               SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^4"

 +11               SET ^SD(409.61,VALM,"COL",2,0)="STATUS^63^19^Status"

 +12               SET ^SD(409.61,VALM,"COL",3,0)="PATIENT NAME^6^14^Patient"

 +13               SET ^SD(409.61,VALM,"COL",4,0)="REF DATE^53^8^Ref Date"

 +14               SET ^SD(409.61,VALM,"COL",5,0)="SIG DATE^82^8^Completed"

 +15               SET ^SD(409.61,VALM,"COL",10,0)="LAST I/LAST 4^20^7^^^0"

 +16               SET ^SD(409.61,VALM,"COL",11,0)="AUTHOR^92^15^Author"

 +17               SET ^SD(409.61,VALM,"COL",12,0)="COSIGNER^109^15^Cosigner"

 +18               SET ^SD(409.61,VALM,"COL",13,0)="DOCUMENT TYPE^28^24^Document^^1"

 +19               SET ^SD(409.61,VALM,"COL","AIDENT",0,10)=""

 +20               SET ^SD(409.61,VALM,"COL","AIDENT",1,13)=""

 +21               SET ^SD(409.61,VALM,"FNL")="D CLEAN^TIURPTTL"

 +22               SET ^SD(409.61,VALM,"HDR")="D HDR^TIURH"

 +23               SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"

 +24               SET ^SD(409.61,VALM,"INIT")="D MAKELIST^TIURPTTL(3)"

 +25               SET DA=VALM

                   SET DIK="^SD(409.61,"

                   DO IX1^DIK

                   KILL DA,DIK

 +26               DO MES^XPDUTL("  Filed.")

               End DoDot:1

 +27      ;

 +28       DO BMES^XPDUTL("'TIU REVIEW BY TITLE' List Template...")

 +29       SET DA=$ORDER(^SD(409.61,"B","TIU REVIEW BY TITLE",0))

           SET DIK="^SD(409.61,"

           IF DA

               DO ^DIK

 +30       KILL DO,DD

           SET DIC(0)="L"

           SET DIC="^SD(409.61,"

           SET X="TIU REVIEW BY TITLE"

           DO FILE^DICN

           SET VALM=+Y

 +31       IF VALM>0

               Begin DoDot:1

 +32               SET ^SD(409.61,VALM,0)="TIU REVIEW BY TITLE^1^^135^4^18^1^1^Progress Note^TIU ACTION MENU TITLE REVIEW^Progress Notes by Title"

 +33               SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS ADVANCED"

 +34               SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUR"",$J)"

 +35               SET ^SD(409.61,VALM,"COL",0)="^409.621^13^9"

 +36               SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^4"

 +37               SET ^SD(409.61,VALM,"COL",2,0)="STATUS^63^19^Status"

 +38               SET ^SD(409.61,VALM,"COL",3,0)="PATIENT NAME^6^14^Patient"

 +39               SET ^SD(409.61,VALM,"COL",4,0)="REF DATE^53^8^Ref Date"

 +40               SET ^SD(409.61,VALM,"COL",5,0)="SIG DATE^82^8^Completed"

 +41               SET ^SD(409.61,VALM,"COL",10,0)="LAST I/LAST 4^20^7^^^0"

 +42               SET ^SD(409.61,VALM,"COL",11,0)="AUTHOR^92^15^Author"

 +43               SET ^SD(409.61,VALM,"COL",12,0)="COSIGNER^109^15^Cosigner"

 +44               SET ^SD(409.61,VALM,"COL",13,0)="DOCUMENT TYPE^28^24^Document^^1"

 +45               SET ^SD(409.61,VALM,"COL","AIDENT",0,10)=""

 +46               SET ^SD(409.61,VALM,"COL","AIDENT",1,13)=""

 +47               SET ^SD(409.61,VALM,"FNL")="D CLEAN^TIURTITL"

 +48               SET ^SD(409.61,VALM,"HDR")="D HDR^TIURTITH"

 +49               SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"

 +50               SET ^SD(409.61,VALM,"INIT")="D MAKELIST^TIURTITL(3)"

 +51               SET DA=VALM

                   SET DIK="^SD(409.61,"

                   DO IX1^DIK

                   KILL DA,DIK

 +52               DO MES^XPDUTL("  Filed.")

               End DoDot:1

 +53      ;

 +54       DO BMES^XPDUTL("'TIU REVIEW DS CLINICIAN' List Template...")

 +55       SET DA=$ORDER(^SD(409.61,"B","TIU REVIEW DS CLINICIAN",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="TIU REVIEW DS CLINICIAN"

           DO FILE^DICN

           SET VALM=+Y

 +57       IF VALM>0

               Begin DoDot:1

 +58               SET ^SD(409.61,VALM,0)="TIU REVIEW DS CLINICIAN^1^^135^4^17^1^1^Discharge Summary^TIU ACTION MENU CLINICIAN^Discharge Summaries"

 +59               SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS ADVANCED"

 +60               SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUR"",$J)"

 +61               SET ^SD(409.61,VALM,"COL",0)="^409.621^13^9"

 +62               SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^4"

 +63               SET ^SD(409.61,VALM,"COL",2,0)="STATUS^63^19^Status"

 +64               SET ^SD(409.61,VALM,"COL",3,0)="PATIENT NAME^6^14^Patient"

 +65               SET ^SD(409.61,VALM,"COL",4,0)="REF DATE^53^8^Ref Date"

 +66               SET ^SD(409.61,VALM,"COL",5,0)="SIG DATE^82^8^Completed"

 +67               SET ^SD(409.61,VALM,"COL",10,0)="LAST I/LAST 4^20^7^^^0"

 +68               SET ^SD(409.61,VALM,"COL",11,0)="AUTHOR^92^15^Author"

 +69               SET ^SD(409.61,VALM,"COL",12,0)="COSIGNER^109^15^Cosigner"

 +70               SET ^SD(409.61,VALM,"COL",13,0)="DOCUMENT TYPE^28^24^Document^^1"

 +71               SET ^SD(409.61,VALM,"COL","AIDENT",0,10)=""

 +72               SET ^SD(409.61,VALM,"COL","AIDENT",1,13)=""

 +73               SET ^SD(409.61,VALM,"FNL")="D CLEAN^TIUR"

 +74               SET ^SD(409.61,VALM,"HDR")="D HDR^TIURH"

 +75               SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"

 +76               SET ^SD(409.61,VALM,"INIT")="D MAKELIST^TIUR(244)"

 +77               SET DA=VALM

                   SET DIK="^SD(409.61,"

                   DO IX1^DIK

                   KILL DA,DIK

 +78               DO MES^XPDUTL("  Filed.")

               End DoDot:1

 +79      ;

 +80       DO BMES^XPDUTL("'TIU REVIEW DS MGR' List Template...")

 +81       SET DA=$ORDER(^SD(409.61,"B","TIU REVIEW DS MGR",0))

           SET DIK="^SD(409.61,"

           IF DA

               DO ^DIK

 +82       KILL DO,DD

           SET DIC(0)="L"

           SET DIC="^SD(409.61,"

           SET X="TIU REVIEW DS MGR"

           DO FILE^DICN

           SET VALM=+Y

 +83       IF VALM>0

               Begin DoDot:1

 +84               SET ^SD(409.61,VALM,0)="TIU REVIEW DS MGR^1^^145^4^18^1^1^Discharge Summary^TIU ACTION MENU MGR REVIEW^Discharge Summaries"

 +85               SET ^SD(409.61,VALM,1)="^TIU HIDDEN ACTIONS ADVANCED"

 +86               SET ^SD(409.61,VALM,"ARRAY")=" ^TMP(""TIUR"",$J)"

 +87               SET ^SD(409.61,VALM,"COL",0)="^409.621^12^11"

 +88               SET ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^5"

 +89               SET ^SD(409.61,VALM,"COL",2,0)="STATUS^99^10^Status"

 +90               SET ^SD(409.61,VALM,"COL",3,0)="PATIENT NAME^6^14^Patient"

 +91               SET ^SD(409.61,VALM,"COL",4,0)="DISCH DATE^72^8^Disch'd"

 +92               SET ^SD(409.61,VALM,"COL",5,0)="DICT DATE^82^8^Dictated"

 +93               SET ^SD(409.61,VALM,"COL",6,0)="LINE COUNT^92^5^Lines"

 +94               SET ^SD(409.61,VALM,"COL",8,0)="ADMISSION DATE^62^8^Admitted"

 +95               SET ^SD(409.61,VALM,"COL",9,0)="LAST I/LAST 4^20^8^^^1"

 +96               SET ^SD(409.61,VALM,"COL",10,0)="AUTHOR^111^15^Author"

 +97               SET ^SD(409.61,VALM,"COL",11,0)="ATTENDING^128^15^Attending"

 +98               SET ^SD(409.61,VALM,"COL",12,0)="DOCUMENT TYPE^29^31^Document"

 +99               SET ^SD(409.61,VALM,"COL","AIDENT",1,9)=""

 +100              SET ^SD(409.61,VALM,"FNL")="D CLEAN^TIURM"

 +101              SET ^SD(409.61,VALM,"HDR")="D HDR^TIURMH"

 +102              SET ^SD(409.61,VALM,"HLP")="D PROTOCOL^TIUHELP"

 +103              SET ^SD(409.61,VALM,"INIT")="D MAKELIST^TIURM(244)"

 +104              SET DA=VALM

                   SET DIK="^SD(409.61,"

                   DO IX1^DIK

                   KILL DA,DIK

 +105              DO MES^XPDUTL("  Filed.")

               End DoDot:1

 +106     ;

 +107      GOTO ^TIUIL3

TIUIL2.m