Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] Classic Fileman Calls
^SC - [#44] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call