Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | Marked Items | All

Print Page as PDF

Routine: VADPT61

Package: Registration

Routine: VADPT61

Information

VADPT61 ;ALB/MJK - Patient ID Utilities (cont.); 12 AUG 89 @1200

Source Information

Source file <VADPT61.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	^%ZTLOAD $$NOW^XLFDT
VA Fileman	2	^DIC ^DIE
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Registration	3	DG ELIG CODE ENTER/EDIT DG ELIG ID FORMAT EDIT VADPT60

Entry Points

Name	Comments	DBIA/ICR reference
Q1
WARN	; -- interaction warning
Q2
END	;
TASKQ
TASK	;
BEG	;
1	;;ID Format Enter/Edit
2	;;Eligibility Code Enter/Edit
ASK	;
OPTS	; -- queue task list ;;opt#;description;vars to save

External References

Name	Field # of Occurrence
^%ZTLOAD	TASK+6
^DIC	1+1, 2+1
^DIE	1+2, 2+2, ASK+3
$$NOW^XLFDT	BEG+1, END+1
^XMD	END+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: 1+1
Function Call: WRITE	Prompt: ! Line Location: 2+1
Function Call: WRITE	Prompt: !!,*7,"User Input Needed for '",$P(^DIC(8,VAELG,0),U),"' id:" Line Location: ASK+2
Function Call: WRITE	Prompt: !!?5,"...",$P(^DIC(8,VAELG,0),U) Line Location: ASK+4
Function Call: WRITE	Prompt: !!?5,*7,"WARNING: User interaction usually is required for this format." Line Location: WARN+1
Function Call: WRITE	Prompt: !!?5,"The resetting of ID formats can take many hours." Line Location: TASK+1
Function Call: WRITE	Prompt: !?5,"It is suggested that it be run at off-peak hours," Line Location: TASK+2
Function Call: WRITE	Prompt: !?5,"perferably over a weekend.",! Line Location: TASK+3
Function Call: WRITE	Prompt: !!,"Job has been queued. (Task #",ZTSK,")",!,"A MailMan message will be sent to you when the job has completed." Line Location: TASK+7
Routine Call	DIE Line Location: 1+2 2+2 ASK+3
Routine Call	DIC Line Location: 1+1 2+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(8 - [#8]	Classic Fileman Calls
^DIC(8.2 - [#8.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	END+7, END+8
^DIC(8 - [#8]	ASK+1, ASK+2, ASK+4, END+5
^DIC(8.2 - [#8.2]	ASK+1, END+4

Label References

Name	Line Occurrences
1	1+2
2	2+2
Q1	1+1
Q2	2+1

Naked Globals

Name	Field # of Occurrence
^(0	ASK+1, END+4, END+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+10!
DA	1+2, Q1!, 2+2, Q2!, ASK+3*, ASK+5!
DA(1	ASK+3*
>> DFN	ASK+3
DIC	1+1!, 2+1!
DIC("DR"	2+1*
DIC(0	1+1, 2+1
DIE	1+2, Q1!, 2+2, Q2!, ASK+3*, ASK+5!
DR	1+2, Q1!, 2+2, Q2!, ASK+3*, ASK+5!
DUZ	END+3
>> I	TASK+5*
L	END+1, END+6, END+7, END+8, END+10!
U	ASK+1, ASK+2, ASK+4, WARN+1, END+4, END+5
>> VAELG	ASK+1, ASK+2, ASK+3, ASK+4, END+5
VAEND	END+1*, END+8, END+10!
>> VAFMT	END+4
VAOPT	END+4, END+5, END+10!, TASK+6
VARS	TASK+4*, TASK+5, TASKQ!
VASTART	BEG+1*, END+7, END+10!
VATEXT	END+10!
VATEXT(	END+6, END+7, END+8*
X	WARN+1, TASK+4*, TASK+6, TASKQ!
XMDUZ	END+3*, END+10!
XMSUB	END+3, END+4, END+5*, END+10!
XMTEXT	END+3*, END+10!
XMY	END+2!, END+10!
XMY(	END+3*
Y	1+1, 1+2, Q1!, 2+1, 2+2, Q2!, ASK+5!, END+7, END+8, END+10! , TASK+5*, TASKQ!
ZTDESC	TASK+6*, TASKQ!
ZTIO	TASK+6*, TASKQ!
ZTRTN	TASK+6*, TASKQ!
ZTSAVE	TASKQ!
ZTSAVE(	TASK+5*
ZTSAVE("VAOPT"	TASK+6*
ZTSK	TASK+4!, TASK+7, TASKQ!

Marked Items

Name	Field # of Occurrence
$T(OPTS+VAOPT	END+3, TASK+4

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | Marked Items | All