Routine: BTIUCHLP

Package	Total	Call Graph
Text Integration Utility	7	$$CHEKPN^TIUCHLP $$PATIENT^TIULA ($$DOCCLASS,$$PNAME)^TIULC1 $$DATE^TIULS MAKE^TIUPEFIX $$READ^TIUU ENPN^TIUVSIT
IHS Mods To Text Integration Utilities	1	$$EVENT^BTIUPUTP
IHS VA Utilities	1	ENP^XBDIQ1

Package

Total

Call Graph

Text Integration Utility

$$CHEKPN^TIUCHLP $$PATIENT^TIULA ($$DOCCLASS,$$PNAME)^TIULC1 $$DATE^TIULS MAKE^TIUPEFIX $$READ^TIUU ENPN^TIUVSIT

IHS Mods To Text Integration Utilities

$$EVENT^BTIUPUTP

IHS VA Utilities

ENP^XBDIQ1

Package	Total	Caller Graph
IHS Mods To Text Integration Utilities	1	BTIUVSIT
Text Integration Utility	1	TIUCHLP

Package

Total

Caller Graph

IHS Mods To Text Integration Utilities

BTIUVSIT

Text Integration Utility

TIUCHLP

Entry Points

Name	Comments	DBIA/ICR reference
GETEVNT	;EP ; Help get Fields for PN Dictation/Error Resolution
SURG	;- -- finds surgeries for hospitalization
ADDEVNT(DFN)	;EP -- returns visit ien for event visit created ; -- create event visit based on user responses; called by ^BTIUVSIT
CHEKPN(X)	;EP; Display/validate demographic/visit information ; called by TIUCHLP

External References

Name	Field # of Occurrence
$$EVENT^BTIUPUTP	ADDEVNT+5
$$CHEKPN^TIUCHLP	GETEVNT+12
$$PATIENT^TIULA	GETEVNT+4
$$DOCCLASS^TIULC1	CHEKPN+11, CHEKPN+14
$$PNAME^TIULC1	CHEKPN+11, CHEKPN+14
$$DATE^TIULS	CHEKPN+6, CHEKPN+9, SURG+6
MAKE^TIUPEFIX	GETEVNT+14
$$READ^TIUU	GETEVNT+5, ADDEVNT+3, ADDEVNT+4
ENPN^TIUVSIT	GETEVNT+10
ENP^XBDIQ1	SURG+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PCC Visit Identifiers..." Line Location: CHEKPN+2
Function Call: WRITE	Prompt: !?14,"Patient Name: ",$S($G(X("PNM"))]"":$G(X("PNM")),1:"UNKNOWN") Line Location: CHEKPN+3
Function Call: WRITE	Prompt: !?14,"Patient HRCN: ",$S($G(X("HRCN"))]"":$G(X("HRCN")),1:"UNKNOWN") Line Location: CHEKPN+4
Function Call: WRITE	Prompt: !?8,"Date/time of Visit: " Line Location: CHEKPN+5
Function Call: WRITE	Prompt: $S(+$G(X("VISIT")):$$DATE^TIULS($P(X("VISIT"),U,2),"MM/DD/YY HR:MIN"),+$G(X("EDT")):$$DATE^TIULS(X("EDT"),"MM/DD/YY HR:MIN"),1:"UNKNOWN") Line Location: CHEKPN+6
Function Call: WRITE	Prompt: ?50,$P($G(X("CAT")),U,2) Line Location: CHEKPN+7
Function Call: WRITE	Prompt: ! Line Location: CHEKPN+8
Function Call: WRITE	Prompt: ?12,"Discharge Date: ",$$DATE^TIULS(+X("LDT"),"MM/DD/YY HR:MIN") Line Location: CHEKPN+9
Function Call: WRITE	Prompt: ?50,$P($G(X("WARD")),U,2),?57,$P($G(X("TS")),U,2),! Line Location: CHEKPN+10
Function Call: WRITE	Prompt: !?50,$P($G(^DIC(40.7,+$P($G(^AUPNVSIT(+X("VISIT"),0)),U,8),0)),U),! Line Location: CHEKPN+13
Function Call: WRITE	Prompt: ?15,"Surgery on ",$$DATE^TIULS(ORDT,"MM/DD/YY") Line Location: SURG+6
Function Call: WRITE	Prompt: ?38,"Cancelled" Line Location: SURG+9
Function Call: WRITE	Prompt: ?38,$E(ARR(.14),1,15) Line Location: SURG+10
Function Call: WRITE	Prompt: "/",$E(ARR(.15),1,15) Line Location: SURG+11
Function Call: WRITE	Prompt: !?20,$E($S(ARR(26)]"":ARR(26),1:ARR(68)),1,58) Line Location: SURG+12
Function Call: WRITE	Prompt: ! Line Location: SURG+13

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	CHEKPN+13
^DIC(40.7 - [#40.7]	CHEKPN+13
^SRF("AIHS4"	SURG+4, SURG+5, SURG+7

Name	Line Occurrences
$$ADDEVNT	GETEVNT+8
SURG	CHEKPN+11, CHEKPN+14

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	SURG+1~, SURG+8!
ARR(	SURG+10, SURG+11
ARR(17	SURG+9
ARR(26	SURG+12
ARR(68	SURG+12
AUPNLK	GETEVNT+3~
AUPNLK("ALL"	GETEVNT+3*
>> BUFDA	GETEVNT+14
DFN	SURG+5, SURG+7, GETEVNT+2~, GETEVNT+4*, GETEVNT+8, GETEVNT+10, GETEVNT+14, ADDEVNT~, ADDEVNT+5
DT	SURG+3
END	SURG+1~, SURG+3*, SURG+4
IEN	SURG+1~, SURG+7*, SURG+8
ORDT	SURG+1~, SURG+2, SURG+4, SURG+5, SURG+6, SURG+7
>> SUCCESS	GETEVNT+14, GETEVNT+15
TITLE	GETEVNT+2~, GETEVNT+14
TIU	GETEVNT+2~, GETEVNT+10, GETEVNT+11, GETEVNT+12, GETEVNT+14
>> TIUDONE	GETEVNT+15*
TIUFAC	ADDEVNT+2~, ADDEVNT+3*, ADDEVNT+4, ADDEVNT+5
>> TIUTYPE	CHEKPN+11, CHEKPN+14
TIUVDT	ADDEVNT+2~, ADDEVNT+4*, ADDEVNT+5
TIUVST	GETEVNT+8, ADDEVNT+2~, ADDEVNT+5, ADDEVNT+6
TIUY	GETEVNT+2~, GETEVNT+12*, GETEVNT+13
U	CHEKPN+6, CHEKPN+7, CHEKPN+8, CHEKPN+10, CHEKPN+13, SURG+3
X	CHEKPN~
X("CAT"	CHEKPN+7, CHEKPN+8, SURG+3
X("EDT"	CHEKPN+6, SURG+2, SURG+3
X("HRCN"	CHEKPN+4
X("LDT"	CHEKPN+9, SURG+3
X("PNM"	CHEKPN+3
X("TS"	CHEKPN+10
X("VISIT"	CHEKPN+6, CHEKPN+13
X("WARD"	CHEKPN+10
>> XQADATA	GETEVNT+14
Y	GETEVNT+2~, GETEVNT+5*, GETEVNT+6

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIUCHLP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: