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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Text Integration Utility 7 $$PATIENT^TIULA  SETPARM^TIULE  ($$DATE,$$NAME)^TIULS  MAIN^TIUMOVE  MAKE^TIUPEFIX  $$READ^TIUU  ($$INOUT,ENPN,MAIN)^TIUVSIT  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Text Integration Utility 4 TIUCNFIX  TIUPFFIX  TIUPNFIX  TIUPUTCP  

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

External References

Name Field # of Occurrence
^DIC MAIN+5
$$PATIENT^TIULA GETPAT+3, GETPN+2
SETPARM^TIULE MAIN+2
$$DATE^TIULS PATDATA+5, PATDATA+6, CHEKPN+5
$$NAME^TIULS PATDATA+2
MAIN^TIUMOVE GETPAT+4, CHEKPN+13
MAKE^TIUPEFIX GETPAT+7, GETPN+6
$$READ^TIUU MAIN+16, GETPAT+6, CHEKPN+6
$$INOUT^TIUVSIT CHEKPN+10
ENPN^TIUVSIT GETPN+3
MAIN^TIUVSIT CHEKPN+12

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
Routine Call
  • DIC
  • Line Location:
    • MAIN+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( MAIN+4
^TIU(8925.1 - [#8925.1] MAIN+13, MAIN+14

Label References

Name Line Occurrences
$$CHEKPN GETPN+5, CHEKPN+14
GETPAT MAIN+16
PATDATA GETPAT+5

Naked Globals

Name Field # of Occurrence
^(0 MAIN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BUFDA GETPAT+7, GETPN+6
DFN GETPAT+1~, GETPAT+3*, GETPAT+4, GETPAT+7, GETPN+1~, GETPN+2*, GETPN+3, GETPN+6, CHEKPN+12, CHEKPN+13
DIC MAIN+1~, MAIN+3*
DIC("A" MAIN+3*
DIC("B" MAIN+4*
DIC(0 MAIN+3*
DIR PATDATA+1~
>> DIROUT GETPAT+2, CHEKPN+7, CHEKPN+11
>> DTOUT CHEKPN+7, CHEKPN+11
>> DUOUT GETPAT+2, CHEKPN+7, CHEKPN+11
DUZ MAIN+4
SUCCESS GETPAT+1~, GETPAT+7, GETPAT+8, GETPN+6, GETPN+7
TITLE GETPAT+1~, GETPAT+7, GETPN+1~, GETPN+6
TIU GETPAT+1~, GETPAT+4, GETPAT+5, GETPAT+7, GETPN+1~, GETPN+3, GETPN+4, GETPN+5, GETPN+6
TIUBY CHEKPN~, CHEKPN+14
>> TIUDONE GETPAT+8*, GETPN+7*
TIUFPRIV MAIN+1~*
TIUI MAIN+1~, MAIN+12*, MAIN+13*, MAIN+14
TIUINOUT CHEKPN+9~, CHEKPN+10*, CHEKPN+12, CHEKPN+13
TIUOUT GETPAT+1~, GETPAT+2, GETPAT+6*
>> TIUPRM0 MAIN+2, MAIN+8, MAIN+9
>> TIUPRM1 MAIN+2
TIURC PATDATA+1~, PATDATA+11*
TIUROOT MAIN+1~, MAIN+8*, MAIN+9*, MAIN+10, MAIN+13, MAIN+14
TIUY GETPN+1~, GETPN+5*
U MAIN+8, MAIN+9, MAIN+11, MAIN+14, PATDATA+2, PATDATA+3, PATDATA+4, PATDATA+11, PATDATA+12, CHEKPN+4
, CHEKPN+12, CHEKPN+13
X MAIN+1~, PATDATA~, CHEKPN~, CHEKPN+9!, CHEKPN+12, CHEKPN+13, CHEKPN+14
X("ADDX" PATDATA+8
X("AGE" PATDATA+3
X("AMD" PATDATA+4
X("AUTHOR" PATDATA+15
X("COSDT" PATDATA+16
X("DICTDT" PATDATA+13, PATDATA+15
X("EDT" PATDATA+5
X("LDT" PATDATA+6
X("LOC" CHEKPN+4
X("NUMRACE" PATDATA+10, PATDATA+11
X("PMD" PATDATA+4
X("PNM" PATDATA+2, CHEKPN+2
X("RACE" PATDATA+11, PATDATA+12
X("RACENO" PATDATA+12
X("SEX" PATDATA+2
X("SIGDT" PATDATA+16
X("SSN" PATDATA+2, CHEKPN+3
X("VSTR" CHEKPN+5
X("WARD" PATDATA+3
>> XQADATA GETPAT+7, GETPN+6
Y MAIN+1~, MAIN+5, MAIN+7, MAIN+13, MAIN+14, PATDATA+1~, CHEKPN+6*, CHEKPN+8, CHEKPN+14*, CHEKPN+15
Y(0 MAIN+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All