Routine: TIUP134

Package	Total	Call Graph
Text Integration Utility	7	$$CLASS^TIUCNSLT ($$ISADDNDM,DOCPRM)^TIULC1 $$ISA^TIULX MAIL^TIUP134P $$WORKOK^TIUPXAP1 ($$CHKWKL,$$UPDVST)^TIUPXAP2 $$READ^TIUU
Kernel	2	(,$$S)^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
PCE Patient Care Encounter	1	$$GETENC^PXAPI

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point to queue a job to automatically link the missing VISIT
ENQ
ASKRNG(BEGDT,ENDT)	;Prompt for date range ; Input -- None ; Output -- 1=Successful and 0=Failure ; BEGDT Begin Date ; ENDT End Date
ASKRNGQ
LNKRNG	;Entry point to automatically link a document to a visit for
LNKRNGQ	;Send bulletin, re-set check point and clean up variables
LNKONE(TIUDA)	;Entry point to automatically link one document to visit ; Input -- TIUDA TIU Document file (#8925) IEN ; Output -- None
CHKDOC(TIUDA)	;Check if document can be auto-linked ; Input -- TIUDA TIU Document file (#8925) IEN ; Output -- 1=Can be linked and 0=Cannot be linked
CHKDOCQ
GETVST(TIUDA,TIUVSIT,TIUMVSTF)	;Get visit to associate with document ; Input -- TIUDA TIU Document file (#8925) IEN ; Output -- TIUVSIT Visit file (#9000010) IEN ; TIUMVSTF Multiple Visit Flag ; 1=Multiple Visits
GETVSTQ
SETXTMP(TIUDA,TIUEX,TIUVSIT)	;Set ^XTMP for entries processed ; Input -- TIUDA TIU Document file (#8925) IEN ; TIUEX Unable to automatically link Exception types: (Optional) ; 1=Multiple Visits ; 2=Entry in Use ; 3=No Matching Visit ; TIUVSIT Visit file (#9000010) IEN (Optional) ; Output -- Set ^XTMP("TIUP134","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
UPDKIDS(TIUDA,TIUVSIT)	;Update visit for kids that are addenda ; Input -- TIUDA TIU Document file (#8925) IEN ; TIUVSIT Visit file (#9000010) IEN ; Output -- None

External References

Name	Field # of Occurrence
^%ZTLOAD	EN+29
$$S^%ZTLOAD	LNKRNG+32
$$GETENC^PXAPI	GETVST+25
$$CLASS^TIUCNSLT	CHKDOC+26
$$ISADDNDM^TIULC1	GETVST+15, UPDKIDS+7
DOCPRM^TIULC1	CHKDOC+8
$$ISA^TIULX	CHKDOC+26
MAIL^TIUP134P	LNKRNGQ+4
$$WORKOK^TIUPXAP1	CHKDOC+29
$$CHKWKL^TIUPXAP2	CHKDOC+29
$$UPDVST^TIUPXAP2	LNKONE+11, UPDKIDS+8
$$READ^TIUU	ASKRNG+7, ASKRNG+9
$$FMADD^XLFDT	LNKRNG+15
$$NOW^XLFDT	LNKRNG+21, LNKRNGQ+1, LNKRNGQ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATCH TIU1134" Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Automatically Link the missing VISIT field for a date range of documents" Line Location: EN+5
Function Call: WRITE	Prompt: !!,"Documents must meet the following criteria to be linked:" Line Location: EN+6
Function Call: WRITE	Prompt: !,"- Date range cannot be before 10/1/98 or after 7/31/02" Line Location: EN+7
Function Call: WRITE	Prompt: !,"- Entry Date/Time is within the selected date range" Line Location: EN+8
Function Call: WRITE	Prompt: !,"- No visit has been associated with the document" Line Location: EN+9
Function Call: WRITE	Prompt: !,"- A visit exists to be associated with the document" Line Location: EN+10
Function Call: WRITE	Prompt: !,"- The capture method is direct or remote" Line Location: EN+11
Function Call: WRITE	Prompt: !,"- The status is uncosigned or completed or amended" Line Location: EN+12
Function Call: WRITE	Prompt: !,"- The document is under the progress notes class or consults" Line Location: EN+13
Function Call: WRITE	Prompt: !,"- The document has a signature date/time" Line Location: EN+14
Function Call: WRITE	Prompt: !,"- Workload data should be collected for the document" Line Location: EN+15
Function Call: WRITE	Prompt: !!," Special Note about Parameters:",! Line Location: EN+16
Function Call: WRITE	Prompt: !," The 'ASK DX/CPT ON ALL OPT VISITS' TIU Document parameter" Line Location: EN+17
Function Call: WRITE	Prompt: !," is not date sensitive so collecting workload is based on" Line Location: EN+18
Function Call: WRITE	Prompt: !," the value of this parameter at the time this routine is" Line Location: EN+19
Function Call: WRITE	Prompt: !," invoked rather than at the time the visit was created." Line Location: EN+20
Function Call: WRITE	Prompt: ! Line Location: EN+29
Function Call: WRITE	Prompt: !!,"A task has been queued in the background and a bulletin will be sent" Line Location: EN+31
Function Call: WRITE	Prompt: !,"to you upon completion of the task or if the task is stopped." Line Location: EN+32
Function Call: WRITE	Prompt: !,"Please only run one date range at a time." Line Location: EN+33
Function Call: WRITE	Prompt: !!,"The task number is "_$G(ZTSK)_"." Line Location: EN+34
Function Call: WRITE	Prompt: !!,"Please specify a date range:" Line Location: ASKRNG+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	GETVST+22
^PX(815 - [#815]	CHKDOC+23
^TIU(8925 - [#8925]	LNKRNG+25, LNKRNG+28, LNKONE+6, CHKDOC+7, CHKDOC+11, CHKDOC+17, CHKDOC+23, GETVST+9, GETVST+11, GETVST+16 , GETVST+20, GETVST+21, UPDKIDS+6, UPDKIDS+7
^XTMP("TIUP134"	LNKRNG+11, LNKRNG+12, LNKRNG+15, LNKRNG+16, LNKRNG+17, LNKRNG+18, LNKRNG+19, LNKRNG+20!, LNKRNG+21, LNKRNG+30* , LNKRNGQ+1, LNKRNGQ+2, LNKRNGQ+6, LNKONE+23, SETXTMP+12, SETXTMP+13, SETXTMP+14, SETXTMP+16, SETXTMP+17*

Label References

Name	Line Occurrences
$$ASKRNG	EN+23
$$CHKDOC	LNKONE+6
ASKRNGQ	ASKRNG+8, ASKRNG+10
CHKDOCQ	CHKDOC+11, CHKDOC+14, CHKDOC+17, CHKDOC+20, CHKDOC+23, CHKDOC+26
ENQ	EN+23
GETVST	LNKONE+8
GETVSTQ	GETVST+15, GETVST+20
LNKONE	LNKRNG+28
LNKRNGQ	LNKRNG+8
SETXTMP	LNKONE+13, LNKONE+18, LNKONE+22, UPDKIDS+9, UPDKIDS+11
UPDKIDS	LNKONE+15

Naked Globals

Name	Field # of Occurrence
^(0	LNKONE+6, GETVST+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEGDT	ASKRNG~, ASKRNG+7*, ASKRNG+8, ASKRNG+9
DIRUT	ASKRNG+5~, ASKRNG+8, ASKRNG+10
DT	LNKRNG+15
DTOUT	ASKRNG+5~
DUOUT	ASKRNG+5~
ENDT	ASKRNG~, ASKRNG+9*, ASKRNG+10
TIUBEGDT	EN+2~, EN+23, LNKRNG+8, LNKRNG+19, LNKRNG+24, LNKRNGQ+7!
TIUD0	CHKDOC+3~, CHKDOC+7, CHKDOC+8, CHKDOC+14, CHKDOC+26, GETVST+6~, GETVST+9, GETVST+10, GETVST+12, GETVST+16
TIUDA	LNKRNG+5~, LNKRNG+27, LNKRNG+28, LNKONE~, LNKONE+6, LNKONE+8, LNKONE+11, LNKONE+13, LNKONE+15, LNKONE+18 , LNKONE+22, CHKDOC~, CHKDOC+7, CHKDOC+11, CHKDOC+17, CHKDOC+23, CHKDOC+29, GETVST~, GETVST+9, GETVST+11 , GETVST+15, SETXTMP~, SETXTMP+12, SETXTMP+16, UPDKIDS~, UPDKIDS+6
TIUDFN	GETVST+6~, GETVST+10*, GETVST+20, GETVST+21, GETVST+22, GETVST+25
TIUDPRM	CHKDOC+3~, CHKDOC+8, CHKDOC+29
TIUDPRM(0	CHKDOC+20
TIUDT	LNKRNG+5~, LNKRNG+24, LNKRNG+25, LNKRNG+28, LNKRNG+30
TIUEDT	GETVST+6~, GETVST+10*, GETVST+12, GETVST+25
TIUENDT	EN+2~, EN+23, LNKRNG+8, LNKRNG+19, LNKRNG+25, LNKRNGQ+7!
TIUEX	LNKONE+3~, LNKONE+21*, LNKONE+22, SETXTMP~, SETXTMP+11, SETXTMP+12, SETXTMP+13
TIUHL	GETVST+6~, GETVST+11*, GETVST+12, GETVST+25
TIUKID	UPDKIDS+4~, UPDKIDS+5, UPDKIDS+6, UPDKIDS+7, UPDKIDS+8, UPDKIDS+9, UPDKIDS+11
TIUMVSTF	LNKONE+3~, LNKONE+8, LNKONE+10, LNKONE+21, GETVST~, GETVST+29*
TIURSTDT	LNKRNG+5~, LNKRNG+12*, LNKRNG+24, LNKRNGQ+7!
TIUS	LNKRNG+5~, LNKRNG+16*
TIUVSIT	LNKONE+3~, LNKONE+8, LNKONE+10, LNKONE+11, LNKONE+13, LNKONE+15, GETVST~, GETVST+16, GETVST+20, GETVST+21 , GETVST+22, GETVST+26, SETXTMP~, SETXTMP+16, UPDKIDS~, UPDKIDS+8, UPDKIDS+9
TIUVSITS	GETVST+6~, GETVST+25*, GETVST+26, GETVST+29
TIUVSTR	GETVST+6~, GETVST+12*, GETVST+20, GETVST+21
U	LNKRNG+12, LNKRNG+15, LNKRNG+19, LNKRNG+30, LNKONE+6, CHKDOC+11, CHKDOC+14, CHKDOC+20, CHKDOC+23, GETVST+10 , GETVST+11, GETVST+12, GETVST+16, GETVST+22, GETVST+29, SETXTMP+12, SETXTMP+16, UPDKIDS+7
Y	ASKRNG+5~, ASKRNG+11, ASKRNGQ, CHKDOC+3~, CHKDOC+6, CHKDOC+29*, CHKDOCQ
ZTDESC	EN+2~, EN+28*
ZTIO	EN+2~, EN+27*
ZTRTN	EN+2~, EN+27*
ZTSAVE	EN+2~
ZTSAVE("DUZ"	EN+27*
ZTSAVE("TIUBEGDT"	EN+26*
ZTSAVE("TIUENDT"	EN+26*
ZTSK	EN+2~, EN+30, EN+34
>> ZTSTOP	LNKRNG+25, LNKRNG+32*, LNKRNGQ+1, LNKRNGQ+6

Customize PDF page

Package: Text Integration Utility

Routine: TIUP134

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: