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
Print Page as PDF
Routine: TIUCHLP

Package: Text Integration Utility

Routine: TIUCHLP


Information

TIUCHLP ; SLC/SBW - Help for Clinician ;11/29/02

Source Information

Source file <TIUCHLP.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Control branching
GETPAT ; Gets Dictation data for a specific patient
PATDATA(X) ; Display/validate correct patient/treatment episode
GETPN ; Help get Fields for PN Dictation/Error Resolution
CHEKPN(X,TIUBY) ; Display/validate demographic/visit information

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Required information for dictation help not set up for this report type."
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: !!,"Required information for dictation help not set up for this report type."
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !!,"A Dictated ",$P(Y(0),U),", requires the following:"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !?10,$P($G(^(0)),U,2)
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAIN+15
Function Call: WRITE
  • Prompt: !!?1,"Patient: ",$$NAME^TIULS(X("PNM"),"LAST, FIRST MI"),?40,"SSN: ",X("SSN"),?62,"Sex: ",$P(X("SEX"),U,2),!
  • Line Location: PATDATA+2
Function Call: WRITE
  • Prompt: ?4,"Ward: ",$P(X("WARD"),U,2),?40,"Age: ",X("AGE"),!
  • Line Location: PATDATA+3
Function Call: WRITE
  • Prompt: "Att Phys: ",$P(X("AMD"),U,2),?34,"Prim Phys: ",$P(X("PMD"),U,2),!
  • Line Location: PATDATA+4
Function Call: WRITE
  • Prompt: "Adm Date: ",$$DATE^TIULS(+X("EDT"),"MM/DD/YY@HR:MIN:SEC")
  • Line Location: PATDATA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PATDATA+7
Function Call: WRITE
  • Prompt: ?2,"Adm Dx: ",X("ADDX")
  • Line Location: PATDATA+8
Function Call: WRITE
  • Prompt: !?4,"Race: "
  • Line Location: PATDATA+11
Function Call: WRITE
  • Prompt: ?10,$P(X("RACE",TIURC),U,2),!
  • Line Location: PATDATA+11
Function Call: WRITE
  • Prompt: !?4,"Race: ",$P($G(X("RACE")),U,2),!
  • Line Location: PATDATA+12
Function Call: WRITE
  • Prompt: !,"A DISCHARGE SUMMARY is already on file:",!
  • Line Location: PATDATA+14
Function Call: WRITE
  • Prompt: ?2,"Dict'd: ",X("DICTDT"),?41,"By: ",X("AUTHOR"),!
  • Line Location: PATDATA+15
Function Call: WRITE
  • Prompt: ?2,"Signed: ",X("SIGDT"),?35,"Cosigned: ",X("COSDT"),!
  • Line Location: PATDATA+16
Function Call: WRITE
  • Prompt: !!,"Document Identifiers..."
  • Line Location: CHEKPN+1
Function Call: WRITE
  • Prompt: !?14,"Patient Name: ",$S($G(X("PNM"))]"":$G(X("PNM")),1:"UNKNOWN")
  • Line Location: CHEKPN+2
Function Call: WRITE
  • Prompt: !?15,"Patient SSN: ",$S($G(X("SSN"))]"":$G(X("SSN")),1:"UNKNOWN")
  • Line Location: CHEKPN+3
Function Call: WRITE
  • Prompt: !?10,"Patient Location: ",$S(+$G(X("LOC")):$P($G(X("LOC")),U,2),1:"UNKNOWN")
  • Line Location: CHEKPN+4
Function Call: WRITE
  • Prompt: !?8,"Date/time of Visit: ",$S($L($G(X("VSTR"))):$$DATE^TIULS($P(X("VSTR"),";",2),"MM/DD/YY HR:MIN"),1:"UNKNOWN")
  • Line Location: CHEKPN+5
Info |  Source |  Entry Points |  Interaction Calls