Routine: TIUCHLP

Information

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

Call Graph

Call Graph Total: 9

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
IHS Mods To Text Integration Utilities	1	CHEKPN^BTIUCHLP
VA Fileman	1	^DIC

Package	Total	Caller Graph
Text Integration Utility	4	TIUCNFIX TIUPFFIX TIUPNFIX TIUPUTCP
IHS Mods To Text Integration Utilities	1	BTIUCHLP

Entry Points

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

External References

Name	Field # of Occurrence
CHEKPN^BTIUCHLP	CHEKPN+2
^DIC	MAIN+6
$$PATIENT^TIULA	GETPAT+4, GETPN+2
SETPARM^TIULE	MAIN+2
$$DATE^TIULS	PATDATA+6, PATDATA+7, CHEKPN+8
$$NAME^TIULS	PATDATA+3
MAIN^TIUMOVE	GETPAT+6, IHS1+11
MAKE^TIUPEFIX	GETPAT+10, GETPN+7
$$READ^TIUU	MAIN+18, GETPAT+9, IHS1+2
$$INOUT^TIUVSIT	IHS1+8
ENPN^TIUVSIT	GETPN+3
MAIN^TIUVSIT	IHS1+10

Interaction Calls

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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$CHEKPN	GETPN+5, IHS1+12
GETPAT	MAIN+18
IHS1	CHEKPN+2
PATDATA	GETPAT+7

Naked Globals

Name	Field # of Occurrence
^(0	MAIN+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUFDA	GETPAT+10, GETPN+7
DFN	GETPAT+1~, GETPAT+4, GETPAT+5, GETPAT+6, GETPAT+10, GETPN+1~, GETPN+2, GETPN+3, GETPN+7, IHS1+10 , IHS1+11
DIC	MAIN+1~, MAIN+3*
DIC("A"	MAIN+3*
DIC("B"	MAIN+4*, MAIN+5!
DIC("S"	MAIN+5*
DIC(0	MAIN+3*
DIR	PATDATA+1~
>> DIROUT	GETPAT+2, IHS1+3, IHS1+9
>> DTOUT	IHS1+3, IHS1+9
>> DUOUT	GETPAT+2, IHS1+3, IHS1+9
DUZ	MAIN+4
SUCCESS	GETPAT+1~, GETPAT+10, GETPAT+11, GETPN+7, GETPN+8
TITLE	GETPAT+1~, GETPAT+10, GETPN+1~, GETPN+7
TIU	GETPAT+1~, GETPAT+3!, GETPAT+6, GETPAT+7, GETPAT+10, GETPN+1~, GETPN+3, GETPN+4, GETPN+5, GETPN+7
TIUBY	CHEKPN~, IHS1+12
>> TIUDONE	GETPAT+11, GETPN+8
TIUFPRIV	MAIN+1~*
TIUI	MAIN+1~, MAIN+13, MAIN+14, MAIN+16
TIUINOUT	IHS1+7~, IHS1+8*, IHS1+10, IHS1+11
TIUOUT	GETPAT+1~, GETPAT+2, GETPAT+5*
>> TIUPRM0	MAIN+2, MAIN+9, MAIN+10
>> TIUPRM1	MAIN+2
TIURC	PATDATA+1~
TIUROOT	MAIN+1~, MAIN+9, MAIN+10, MAIN+11, MAIN+14, MAIN+16
TIUY	GETPN+1~, GETPN+5*, GETPN+6
U	MAIN+9, MAIN+10, MAIN+12, MAIN+16, PATDATA+3, PATDATA+4, PATDATA+5, CHEKPN+7, IHS1+10, IHS1+11
X	MAIN+1~, PATDATA~, CHEKPN~, CHEKPN+2, IHS1+7!, IHS1+10, IHS1+11, IHS1+12
X("ADDX"	PATDATA+9
X("AGE"	PATDATA+4
X("AMD"	PATDATA+5
X("AUTHOR"	PATDATA+17
X("COSDT"	PATDATA+18
X("DICTDT"	PATDATA+15, PATDATA+17
X("EDT"	PATDATA+6
X("HRCN"	PATDATA+3
X("LDT"	PATDATA+7
X("LOC"	CHEKPN+7
X("PMD"	PATDATA+5
X("PNM"	PATDATA+3, CHEKPN+5
X("SEX"	PATDATA+3
X("SIGDT"	PATDATA+18
X("SSN"	CHEKPN+6
X("VSTR"	CHEKPN+8
X("WARD"	PATDATA+4
>> XQADATA	GETPAT+10, GETPN+7
Y	MAIN+1~, MAIN+6, MAIN+8, MAIN+14, MAIN+16, GETPAT+9, PATDATA+1~, IHS1+2, IHS1+6, IHS1+12* , IHS1+13
Y(0	MAIN+12

Customize PDF page

Package: Text Integration Utility

Routine: TIUCHLP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: