Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: TIU144

Package: Text Integration Utility

Routine: TIU144


Information

TIU144 ; SLC/MAM - Consults with Mismatched Patients ;3/6/03

Source Information

Source file <TIU144.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Text Integration Utility 4 $$CLASS^TIUCNSLT  ($$PNAME,$$PTNAME)^TIULC1  ($$DATE,$$NAME)^TIULS  $$ISA^TIULX  
VA FileMan 3 $$EXTERNAL^DILFD  EN^DIQ1  ^DIR  
Consult Request Tracking 1 $$CPPAT^GMRCCP  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Text Integration Utility 3 TIU144 ENHANCED MISMATCH LIST  TIUADCL  TIUADCL1  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
PRINT(CHEKD,FOUND) ; Print
BEGIN ; List mismatched Consults
PRINTX
MAIL(CHEKD,FOUND) ; Send msg to person who ran option & Pt Safety Committee
BUILD ; Build array of mismatched Consults
SETX
SETCONT() ; D form feed, Set TIUCONT
PATIENT(PTDA) ; Return Patient Name & last 4 of SSN
; Receives Patient file IEN
STOP() ;on screen paging check
; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0

External References

Name Field # of Occurrence
^%ZIS BEGIN+3
HOME^%ZIS BEGIN+9
^%ZISC BEGIN+10
^%ZTLOAD BEGIN+7
$$EXTERNAL^DILFD PRINT+18
EN^DIQ1 BUILD+38
^DIR STOP+3
$$CPPAT^GMRCCP BUILD+23
$$CLASS^TIUCNSLT BUILD+3
$$PNAME^TIULC1 BUILD+30, BUILD+54
$$PTNAME^TIULC1 PATIENT+3
$$DATE^TIULS BUILD+32, BUILD+40, BUILD+56
$$NAME^TIULS PATIENT+3
$$ISA^TIULX BUILD+18, BUILD+26, BUILD+27
$$FMTE^XLFDT MAIL+7
$$NOW^XLFDT MAIL+7
^XMD MAIL+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Searching for mismatched Consults could take some time. Please"
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"remember to queue this option."
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!")
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: !!,"Searching for Consult documents with mismatched patients...",!
  • Line Location: BUILD+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: " Consult Documents with Mismatched Patients"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!," ",CHEKD," documents processed"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !," No mismatches found"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !," ",FOUND," mismatched documents found"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!," In listed mismatches, the patient for the request associated with the"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"document does not match the patient for the document. See the description for"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"patch TIU*1*144 in the National Patch Module for further explanation of this"
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,"display and for instructions on how to correct listed entries.",!!
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: "===============================================================================",!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: " Division: ",EXTDIV
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,"==============================================================================="
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: ?2,MISMNUM,".",?7,"Note Title: ",$P(DOCDATA,U),?59,"#: ",$P(DOCDATA,U,2),?72,"Capt: ",$P(DOCDATA,U,5)
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: !,?2,"Pt: ",$P(DOCDATA,U,3),?59,"Rf Date: ",$P(DOCDATA,U,4)
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,?2,"Cnslt To Serv: ",$P(CNDATA,U),?59,"Cnslt #: ",$P(CNDATA,U,2),?75,$P(CNDATA,U,5)
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: !,?2,"Pt: ",$P(CNDATA,U,3),?59,"Date: ",$P(CNDATA,U,4)
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !,?2,"Parent Title: ",$P(DADDATA,U),?59,"#: ",$P(DADDATA,U,2)
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !,?2,"Rf Date: ",$P(DADDATA,U,4)
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: !,?2,"Consult # ",^TMP("TIU144",$J,DIV,TITLDA,TIUCNT,"EXTRA")," is ALSO linked to this document on the Consults side."
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINTX+0
Function Call: WRITE
  • Prompt: ?5,"================ ",FOUND," Mismatches Found."," ================="
  • Line Location: PRINTX+0
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: STOP+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SETCONT+6
Routine Call
  • %ZIS
  • Line Location:
    • BEGIN+9
Routine Call
  • DIR
  • Line Location:
    • STOP+3
Routine Call
  • %ZIS
  • Line Location:
    • BEGIN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] Classic Fileman Calls
^SC - [#44] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PATIENT+5
^GMR(123 - [#123] BUILD+60, BUILD+63
^SC - [#44] BUILD+35
^TIU(8925 - [#8925] BUILD+5, BUILD+11, BUILD+15, BUILD+27, BUILD+28, BUILD+33, BUILD+53
^TIU(8925.6 - [#8925.6] BUILD+19, BUILD+52
^TMP("TIU144" BUILD+46*, BUILD+47*, BUILD+57*, BUILD+65*, BUILD+68!, PRINT+14, PRINT+15, PRINT+24, PRINT+26, PRINT+29
, PRINT+33, PRINT+36, PRINT+40
^VA(200 - [#200] MAIL+13

Label References

Name Line Occurrences
$$PATIENT BUILD+31, BUILD+42, BUILD+55
$$SETCONT PRINT+28, PRINTX
$$STOP PRINT+16, SETCONT+4
BUILD BEGIN+10
MAIL PRINTX+1
PRINT BUILD+67
PRINTX PRINT+6
SETX SETCONT+3, SETCONT+4, SETCONT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS BEGIN+3*
CAPTURE BUILD+12~, BUILD+29*, BUILD+46
CHEKD PRINT~, PRINT+5, PRINTX+1, MAIL~, MAIL+8
CNDATA PRINT+1~, PRINT+33*, PRINT+34, PRINT+35
CNSLT1 BUILD+14~, BUILD+60*, BUILD+61, BUILD+62, BUILD+63
CNSLT2 BUILD+14~, BUILD+63*, BUILD+64
CNSLTCLS BUILD+1~, BUILD+3*, BUILD+18, BUILD+26, BUILD+27
CNSLTEDT BUILD+13~, BUILD+40*, BUILD+47
CNSLTPT BUILD+13~, BUILD+39*, BUILD+42*, BUILD+47
CNSLTST BUILD+13~, BUILD+43*, BUILD+44*, BUILD+47
DA BUILD+14~, BUILD+37*, BUILD+39, BUILD+40, BUILD+41, BUILD+43
DADDATA PRINT+1~, PRINT+36*, PRINT+37, PRINT+38, PRINT+39
DADDFN BUILD+50~, BUILD+51*, BUILD+55
DADDOC BUILD+50~, BUILD+54*, BUILD+57
DADEDT BUILD+50~, BUILD+56*, BUILD+57
DADPT BUILD+50~, BUILD+55*, BUILD+57
DADSTATX BUILD+50~, BUILD+52*, BUILD+57
DFN BUILD+12~, BUILD+15*, BUILD+23, BUILD+31
DIC BUILD+14~, BUILD+36*
DIQ BUILD+14~, BUILD+37*
DIQ(0 BUILD+37*
DIR STOP+2~
DIR(0 STOP+3*
DIV BUILD+14~, BUILD+35*, BUILD+46, BUILD+47, BUILD+57, BUILD+65, PRINT+1~, PRINT+13*, PRINT+14*, PRINT+15
, PRINT+18, PRINT+24, PRINT+26, PRINT+29, PRINT+33, PRINT+36, PRINT+40
DOC BUILD+12~, BUILD+30*, BUILD+46
DOCDATA PRINT+1~, PRINT+29*, PRINT+31, PRINT+32
DR BUILD+14~, BUILD+36*
DUZ MAIL+3, MAIL+13
EDT BUILD+13~, BUILD+32*, BUILD+46
EXTDIV PRINT+1~, PRINT+18*, PRINT+19*, PRINT+21
EXTRA BUILD+14~, BUILD+59*, BUILD+62*, BUILD+63, BUILD+64*, BUILD+65
FOUND PRINT~, PRINT+6, PRINT+7, PRINTX, PRINTX+1, MAIL~, MAIL+9
IO BEGIN+10
IO("Q" BEGIN+4!
IOF PRINT+3, PRINT+17, STOP+5, SETCONT+6
IOP BEGIN+3!
IOSL SETCONT+3, SETCONT+5
IOST BUILD+2, PRINT+3, PRINT+16, SETCONT+3, SETCONT+4
LAST4 PATIENT+2~, PATIENT+5*, PATIENT+6*, PATIENT+7
LASTI PATIENT+2~, PATIENT+4*, PATIENT+6
LOC BUILD+13~, BUILD+34*, BUILD+35
MISMNUM PRINT+1~, PRINT+13*, PRINT+30*, PRINT+31
NUMCHEKD BUILD+1~, BUILD+4*, BUILD+16*, BUILD+67
NUMFOUND BUILD+1~, BUILD+66*, BUILD+67
OK BUILD+12~, BUILD+23*, BUILD+24
POP BEGIN+3!
PT BUILD+13~, BUILD+31*, BUILD+46, PATIENT+2~, PATIENT+3*, PATIENT+4, PATIENT+7*, PATIENT+8
PTDA PATIENT~, PATIENT+3, PATIENT+5
STATX BUILD+13~, BUILD+19*, BUILD+20, BUILD+21, BUILD+46
TITLDA BUILD+12~, BUILD+16*, BUILD+18, BUILD+26, BUILD+27, BUILD+46, BUILD+47, BUILD+49, BUILD+57, BUILD+65
, PRINT+1~, PRINT+23*, PRINT+24*, PRINT+26, PRINT+29, PRINT+33, PRINT+36, PRINT+40
TIUCNNBR BUILD+12~, BUILD+22*, BUILD+23, BUILD+37, BUILD+47, BUILD+58, BUILD+62, BUILD+64
TIUCNT BUILD+1~, BUILD+45*, BUILD+46, BUILD+47, BUILD+57, BUILD+65, BUILD+66, PRINT+1~, PRINT+25*, PRINT+26*
, PRINT+29, PRINT+33, PRINT+36, PRINT+40
TIUCONT PRINT+1~, PRINT+13*, PRINT+14, PRINT+15, PRINT+16*, PRINT+24, PRINT+26, PRINT+28*, PRINTX*, STOP+2~
, STOP+4*, STOP+5, STOP+6, SETCONT+1~, SETCONT+2*, SETCONT+4*, SETX
TIUCVPTR BUILD+1~, BUILD+4*, BUILD+5*, BUILD+7, BUILD+9, BUILD+11, BUILD+18, BUILD+22
TIUD0 BUILD+12~, BUILD+15*, BUILD+16, BUILD+19, BUILD+27, BUILD+30
TIUD12 BUILD+13~, BUILD+33*, BUILD+34
TIUD13 BUILD+12~, BUILD+28*, BUILD+29, BUILD+32
TIUDA BUILD+1~, BUILD+10*, BUILD+11*, BUILD+15, BUILD+28, BUILD+33, BUILD+46, BUILD+60, BUILD+63
TIUDAD BUILD+12~, BUILD+27*, BUILD+53, BUILD+57
TIUDAD0 BUILD+12~, BUILD+27*, BUILD+51, BUILD+52, BUILD+54
TIUDAD13 BUILD+50~, BUILD+53*, BUILD+56
TIUMATCH BUILD+13~
TIUMATCH(123 BUILD+39, BUILD+40, BUILD+41, BUILD+43
TIUTXT MAIL+1~
TIUTXT(1 MAIL+5*
TIUTXT(2 MAIL+6*
TIUTXT(3 MAIL+7*
TIUTXT(4 MAIL+8*
TIUTXT(5 MAIL+9*
TIUTXT(6 MAIL+10*
TIUTXT(7 MAIL+11*
TIUTXT(8 MAIL+12*
TIUTXT(9 MAIL+13*
TOSERV BUILD+13~, BUILD+41*, BUILD+47
U BUILD+15, BUILD+19, BUILD+27, BUILD+29, BUILD+32, BUILD+34, BUILD+35, BUILD+46, BUILD+47, BUILD+51
, BUILD+52, BUILD+56, BUILD+57, PATIENT+5, PRINT+31, PRINT+32, PRINT+34, PRINT+35, PRINT+38, PRINT+39
XMDUZ MAIL+1~, MAIL+2*
XMMG MAIL+1~
XMSUB MAIL+1~, MAIL+14*
XMTEXT MAIL+1~, MAIL+14*
XMY MAIL+1~
XMY( MAIL+3*, MAIL+4*
XMY("G.PATIEN T SAFETY NOTIFICATIONS" , MAIL+4*
XMZ MAIL+1~
Y STOP+2~, STOP+4
ZTDESC BEGIN+6*, BEGIN+8!
ZTDTH BEGIN+8!
ZTIO BEGIN+8!
>> ZTQUEUED PRINT+2
>> ZTREQ PRINT+2*
ZTRTN BEGIN+5*, BEGIN+8!
ZTSAVE BEGIN+8!
ZTSAVE("DUZ" BEGIN+5*
ZTSK BEGIN+7, BEGIN+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All