Routine: TIUP149

Package	Total	Call Graph
Text Integration Utility	5	$$ISCOMP^TIUBR $$ISADDNDM^TIULC1 $$ISDS^TIULX MAIL^TIUP149P $$UPDVST^TIUPXAP2
Kernel	3	(,$$S)^%ZTLOAD ($$FMADD,$$NOW)^XLFDT $$VERSION^XPDUTL
PCE Patient Care Encounter	1	$$GETENC^PXAPI
VA Fileman	1	FILE^DIE

Package	Total	Caller Graph
Text Integration Utility	1	TIUP149P

Entry Points

Name	Comments	DBIA/ICR reference
CHKDOCQ
EN	;Entry point to queue a job to clean up certain documents
DELVSTQ
SETXTMP(TIUDA,TIUEX,VSIT)	;Set ^XTMP for entries processed ; Input -- TIUDA TIU Document file (#8925) IEN ; TIUEX Unable to correct Exception types: (Optional) ; 1=Entry in Use ; 2=Unlink Visit ; 3=NDBI Fix Needed ; VSIT Visit file (#9000010) IEN (Optional) ; Output -- Set ^XTMP("TIUP149","LNK",TIUDA)= ; 1st piece= 1=Linked and 0=Not Linked ; 2nd piece= Exception type if not linked ; 3rd piece= Visit file (#9000010) IEN if linked
CLNONE(TIUDA,NDBIF)	;Entry point to clean up visit for one document ; Input -- TIUDA TIU Document file (#8925) IEN ; NDBIF Integrated Facility Flag (Optional) ; Output -- None
UPDKIDS(TIUDA,VSIT)	;Update Visit for kids that are addenda or components ; Input -- TIUDA TIU Document file (#8925) IEN ; VSIT Visit file (#9000010) IEN (Optional) ; Output -- None
CHKINF()	;Check if Integrated Facility ; Input -- TIUDA TIU Document file (#8925) IEN ; Output -- 1=Yes and 0=No
DELVST(TIUDA,ERROR)	;Delete Visit in TIU Document file #8925 ; Input -- TIUDA TIU Document file (#8925) IEN ; Output -- 1=Successful and 0=Failure ; ERROR Error Message (Optional)
GETVST(TIUDA,TIUDFN,TIUDAD,VSIT,TIUMVSTF)	;Get visit to associate with document ; Input -- TIUDA TIU Document file (#8925) IEN ; TIUDFN Patient file (#2) IEN ; TIUDAD TIU document file (#8925) Parent's IEN ; Output -- VSIT Visit file (#9000010) IEN ; TIUMVSTF Multiple Visit Flag ; 1=Multiple Visits
CLNUP	;Entry point to clean up documents pointing to a different patient's
GETVSTQ
CHKDOC(TIUDA,TIUDAD,TITLE)	;Check if document can be cleaned up ; Input -- TIUDA TIU Document file (#8925) IEN ; TIUDAD TIU document file (#8925) Parent's IEN ; TITLE TIU Document Definition file (#8925.1) IEN ; Output -- 1=Can be cleaned up and 0=Cannot be cleaned up

External References

Name	Field # of Occurrence
^%ZTLOAD	EN+23
$$S^%ZTLOAD	CLNUP+34
FILE^DIE	DELVST+9
$$GETENC^PXAPI	GETVST+28
$$ISCOMP^TIUBR	CHKDOC+13, GETVST+15, UPDKIDS+8
$$ISADDNDM^TIULC1	CHKDOC+13, GETVST+15, UPDKIDS+8
$$ISDS^TIULX	CHKDOC+18, GETVST+22
MAIL^TIUP149P	CLNUP+40
$$UPDVST^TIUPXAP2	CLNONE+20, UPDKIDS+11
$$FMADD^XLFDT	CLNUP+13
$$NOW^XLFDT	CLNUP+19, CLNUP+37, CLNUP+38
$$VERSION^XPDUTL	CHKINF+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATCH TIU1149" Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Search ALL entries in the TIU Document file (#8925) to link or" Line Location: EN+5
Function Call: WRITE	Prompt: !,"unlink documents associated with a different patient's visit that" Line Location: EN+6
Function Call: WRITE	Prompt: !,"meet the following criteria:" Line Location: EN+7
Function Call: WRITE	Prompt: !!,"- Addenda or components where the parent points to the correct visit will" Line Location: EN+8
Function Call: WRITE	Prompt: !," be linked, otherwise the addenda or components will be unlinked if they" Line Location: EN+9
Function Call: WRITE	Prompt: !," are associated with an incorrect visit different than the parent." Line Location: EN+10
Function Call: WRITE	Prompt: !!,"- Documents where the capture method is converted and a visit" Line Location: EN+11
Function Call: WRITE	Prompt: !," exists will be linked, otherwise the document will be unlinked" Line Location: EN+12
Function Call: WRITE	Prompt: !," from the incorrect visit." Line Location: EN+13
Function Call: WRITE	Prompt: !!,"- Documents where the reference date is prior to 10/1/98 will" Line Location: EN+14
Function Call: WRITE	Prompt: !," be unlinked from the incorrect visit." Line Location: EN+15
Function Call: WRITE	Prompt: !!,"- Documents that are Discharge Summaries will be unlinked" Line Location: EN+16
Function Call: WRITE	Prompt: !," from the incorrect visit." Line Location: EN+17
Function Call: WRITE	Prompt: ! Line Location: EN+18
Function Call: WRITE	Prompt: !!,"A task has been queued in the background and a bulletin will be sent" Line Location: EN+25
Function Call: WRITE	Prompt: !,"to you upon completion of the task or if the task is stopped." Line Location: EN+26
Function Call: WRITE	Prompt: !!,"The task number is "_$G(ZTSK)_"." Line Location: EN+27
Routine Call	DIE Line Location: DELVST+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	CLNONE+13, GETVST+17
^DGPM - [#405]	GETVST+23
^TIU(8925 - [#8925]	CLNUP+26, CLNONE+7, CHKDOC+9, CHKDOC+14, GETVST+11, GETVST+12, GETVST+16, GETVST+22, GETVST+23, DELVST+8 , DELVST+9, UPDKIDS+6, UPDKIDS+8
^XTMP("TIU/PXAPI"	CLNUP+11!
^XTMP("TIUP149"	CLNUP+7, CLNUP+8, CLNUP+11!, CLNUP+13, CLNUP+14, CLNUP+15, CLNUP+16, CLNUP+17, CLNUP+18!, CLNUP+19 , CLNUP+31, CLNUP+37, CLNUP+38, CLNUP+42, CLNONE+37, SETXTMP+12, SETXTMP+13, SETXTMP+14, SETXTMP+16, SETXTMP+17

Label References

Name	Line Occurrences
$$CHKDOC	CLNONE+13
$$CHKINF	CLNUP+22
$$DELVST	CLNONE+30, UPDKIDS+17
CHKDOCQ	CHKDOC+13
CLNONE	CLNUP+28
GETVST	CLNONE+17
GETVSTQ	GETVST+15
SETXTMP	CLNONE+15, CLNONE+22, CLNONE+27, CLNONE+31, CLNONE+36, UPDKIDS+12, UPDKIDS+14, UPDKIDS+18, UPDKIDS+20
UPDKIDS	CLNONE+24, CLNONE+33

Naked Globals

Name	Field # of Occurrence
^(	CLNUP+26
^(0	CLNONE+13, GETVST+16, GETVST+23
^(14	GETVST+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIERR	DELVST+4~, DELVST+10
DT	CLNUP+13
ERROR	DELVST~, DELVST+10*, DELVST+11
NDBIF	CLNUP+4~, CLNUP+22*, CLNUP+28, CLNONE~, CLNONE+15
OKF	DELVST+4~, DELVST+11, DELVST+13, DELVSTQ
TITLE	CHKDOC~, CHKDOC+18
TIUD0	CLNONE+4~, CLNONE+7*, CLNONE+8, CLNONE+9, CLNONE+13, CLNONE+17
TIUD13	CHKDOC+5~, CHKDOC+9, CHKDOC+18, GETVST+8~, GETVST+11, GETVST+20, GETVST+25
TIUDA	CLNUP+4~, CLNUP+25, CLNUP+26, CLNUP+28, CLNUP+31, CLNONE~, CLNONE+7, CLNONE+13, CLNONE+15, CLNONE+17 , CLNONE+20, CLNONE+22, CLNONE+24, CLNONE+27, CLNONE+30, CLNONE+31, CLNONE+33, CLNONE+36, CHKDOC~, CHKDOC+9 , CHKDOC+13, CHKDOC+14, GETVST~, GETVST+11, GETVST+12, GETVST+15, GETVST+22, GETVST+23, SETXTMP~, SETXTMP+12 , SETXTMP+16, DELVST~, DELVST+7, DELVST+8, DELVST+9, UPDKIDS~, UPDKIDS+6
TIUDAD	CHKDOC~, CHKDOC+14, GETVST~, GETVST+16
TIUDFN	CLNONE+4~, CLNONE+8*, CLNONE+13, CLNONE+17, GETVST~, GETVST+17, GETVST+28
TIUDTM	GETVST+8~, GETVST+23, GETVST+25, GETVST+27, GETVST+28
TIUEX	SETXTMP~, SETXTMP+11, SETXTMP+12, SETXTMP+13
TIUFDA	DELVST+4~
TIUFDA(8925	DELVST+7*
TIUHL	GETVST+8~, GETVST+12*, GETVST+28
TIUKID	UPDKIDS+4~, UPDKIDS+5, UPDKIDS+6, UPDKIDS+8, UPDKIDS+11, UPDKIDS+12, UPDKIDS+14, UPDKIDS+17, UPDKIDS+18, UPDKIDS+20
TIUMVSTF	CLNONE+4~, CLNONE+17, CLNONE+19, GETVST~, GETVST+31*
TIURSTDA	CLNUP+4~, CLNUP+8*, CLNUP+25, CLNUP+43!
TIUS	CLNUP+4~, CLNUP+14*
TIUVSIT	CLNONE+4~, CLNONE+9*, CLNONE+13, CLNONE+15
U	CLNUP+13, CLNONE+8, CLNONE+9, CLNONE+13, CLNONE+17, CHKDOC+14, CHKDOC+18, GETVST+12, GETVST+16, GETVST+17 , GETVST+20, GETVST+31, SETXTMP+12, SETXTMP+16, UPDKIDS+8
VSIT	CLNONE+4~, CLNONE+17, CLNONE+19, CLNONE+20, CLNONE+22, CLNONE+24, GETVST~, GETVST+16, GETVST+17, GETVST+29* , SETXTMP~, SETXTMP+16, UPDKIDS~, UPDKIDS+8, UPDKIDS+10, UPDKIDS+11, UPDKIDS+12
VSITS	GETVST+8~, GETVST+28*, GETVST+29, GETVST+31
Y	CHKINF+3~, CHKINF+4, CHKINF+5, CHKINF+6, CHKDOC+5~, CHKDOC+8, CHKDOC+14, CHKDOC+18*, CHKDOCQ
ZTDESC	EN+2~, EN+22*
ZTIO	EN+2~, EN+21*
ZTRTN	EN+2~, EN+21*
ZTSAVE	EN+2~
ZTSAVE("DUZ"	EN+21*
ZTSK	EN+2~, EN+24, EN+27
>> ZTSTOP	CLNUP+26, CLNUP+34*, CLNUP+37, CLNUP+42

Customize PDF page

Package: Text Integration Utility

Routine: TIUP149

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: