Routine: TIUSUPN

Information

TIUSUPN ;;SLC/TT - TIU SIGNED/UNSIGNED List Manager ; 04-FEB-2005

Source Information

Source file <TIUSUPN.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Registration	3	EN^VALM ($$SETSTR,FULL)^VALM1 SET^VALM10
VA Fileman	3	$$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Kernel	1	($$FMTE,$$NOW)^XLFDT
Text Integration Utility	1	$$READ^TIUU

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Text Integration Utility	1	TIU SIGNED/UNSIGNED PN

Entry Points

Name	Comments	DBIA/ICR reference
ASKRNGQ
ASKRNG(TIUBEGDT,TIUENDT)	;Prompt for date range ; Input -- None ; Output -- 1=Successful and 0=Failure ; BEGDT Begin Date ; ENDT End Date
EN	; -- main entry point for TIU SIGNED/UNSIGNED PN
HDR	; -- header code
PATFMAT(TIUPAT)	; format patient as first letter of last name and last 4 SSN
ACTIONS	; user selectable actions
XQORM	; default action for list manager
INIT	; Create list
EXIT	; -- exit code
GETINFO(TIUDA1)	;GET SIGNED DOCUMENT BUT UNSIGNED STATUS ; Input -- TIUDA1 TIU Document file (#8925) IEN
SELECT(ACTION)	; selects document(s) and calls ACTION
HELP	; -- help code

External References

Name	Field # of Occurrence
$$EXTERNAL^DILFD	PATFMAT+3
$$GET1^DIQ	INIT+13, INIT+16, INIT+18, PATFMAT+4
^DIR	HELP+8, ACTIONS+17, SELECT+9
$$READ^TIUU	ASKRNG+7, ASKRNG+9
EN^VALM	EN+5
$$SETSTR^VALM1	HDR+4, HDR+5, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18, INIT+25
FULL^VALM1	HELP+3, SELECT+2
SET^VALM10	INIT+19, INIT+23, INIT+26
$$FMTE^XLFDT	HDR+2, INIT+17, INIT+28, INIT+29
$$NOW^XLFDT	INIT+5, INIT+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Searching for the documents." Line Location: INIT+4
Function Call: WRITE	Prompt: !!,"Report started: ",$P($$FMTE^XLFDT(TIUTM("STR")),"@",2) Line Location: INIT+28
Function Call: WRITE	Prompt: !,"Report finished: ",$P($$FMTE^XLFDT(TIUTM("END")),"@",2) Line Location: INIT+29
Function Call: WRITE	Prompt: !,"Total searched: ",TIUCNT Line Location: INIT+30
Function Call: WRITE	Prompt: !!,"The following actions are available:" Line Location: HELP+4
Function Call: WRITE	Prompt: !,"Browse Document - View selected documents (if authorized)" Line Location: HELP+5
Function Call: WRITE	Prompt: !,"Detailed Display - View detailed display of selected documents (if authorized)" Line Location: HELP+6
Function Call: WRITE	Prompt: !,"Update Document - Update the status of selected documents" Line Location: HELP+7
Function Call: WRITE	Prompt: !,"Please specify a date range:",! Line Location: ASKRNG+6
Function Call: WRITE	Prompt: !,"No documents to select." Line Location: SELECT+3
Routine Call	VALM Line Location: EN+5
Routine Call	DIR Line Location: HELP+8 ACTIONS+17 SELECT+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^TIU(8925 - [#8925]	EXTERNAL^DILFD, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	XQORM+1
^TIU(8925 - [#8925]	INIT+6, INIT+7, INIT+14, INIT+17, GETINFO+5, GETINFO+6
^TMP("TIU180"	EN+3!, HDR+3, INIT+20*, SELECT+3
^TMP("TIUPS180"	EN+3!, INIT+10, GETINFO+8*
^TMP("TIUSEL"	EN+3!, SELECT+14*
^TMP("VALMAR"	EN+3!

Label References

Name	Line Occurrences
$$ASKRNG	EN+4
$$PATFMAT	INIT+14
@(	ACTIONS+20, SELECT+16
ASKRNGQ	ASKRNG+8, ASKRNG+10
GETINFO	INIT+7
XQORM	HDR+6, EXIT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	ACTIONS+1~, ACTIONS+18*, ACTIONS+19, ACTIONS+20, SELECT~, SELECT+16
DIR	HELP+1~, ACTIONS+3~, SELECT+6~
DIR("?"	ACTIONS+12, ACTIONS+13, ACTIONS+14, ACTIONS+15, ACTIONS+16*
DIR("A"	HELP+2, HELP+8, ACTIONS+5, SELECT+7*
DIR("B"	ACTIONS+6*
DIR("L"	ACTIONS+7, ACTIONS+8, ACTIONS+9, ACTIONS+10, ACTIONS+11*
DIR(0	HELP+2, ACTIONS+4, SELECT+8*
DIRUT	ASKRNG+5~, ASKRNG+8, ASKRNG+10, ACTIONS+3~, ACTIONS+17, SELECT+9
DTOUT	ASKRNG+5~
DUOUT	ASKRNG+5~
HDR1	HDR+1~, HDR+2*, HDR+4
HDR2	HDR+1~, HDR+3*, HDR+5
IOF	EN+2
IOM	HDR+4, HDR+5, INIT+25
POP	ACTIONS+3~
TIUBEGDT	ASKRNG~, ASKRNG+7*, ASKRNG+8, ASKRNG+9
TIUCNT	INIT+1~, INIT+3, INIT+7, INIT+8, INIT+30, SELECT+1~, SELECT+4, SELECT+12, SELECT+14
TIUD0	GETINFO+3~, GETINFO+6*, GETINFO+7
TIUD15	GETINFO+3~, GETINFO+6*, GETINFO+7
TIUDA	INIT+1~, INIT+10*, INIT+13, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18, INIT+19, SELECT+1~
TIUDA1	GETINFO~, GETINFO+4, GETINFO+5, GETINFO+6, GETINFO+8
TIUDATE	INIT+1~, INIT+3, INIT+6, INIT+7
TIUDOCS	SELECT+1~, SELECT+15
TIUDOCS(	SELECT+13*
TIUDP	INIT+1~, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18*, INIT+19
TIUEDT	EN+1~, EN+4, HDR+2, INIT+2, INIT+6
TIUENDT	ASKRNG~, ASKRNG+9*, ASKRNG+10
TIUIEN	INIT+1~, INIT+7*
TIUINIT	PATFMAT+1~, PATFMAT+5*, PATFMAT+6
TIULAST4	PATFMAT+1~, PATFMAT+4*, PATFMAT+6
TIUNO	INIT+1~, INIT+24, INIT+25, INIT+26
TIUPAT	PATFMAT~, PATFMAT+2, PATFMAT+3, PATFMAT+4
TIUPATN	PATFMAT+1~, PATFMAT+3*, PATFMAT+5
TIUQUIT	SELECT+1~, SELECT+5, SELECT+9*
TIUSDT	EN+1~, EN+4, HDR+2, INIT+2, INIT+3
TIUSEL	SELECT+1~, SELECT+4, SELECT+5, SELECT+10, SELECT+11, SELECT+13, SELECT+14
TIUTM	INIT+1~
TIUTM("END"	INIT+27*, INIT+29
TIUTM("STR"	INIT+5*, INIT+28
TIUTOTAL	INIT+1~, INIT+3, INIT+11, INIT+12, INIT+19, INIT+20, INIT+21
U	HDR+3, INIT+14, INIT+17, GETINFO+7, XQORM+1, ACTIONS+18, SELECT+3, SELECT+9
>> VALMAR	SELECT+13
>> VALMBCK	HELP+9, ACTIONS+21, SELECT+15*
>> VALMBG	SELECT+8
>> VALMCNT	INIT+3, INIT+20, INIT+22*, XQORM+1
>> VALMHDR(1	HDR+4*
>> VALMHDR(2	HDR+5*
>> VALMLST	SELECT+8
X	HELP+2, ACTIONS+3~, SELECT+6~, SELECT+11*, SELECT+13, SELECT+14
>> XQORM("#"	XQORM+1*
>> XQORNOD(0	SELECT+4
Y	ASKRNG+5~, ASKRNG+11*, ASKRNGQ, ACTIONS+3~, ACTIONS+18, SELECT+6~, SELECT+9
Y(0	SELECT+10

Customize PDF page

Package: Text Integration Utility

Routine: TIUSUPN

Call Graph Total: 8

Caller Graph Total: 1