Routine: TIULD

Information

TIULD ; SLC/JER - Admission related functions ; 1/13/03

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Text Integration Utility	8	$$CLASS^TIUCNSLT $$NOW^TIULC ($$PERSNAME,$$PNAME)^TIULC1 ($$DATE,$$NAME)^TIULS PATVADPT^TIULV MAIN^TIUMOVE $$READ^TIUU ($$INOUT,MAIN)^TIUVSIT
VA Fileman	2	^DIE $$GET1^DIQ
Authorization Subscription	1	$$ISA^USRLM
IHS Mods To Text Integration Utilities	1	($$CHEKDS,$$CHEKPN)^BTIULD
Kernel	1	$$FMADD^XLFDT

Package	Total	Caller Graph
Text Integration Utility	38	TIUADD TIUAUDIT TIUBR TIUBR1 TIUBRWS TIUCPFIX TIUDIRT TIUEDI2 TIUFIX1 TIUGBR TIUGEDIT TIUHL7U2 TIUPD TIUPEFIX TIUPEVNT TIUPNAPI TIUPRDS1 TIUPUTC TIUPUTS TIUPUTU TIUPXAP2 TIURA TIURB TIURC TIURD2 TIURD4 TIURHX TIURS TIUSROI TIUSROI1 TIUSRVP TIUSRVP2 TIUSRVPT TIUSRVR TIUSRVR1 TIUSRVR2 TIUTSK TIUVSIT
IHS Electronic Health Record	1	BEHODCS
Tracking Procedure Workflow	1	BTPWTIUT

Entry Points

Name	Comments	DBIA/ICR reference
CHEKPN(X,TIUBY)	; Display/validate demographic/visit information
GETTIU(TIUY,TIUDA)	; Gets admission array for existing DCS
CHEKDS(X)	; Display/validate correct patient/treatment episode
CHEKDSX
FIXMOVE(TIUY,DFN,TIUVSTR,TIUDA)	; See if Admission has been reinstated, and fix

External References

Name	Field # of Occurrence
$$CHEKDS^BTIULD	CHEKDS+1
$$CHEKPN^BTIULD	CHEKPN+1
^DIE	FIXMOVE+8
$$GET1^DIQ	GETTIU+10, GETTIU+12
$$CLASS^TIUCNSLT	CHEKPN+3
$$NOW^TIULC	CHEKPN+10
$$PERSNAME^TIULC1	CHEKPN+12
$$PNAME^TIULC1	GETTIU+5, CHEKPN+3
$$DATE^TIULS	CHEKDS+11, CHEKDS+13, CHEKPN+7, CHEKPN+9
$$NAME^TIULS	CHEKDS+7
PATVADPT^TIULV	GETTIU+17
MAIN^TIUMOVE	FIXMOVE+5, CHEKPN+23
$$READ^TIUU	CHEKDS+24, CHEKPN+13, CHEKPN+16
$$INOUT^TIUVSIT	CHEKPN+20
MAIN^TIUVSIT	CHEKPN+22
$$ISA^USRLM	CHEKDS+6
$$FMADD^XLFDT	FIXMOVE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Movement data doesn't exist for admission, can't create " Line Location: CHEKDS+4
Function Call: WRITE	Prompt: "Summary",! Line Location: CHEKDS+5
Function Call: WRITE	Prompt: !!?1,"Patient: ",$$NAME^TIULS(X("PNM"),"LAST, FIRST MI"),?40,"SSN: " Line Location: CHEKDS+7
Function Call: WRITE	Prompt: X("SSN"),?62,"Sex: ",$S(X("SEX")]"":$P(X("SEX"),U,2),1:"UNKNOWN"),! Line Location: CHEKDS+8
Function Call: WRITE	Prompt: ?5,"Age: ",$S(X("AGE")]"":X("AGE"),1:"UNKNOWN"),?40,"Claim #: " Line Location: CHEKDS+9
Function Call: WRITE	Prompt: $S(X("CLAIM")]"":X("CLAIM"),1:"UNKNOWN"),! Line Location: CHEKDS+10
Function Call: WRITE	Prompt: "Adm Date: ",$$DATE^TIULS($P(X("EDT"),U),"MM/DD/YY"),?40,"Ward: " Line Location: CHEKDS+11
Function Call: WRITE	Prompt: $P(X("WARD"),U,2),! Line Location: CHEKDS+12
Function Call: WRITE	Prompt: ?2,"Adm Dx: ",X("ADDX") Line Location: CHEKDS+14
Function Call: WRITE	Prompt: !?4,"Race: " Line Location: CHEKDS+17
Function Call: WRITE	Prompt: ?10,$P(X("RACE",TIURC),U,2),! Line Location: CHEKDS+17
Function Call: WRITE	Prompt: !?4,"Race: ",$P($G(X("RACE")),U,2),! Line Location: CHEKDS+18
Function Call: WRITE	Prompt: !,"A DISCHARGE SUMMARY is already on file:",! Line Location: CHEKDS+20
Function Call: WRITE	Prompt: ?2,"Dict'd: ",X("DICTDT"),?41,"By: ",X("AUTHOR"),! Line Location: CHEKDS+21
Function Call: WRITE	Prompt: ?2,"Signed: ",X("SIGDT"),?35,"Cosigned: ",X("COSDT"),! Line Location: CHEKDS+22
Function Call: WRITE	Prompt: ! Line Location: CHEKDS+25
Function Call: WRITE	Prompt: !!,"Enter/Edit " Line Location: CHEKPN+2
Function Call: WRITE	Prompt: $S(+$G(TIUCLASS):$S(TIUCLASS=3:"PROGRESS NOTE",TIUCLASS=+$$CLASS^TIUCNSLT:"CONSULT RESULT",1:$$PNAME^TIULC1(+TIUCLASS)),1:"PROGRESS NOTE"),"..." Line Location: CHEKPN+3
Function Call: WRITE	Prompt: !?10,"Patient Location: ",$S(+X("LOC"):$P(X("LOC"),U,2),1:"UNKNOWN") Line Location: CHEKPN+4
Function Call: WRITE	Prompt: !?$S(+$G(X("AD#")):4,1:8),"Date/time of " Line Location: CHEKPN+5
Function Call: WRITE	Prompt: $S(+$G(X("AD#")):"Admission: ",1:"Visit: ") Line Location: CHEKPN+6
Function Call: WRITE	Prompt: $S(+$P($G(X("VSTR")),";",2):$$DATE^TIULS($P(X("VSTR"),";",2),"MM/DD/YY HR:MIN"),1:"UNKNOWN") Line Location: CHEKPN+7
Function Call: WRITE	Prompt: !?9,"Date/time of Note: " Line Location: CHEKPN+8
Function Call: WRITE	Prompt: $S(+$G(X("REFDT"))>0:$$DATE^TIULS(X("REFDT"),"MM/DD/YY HR:MIN"),1:"NOW") Line Location: CHEKPN+9
Function Call: WRITE	Prompt: !?12,"Author of Note: " Line Location: CHEKPN+11
Function Call: WRITE	Prompt: $$PERSNAME^TIULC1($S($D(TIUAUTH):+TIUAUTH,1:DUZ)) Line Location: CHEKPN+12
Routine Call	DIE Line Location: FIXMOVE+8

FileNo	Call Tags
^DGPM - [#405]	GET1^DIQ
^TIU(8925 - [#8925]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	GETTIU+16, FIXMOVE+6
^TIU(8925 - [#8925]	GETTIU+2, GETTIU+6

Label References

Name	Line Occurrences
$$CHEKPN	CHEKPN+24
CHEKDSX	CHEKDS+3, CHEKDS+6
FIXMOVE	GETTIU+16

Naked Globals

Name	Field # of Occurrence
^(12	GETTIU+2
^(13	GETTIU+6
^(14	GETTIU+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BTIUVSIT	GETTIU+9~, GETTIU+10, GETTIU+11, GETTIU+12
DA	FIXMOVE+7~*
DFN	GETTIU+3*, GETTIU+16, GETTIU+17, FIXMOVE~, FIXMOVE+5, CHEKPN+22, CHEKPN+23
DIE	FIXMOVE+7~*
DIR	CHEKDS+2~
>> DIROUT	CHEKPN+14, CHEKPN+17, CHEKPN+21
DR	FIXMOVE+7~*
>> DTOUT	CHEKPN+14, CHEKPN+17, CHEKPN+21
>> DUOUT	CHEKPN+14, CHEKPN+17, CHEKPN+21
DUZ	CHEKDS+6, CHEKPN+12
>> TIU("AD#"	FIXMOVE+6, FIXMOVE+7
>> TIUAUTH	CHEKPN+12
TIUBY	CHEKPN~, CHEKPN+1, CHEKPN+15*, CHEKPN+24
>> TIUCLASS	CHEKPN+3
TIUD0	GETTIU+1~, GETTIU+2*, GETTIU+3, GETTIU+4, GETTIU+11
TIUD12	GETTIU+1~, GETTIU+2*, GETTIU+4
TIUD14	GETTIU+1~, GETTIU+2*, GETTIU+3
TIUDA	GETTIU~, GETTIU+2, GETTIU+6, GETTIU+16, FIXMOVE~, FIXMOVE+7
TIUDTYP	GETTIU+1~, GETTIU+3*, GETTIU+5
TIUEDT	FIXMOVE+1~, FIXMOVE+2*, FIXMOVE+3, FIXMOVE+5
TIUINOUT	CHEKPN+19~, CHEKPN+20*, CHEKPN+22, CHEKPN+23
TIULDT	FIXMOVE+1~, FIXMOVE+3*, FIXMOVE+4, FIXMOVE+5
TIULOC	FIXMOVE+1~, FIXMOVE+3*, FIXMOVE+4, FIXMOVE+5
TIUMVN	GETTIU+1~, GETTIU+3*, GETTIU+10, GETTIU+11, GETTIU+16, GETTIU+17
TIUPTF	GETTIU+1~
TIURC	CHEKDS+2~, CHEKDS+17*
TIUVSTR	GETTIU+1~, GETTIU+4, GETTIU+12, GETTIU+16, GETTIU+17, FIXMOVE~, FIXMOVE+2, FIXMOVE+3
TIUY	GETTIU~, GETTIU+16, GETTIU+17, FIXMOVE~, FIXMOVE+5
TIUY("AD#"	GETTIU+16
TIUY("DOCTYP"	GETTIU+5*
TIUY("REFDT"	GETTIU+6*
U	GETTIU+3, GETTIU+4, GETTIU+5, GETTIU+11, CHEKDS+8, CHEKDS+11, CHEKDS+12, CHEKDS+17, CHEKDS+18, CHEKPN+4 , CHEKPN+22, CHEKPN+23
X	CHEKDS~, CHEKDS+1, CHEKPN~, CHEKPN+1, CHEKPN+19!, CHEKPN+22, CHEKPN+23, CHEKPN+24
X("AD#"	CHEKDS+3, CHEKPN+5, CHEKPN+6
X("ADDX"	CHEKDS+14
X("AGE"	CHEKDS+9
X("AUTHOR"	CHEKDS+21
X("CLAIM"	CHEKDS+10
X("COSDT"	CHEKDS+22
X("DICTDT"	CHEKDS+19, CHEKDS+21
X("EDT"	CHEKDS+3, CHEKDS+11
X("LDT"	CHEKDS+13
X("LOC"	CHEKPN+4
X("NUMRACE"	CHEKDS+16, CHEKDS+17
X("PNM"	CHEKDS+7
X("RACE"	CHEKDS+17, CHEKDS+18
X("RACENO"	CHEKDS+18
X("REFDT"	CHEKPN+9, CHEKPN+10*
X("SEX"	CHEKDS+8
X("SIGDT"	CHEKDS+22
X("SSN"	CHEKDS+8
X("VSTR"	CHEKPN+7
X("WARD"	CHEKDS+12
Y	CHEKDS+2~, CHEKDS+6, CHEKDS+23, CHEKDS+24, CHEKDSX, CHEKPN+13, CHEKPN+15, CHEKPN+16, CHEKPN+18, CHEKPN+24* , CHEKPN+25

Customize PDF page

Package: Text Integration Utility

Routine: TIULD

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 40

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: