Routine: TIUPUTCP

Information

TIUPUTCP ; SLC/JER,RMO - CP Look-up Method ;4/18/03

Package	Total	Call Graph
Text Integration Utility	17	SENDADD^TIUALRT $$CHEKPN^TIUCHLP $$CLASS^TIUCP (LOADTIUX,MAKE)^TIUCPFIX AUDIT^TIUEDI1 $$GETRECNW^TIUEDI3 $$PATIENT^TIULA ($$CHKSUM,$$IDATE,$$NOW)^TIULC ($$DIVISION,$$DOCCLASS,$$PNAME,$$WHOCOSIG,$$WHOSIGNS,DOCPRM)^TIULC1 $$DATE^TIULS PATVADPT^TIULV MAIN^TIUMOVE $$WHATITLE^TIUPUTU QUE^TIUPXAP1 RELEASE^TIUT $$READ^TIUU (ENPN,MAIN)^TIUVSIT
Consult Request Tracking	2	($$CPACTM,$$CPPAT)^GMRCCP GET^GMRCTIU
VA FileMan	2	(,IX)^DIC (,FILE,VAL)^DIE
Kernel	1	$$FMADD^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Text Integration Utility	2	TIUCPFIX ^TIU(8925.1

Entry Points

Name	Comments	DBIA/ICR reference
LOOKUP	; Look-up code used by router/filer ; Required: TIUSSN, TIUVDT, TIUCNNBR
LOOKUPX
ILOC(LOCATION)	; Get pointer to file 44
CANEDIT(DA)	; Check if document is not released yet
CHKCN(TIUCDA,DFN,TIUDA,TIUDNB)	;Check if Consult is associated with correct patient
CHKCNQ
CHKCP(TIUCDA,TIUDA,TIUDNB)	;Check status of Consult as it relates to CP ; Input -- TIUCDA Request/Consult file (#123) IEN ; TIUDA TIU Document file (#8925) IEN (Optional) ; Output -- 1=Successful and 0=Failure ; TIUDNB Dialogue Number for Error Message (Optional)
CHKCPQ
MAKEADD()	; Create an addendum record
STUFREC(DA,PARENT)	; Stuff fixed field data
DELTEXT(DA)	; Delete existing text in preparation for replacement
WHATYPE(X)	; Identify document type ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
WHATYPX
WHATITLE(X)	; Identify document title ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
WHATITX
FOLLOWUP(TIUDA)	; Post-filing code for CLINICAL PROCEDURES
GETCP	; Help get Fields for CP Dictation/Error Resolution
GETCPQ
CHKUPL(TIUBUF)	;Check if Buffer Entry has TIU Document Number ; Input -- TIUBUF TIU Upload Buffer file (#8925.2) IEN ; Output -- 1=Yes and 0=No
ASKUPL(DFN,TIUPLDA)	;Ask TIU Document Number for Error Resolution ; Input -- DFN Patient file (#2) IEN ; Output -- 1=Successful and 0=Failure ; TIUPLDA TIU Document file (#8925) IEN
ID(TIUDA)	;Display TIU Document Information for Error Resolution ; Input -- TIUDA TIU Document file (#8925) IEN (Optional) ; Output -- None

External References

Name	Field # of Occurrence
^DIC	ILOC+2, MAKEADD+4, WHATYPE+6, WHATITLE+7
IX^DIC	ASKUPL+9
^DIE	MAKEADD+6, DELTEXT+2
FILE^DIE	STUFREC+32, FOLLOWUP+6, FOLLOWUP+8
VAL^DIE	STUFREC+27, STUFREC+30
$$CPACTM^GMRCCP	CHKCP+6
$$CPPAT^GMRCCP	CHKCN+12
GET^GMRCTIU	FOLLOWUP+16
SENDADD^TIUALRT	LOOKUP+41
$$CHEKPN^TIUCHLP	GETCP+19
$$CLASS^TIUCP	WHATITLE+4
LOADTIUX^TIUCPFIX	CHKUPL+4
MAKE^TIUCPFIX	GETCP+20
AUDIT^TIUEDI1	FOLLOWUP+10
$$GETRECNW^TIUEDI3	LOOKUP+31
$$PATIENT^TIULA	GETCP+2
$$CHKSUM^TIULC	FOLLOWUP+10
$$IDATE^TIULC	LOOKUP+9, LOOKUP+17, STUFREC+24
$$NOW^TIULC	STUFREC+8, STUFREC+21
$$DIVISION^TIULC1	LOOKUP+8
$$DOCCLASS^TIULC1	MAKEADD+6
$$PNAME^TIULC1	LOOKUP+25, FOLLOWUP+13
$$WHOCOSIG^TIULC1	FOLLOWUP+5
$$WHOSIGNS^TIULC1	FOLLOWUP+3
DOCPRM^TIULC1	LOOKUP+18
$$DATE^TIULS	ID+4
PATVADPT^TIULV	GETCP+14
MAIN^TIUMOVE	LOOKUP+14
$$WHATITLE^TIUPUTU	MAKEADD+2
QUE^TIUPXAP1	FOLLOWUP+26
RELEASE^TIUT	FOLLOWUP+9
$$READ^TIUU	GETCP+25
ENPN^TIUVSIT	GETCP+17
MAIN^TIUVSIT	LOOKUP+15, FOLLOWUP+24
$$FMADD^XLFDT	LOOKUP+9, FOLLOWUP+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$PNAME^TIULC1(+$G(^TIU(8925,+TIUDA,0)))," #: ",TIUDA Line Location: FOLLOWUP+13
Function Call: WRITE	Prompt: " Linked to Consult Request #: ",TIUCDA,".",! Line Location: FOLLOWUP+14
Function Call: WRITE	Prompt: !!,"Please correct the buffered upload data.",!,$P(SUCCESS,U,2),! Line Location: GETCP+24
Function Call: WRITE	Prompt: "" Line Location: GETCP+25
Function Call: WRITE	Prompt: !?12,"Document #: ",TIUDA Line Location: ID+3
Function Call: WRITE	Prompt: ?34,"Dated: ",$$DATE^TIULS(+$G(^TIU(8925,+TIUDA,13)),"MM/DD/CCYY@HR:MIN") Line Location: ID+4
Function Call: WRITE	Prompt: ?60,"Consult #: ",+$P($G(^TIU(8925,+TIUDA,14)),U,5) Line Location: ID+5
Routine Call	DIC Line Location: ILOC+2 MAKEADD+4 WHATYPE+6 WHATITLE+7
Routine Call	DIC Line Location: ASKUPL+9
Routine Call	DIE Line Location: MAKEADD+6 DELTEXT+2
Routine Call	DIE Line Location: STUFREC+32 FOLLOWUP+6 FOLLOWUP+8
Routine Call	DIE Line Location: STUFREC+27 STUFREC+30

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^TIU(8925 - [#8925]	Classic Fileman Calls, VAL^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	LOOKUP+7, LOOKUP+13
^TIU(8925 - [#8925]	LOOKUP+37, CANEDIT+1, CHKCN+17, CHKCN+19, STUFREC+11, STUFREC+13, STUFREC+14, STUFREC+17, STUFREC+18, STUFREC+19 , STUFREC+20, STUFREC+29, FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+11, FOLLOWUP+12, FOLLOWUP+13, FOLLOWUP+19, GETCP+8, GETCP+9 , GETCP+12, ID+4, ID+5

Label References

Name	Line Occurrences
$$ASKUPL	GETCP+6
$$CANEDIT	LOOKUP+36
$$CHKCN	LOOKUP+21
$$CHKCP	LOOKUP+24
$$CHKUPL	GETCP+5
$$ILOC	LOOKUP+6
$$MAKEADD	LOOKUP+38
$$WHATITLE	LOOKUP+11
CHKCNQ	CHKCN+9, CHKCN+12, CHKCN+15
CHKCPQ	CHKCP+7, CHKCP+8, CHKCP+9
DELTEXT	LOOKUP+37
GETCPQ	GETCP+2, GETCP+5, GETCP+15
LOOKUPX	LOOKUP+3, LOOKUP+5, LOOKUP+7, LOOKUP+16, LOOKUP+17, LOOKUP+21, LOOKUP+24, LOOKUP+32
STUFREC	LOOKUP+40

Naked Globals

Name	Field # of Occurrence
^(12	FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUFDA	GETCP+3
D	ASKUPL+4~, ASKUPL+5*
D0	ASKUPL+4~
DA	LOOKUP+2~, CANEDIT~, CANEDIT+1, MAKEADD+1~, MAKEADD+5*, MAKEADD+6, MAKEADD+8, STUFREC~, STUFREC+2, STUFREC+27 , STUFREC+30, DELTEXT~, FOLLOWUP+12~
DD	ASKUPL+4~
DFN	LOOKUP+2~, LOOKUP+14, LOOKUP+15, LOOKUP+16, LOOKUP+21, LOOKUP+31, CHKCN~, CHKCN+12, STUFREC+5, FOLLOWUP+1~ , FOLLOWUP+20, FOLLOWUP+23, FOLLOWUP+24, GETCP+1~, GETCP+2, GETCP+6, GETCP+14, GETCP+17, GETCP+20, ASKUPL~ , ASKUPL+6
DIC	ILOC+1~, ILOC+2, MAKEADD+1~, MAKEADD+3, MAKEADD+6, WHATYPE+3~, WHATYPE+4, WHATITLE+3~, WHATITLE+4, ASKUPL+4~ , ASKUPL+5*
DIC("S"	WHATYPE+5, WHATYPE+6!, WHATITLE+6, WHATITLE+7!, ASKUPL+7*
DIC("W"	ASKUPL+8*
DIC(0	ILOC+2, MAKEADD+3, WHATYPE+4, WHATITLE+4, ASKUPL+5*
DIE	MAKEADD+1~, MAKEADD+6, DELTEXT+1~, DELTEXT+2
DINUM	ASKUPL+4~
DLAYGO	MAKEADD+1~, MAKEADD+3*, ASKUPL+4~
DR	MAKEADD+1~, MAKEADD+6, DELTEXT+1~, DELTEXT+2
FDA	STUFREC+1~, FOLLOWUP+1~
FDARR	STUFREC+1~, STUFREC+2, STUFREC+5, STUFREC+6, STUFREC+7, STUFREC+8, STUFREC+9, STUFREC+10, STUFREC+11, STUFREC+13 , STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20, STUFREC+21, STUFREC+22, STUFREC+23 , STUFREC+24, STUFREC+25, STUFREC+26, STUFREC+28, STUFREC+31, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+8
FLAGS	STUFREC+1~, STUFREC+2, STUFREC+32, FOLLOWUP+1~, FOLLOWUP+2, FOLLOWUP+6, FOLLOWUP+8
IENS	STUFREC+1~, STUFREC+2, FOLLOWUP+1~, FOLLOWUP+2
LOCATION	ILOC~, ILOC+2
OKF	CHKCN+7~, CHKCN+22, CHKCNQ, CHKCP+5~, CHKCP+12, CHKCPQ
PARENT	STUFREC~, STUFREC+3, STUFREC+12, STUFREC+13, STUFREC+14, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20
SCREEN	WHATITLE+3~, WHATITLE+5*, WHATITLE+6
>> SUCCESS	GETCP+20, GETCP+21, GETCP+24
TITLE	GETCP+1~, GETCP+20
TIU	LOOKUP+2~, LOOKUP+14, LOOKUP+15, LOOKUP+16, LOOKUP+31, FOLLOWUP+1~, FOLLOWUP+24, GETCP+1~, GETCP+5, GETCP+14 , GETCP+15, GETCP+17, GETCP+18, GETCP+19, GETCP+20
TIU("EDT"	LOOKUP+17, STUFREC+6
TIU("INST"	STUFREC+23
TIU("LDT"	STUFREC+7
TIU("LOC"	STUFREC+9, STUFREC+22
TIU("SVC"	STUFREC+10
TIU("VISIT"	STUFREC+5
TIU("VLOC"	STUFREC+9
TIU("VSTR"	FOLLOWUP+17, FOLLOWUP+25
TIUATYP	MAKEADD+1~, MAKEADD+2*, MAKEADD+3, MAKEADD+6
TIUBUF	GETCP+1~, GETCP+3*, GETCP+5, GETCP+20, CHKUPL~, CHKUPL+4
TIUCDA	CHKCN~, CHKCN+9, CHKCN+12, CHKCN+19, CHKCP~, CHKCP+6, FOLLOWUP+12~*, FOLLOWUP+14, FOLLOWUP+16
TIUCLASS	WHATITLE+3~, WHATITLE+4*, WHATITLE+5
>> TIUCNNBR	LOOKUP+21, LOOKUP+24
TIUCPACT	CHKCP+5~, CHKCP+6*, CHKCP+7, CHKCP+8, CHKCP+9
TIUD0	FOLLOWUP+18~, FOLLOWUP+19*, FOLLOWUP+20
TIUD12	FOLLOWUP+18~, FOLLOWUP+19*, FOLLOWUP+21, FOLLOWUP+22
TIUDA	CHKCN~, CHKCN+15, CHKCN+17, CHKCN+19, CHKCP~, CHKCP+9, FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+4 , FOLLOWUP+5, FOLLOWUP+7, FOLLOWUP+9, FOLLOWUP+10, FOLLOWUP+11, FOLLOWUP+12, FOLLOWUP+13, FOLLOWUP+16, FOLLOWUP+19, ID~ , ID+3, ID+4, ID+5
TIUDAD	LOOKUP+2~, LOOKUP+38*, LOOKUP+40, LOOKUP+41
>> TIUDDT	STUFREC+24
TIUDNB	LOOKUP+2~, LOOKUP+21, LOOKUP+24, CHKCN~, CHKCN+9, CHKCN+12, CHKCN+15, CHKCN+17, CHKCN+19, CHKCP~ , CHKCP+7, CHKCP+8, CHKCP+9*
>> TIUDONE	GETCP+22*
TIUDPRM	LOOKUP+2~, LOOKUP+18, LOOKUP+31
>> TIUDTP	STUFREC+30
TIUDTPI	STUFREC+1~, STUFREC+30, STUFREC+31
TIUEDIT	LOOKUP+2~, LOOKUP+36*, LOOKUP+37, LOOKUP+38
TIUEDT	LOOKUP+2~, LOOKUP+9, LOOKUP+10, LOOKUP+14, LOOKUP+15, FOLLOWUP+18~, FOLLOWUP+20, FOLLOWUP+21, FOLLOWUP+23, FOLLOWUP+24
TIUFPRIV	MAKEADD+1~, WHATYPE+3~, WHATITLE+3~*
>> TIUHDR(	LOOKUP+43!, LOOKUP+44!, MAKEADD+7!
>> TIUHDR(1301	LOOKUP+43!
>> TIUHDR(70201	LOOKUP+44!
>> TIUHDR(70202	LOOKUP+44!
TIUHLOC	FOLLOWUP+18~, FOLLOWUP+21*, FOLLOWUP+22
>> TIUINST	LOOKUP+8*
TIULDT	LOOKUP+2~, LOOKUP+9, LOOKUP+14, LOOKUP+15, FOLLOWUP+18~, FOLLOWUP+21, FOLLOWUP+23, FOLLOWUP+24
>> TIULOC	LOOKUP+6*, LOOKUP+7, LOOKUP+8, LOOKUP+13, LOOKUP+14, LOOKUP+15
TIUMSG	STUFREC+1~, FOLLOWUP+1~
TIUMVN	GETCP+1~, GETCP+9*, GETCP+14
TIUNEW	LOOKUP+2~, LOOKUP+31, LOOKUP+35
TIUPLDA	LOOKUP+21, LOOKUP+24, LOOKUP+28, LOOKUP+29, STUFREC+4, STUFREC+11, STUFREC+22, STUFREC+29, GETCP+1~, GETCP+6 , GETCP+8, GETCP+9, GETCP+12, GETCP+20, ASKUPL~, ASKUPL+10*, ASKUPL+11
>> TIUPSC	STUFREC+27
TIUPSCI	STUFREC+1~, STUFREC+27, STUFREC+28
>> TIUSSN	LOOKUP+3, LOOKUP+4*, LOOKUP+5, LOOKUP+14, LOOKUP+15
>> TIUTITLE	LOOKUP+11
>> TIUTYP(1	LOOKUP+25*, LOOKUP+31
TIUTYPE	LOOKUP+2~, LOOKUP+11*, LOOKUP+12, LOOKUP+18, LOOKUP+25
>> TIUVDT	LOOKUP+3, LOOKUP+9, LOOKUP+17
TIUVLOC	FOLLOWUP+18~, FOLLOWUP+22*, FOLLOWUP+23, FOLLOWUP+24
TIUVSTR	GETCP+1~, GETCP+12*, GETCP+14
TIUX	CHKUPL+3~, CHKUPL+4
TIUX(	CHKUPL+5
TIUXCRP	LOOKUP+2~
TIUY	GETCP+1~, GETCP+19*
U	LOOKUP+13, LOOKUP+25, CANEDIT+1, CHKCN+19, STUFREC+5, STUFREC+6, STUFREC+7, STUFREC+9, STUFREC+10, STUFREC+11 , STUFREC+13, STUFREC+14, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20, STUFREC+22, STUFREC+23, STUFREC+29, FOLLOWUP+4 , FOLLOWUP+7, FOLLOWUP+11, FOLLOWUP+12, FOLLOWUP+20, FOLLOWUP+21, FOLLOWUP+22, GETCP+12, GETCP+24, ID+5
X	ILOC+1~, ILOC+2, MAKEADD+1~, MAKEADD+3, DELTEXT+1~, WHATYPE~, WHATITLE~, ASKUPL+4~, ASKUPL+6*
>> XQADATA	GETCP+3
Y	LOOKUP+3, LOOKUP+5, LOOKUP+7, LOOKUP+10, LOOKUP+12, LOOKUP+16, LOOKUP+17, LOOKUP+21, LOOKUP+24, LOOKUP+29 , LOOKUP+31, LOOKUP+32, LOOKUP+36, LOOKUP+37, LOOKUP+38, LOOKUP+39, LOOKUP+40, LOOKUP+41, ILOC+1~, ILOC+3 , MAKEADD+1~, MAKEADD+5, DELTEXT+1~, WHATYPE+3~, WHATYPX, WHATITLE+3~, WHATITX, CHKUPL+3~, CHKUPL+5*, CHKUPL+6 , ASKUPL+4~, ASKUPL+10

Customize PDF page

Package: Text Integration Utility

Routine: TIUPUTCP

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: