Routine: BTIULD

Package	Total	Call Graph
Text Integration Utility	3	($$DATE,$$NAME)^TIULS $$READ^TIUU MAIN^TIUVSIT
Authorization Subscription	1	$$ISA^USRLM
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Text Integration Utility	1	TIULD

Entry Points

Name	Comments	DBIA/ICR reference
HOSP()	; -- returns 1 if visit is hospitalization
CHEKDS(DATA)	;EP; Display/validate correct patient/treatment episode
CHEKDSX
CHEKPN(DATA,TIUBY)	;EP; Display/validate demographic/visit information

External References

Name	Field # of Occurrence
$$GET1^DIQ	CHEKPN+7, CHEKPN+8
$$DATE^TIULS	CHEKDS+8, CHEKDS+10, CHEKPN+6
$$NAME^TIULS	CHEKDS+6, CHEKPN+3
$$READ^TIUU	CHEKDS+17, CHEKPN+11
MAIN^TIUVSIT	CHEKPN+14
$$ISA^USRLM	CHEKDS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Movement data doesn't exist for admission, can't create " Line Location: CHEKDS+3
Function Call: WRITE	Prompt: "Summary",! Line Location: CHEKDS+4
Function Call: WRITE	Prompt: !!?1,"Patient: ",$$NAME^TIULS(DATA("PNM"),"LAST, FIRST MI"),?39,"HRCN: " Line Location: CHEKDS+6
Function Call: WRITE	Prompt: DATA("HRCN"),?62,"Sex: ",$S(DATA("SEX")]"":$P(DATA("SEX"),U,2),1:"UNKNOWN"),! Line Location: CHEKDS+7
Function Call: WRITE	Prompt: "Adm Date: ",$$DATE^TIULS($P(DATA("EDT"),U),"MM/DD/YY"),?39,"Ward: " Line Location: CHEKDS+8
Function Call: WRITE	Prompt: $P(DATA("WARD"),U,2),?62,"Age: ",$S(DATA("AGE")]"":DATA("AGE"),1:"UNKNOWN"),! Line Location: CHEKDS+9
Function Call: WRITE	Prompt: ?2,"Adm Dx: ",DATA("ADDX"),!,"Att Prov: ",$P(DATA("PMD"),U,2),! Line Location: CHEKDS+11
Function Call: WRITE	Prompt: !,"A DISCHARGE SUMMARY is already on file:",! Line Location: CHEKDS+13
Function Call: WRITE	Prompt: ?2,"Dict'd: ",DATA("DICTDT"),?41,"By: ",DATA("AUTHOR"),! Line Location: CHEKDS+14
Function Call: WRITE	Prompt: ?2,"Signed: ",DATA("SIGDT"),?35,"Cosigned: ",DATA("COSDT"),! Line Location: CHEKDS+15
Function Call: WRITE	Prompt: ! Line Location: CHEKDS+18
Function Call: WRITE	Prompt: !!,"Creating new ",$G(TIUTYPNM,"document"),"..." Line Location: CHEKPN+2
Function Call: WRITE	Prompt: !!?1,"Patient: ",$$NAME^TIULS(DATA("PNM"),"LAST, FIRST MI"),?39,"HRCN: " Line Location: CHEKPN+3
Function Call: WRITE	Prompt: DATA("HRCN"),?62,"Sex: ",$S(DATA("SEX")]"":$P(DATA("SEX"),U,2),1:"UNKNOWN") Line Location: CHEKPN+4
Function Call: WRITE	Prompt: !?4,"Date/time of ",$S($$HOSP:"Admission: ",1:"Visit: ") Line Location: CHEKPN+5
Function Call: WRITE	Prompt: $S(+$P($G(DATA("VSTR")),";",2):$$DATE^TIULS($P(DATA("VSTR"),";",2),"MM/DD/YY HR:MIN"),1:"UNKNOWN") Line Location: CHEKPN+6
Function Call: WRITE	Prompt: " ",$E($$GET1^DIQ(9000010,+DATA("VISIT"),.06),1,12) Line Location: CHEKPN+7
Function Call: WRITE	Prompt: ?55,$E($$GET1^DIQ(9000010,+DATA("VISIT"),.08),1,20) Line Location: CHEKPN+8
Function Call: WRITE	Prompt: ?61,"Ward: ",$P(DATA("LOC"),U,2) Line Location: CHEKPN+9

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: IHS Mods To Text Integration Utilities

Routine: BTIULD

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend:

Name	Line Occurrences
$$CHEKPN	CHEKPN+15
$$HOSP	CHEKPN+5, CHEKPN+8
CHEKDSX	CHEKDS+2, CHEKDS+5

Name	Field # of Occurrence
DATA	CHEKDS~, CHEKPN~
DATA("AD#"	CHEKDS+2
DATA("ADDX"	CHEKDS+11
DATA("AGE"	CHEKDS+9
DATA("AUTHOR"	CHEKDS+14
DATA("CAT"	HOSP+1
DATA("COSDT"	CHEKDS+15
DATA("DICTDT"	CHEKDS+12, CHEKDS+14
DATA("EDT"	CHEKDS+2, CHEKDS+8
DATA("HRCN"	CHEKDS+7, CHEKPN+4
DATA("LDT"	CHEKDS+10
DATA("LOC"	CHEKPN+9
DATA("PMD"	CHEKDS+11
DATA("PNM"	CHEKDS+6, CHEKPN+3
DATA("SEX"	CHEKDS+7, CHEKPN+4
DATA("SIGDT"	CHEKDS+15
DATA("VISIT"	CHEKPN+7, CHEKPN+8
DATA("VSTR"	CHEKPN+6
DATA("WARD"	CHEKDS+9
>> DFN	CHEKPN+14
>> DIROUT	CHEKPN+12
>> DTOUT	CHEKPN+12
>> DUOUT	CHEKPN+12
DUZ	CHEKDS+5
TIUBY	CHEKPN~, CHEKPN+15
>> TIUTYPNM	CHEKPN+2
U	CHEKDS+7, CHEKDS+8, CHEKDS+9, CHEKDS+11, CHEKPN+4, CHEKPN+9, HOSP+1
X	CHEKPN+14!, CHEKPN+15
Y	CHEKDS+1~, CHEKDS+5, CHEKDS+16, CHEKDS+17, CHEKDSX, CHEKPN+1~, CHEKPN+11, CHEKPN+13, CHEKPN+15*, CHEKPN+16