Routine: DGPTF09X

Package	Total	Call Graph
Registration	4	(INIT,TRAN)^DGPTF099 (ASK,CHKFLD,DEL)^DGPTRPO $$SITE^VASITE ^VATRAN
VA Fileman	4	NOW^%DTC FILE^DICN ^DIE ^DIR

Package	Total	Caller Graph
Registration	2	DGPTF099 DGPTOOL

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- generic 099 call
CONT	;-- ask the user if they want to do another
ENQ
EDIT
SETUP
SEND
EN1	; -- init already done
HD099	;-- header for 099 transaction
CONTQ
SETQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"*** 099 TRANSACTION SENT ***" Line Location: SEND+2
Function Call: WRITE	Prompt: @IOF,$C(13),?10,">>> Facsimile of 099 Transaction <<<" Line Location: HD099+1
Function Call: WRITE	Prompt: !!,?9,"'",$J(DGCTL,4),"' '",$J(DGSSN,10),"' '",$J(DGADM,10),"' '",$J(DGRFAC,6),"'" Line Location: HD099+3
Function Call: WRITE	Prompt: !?2,"col# :" Line Location: HD099+4
Function Call: WRITE	Prompt: ?10,"1--4 5--------1 1--------2 2----3",! Line Location: HD099+5
Function Call: WRITE	Prompt: ?10," 4 5 4 5 0",! Line Location: HD099+6
Function Call: WRITE	Prompt: !?2,"block:" Line Location: HD099+7
Function Call: WRITE	Prompt: ?10," SSN Admitting Requesting",! Line Location: HD099+8
Function Call: WRITE	Prompt: ?10," Date/Time Facility",! Line Location: HD099+9
Function Call: WRITE	Prompt: ?10," Num/Suffix",!! Line Location: HD099+10
Routine Call	DIE Line Location: EDIT+1 SEND+2
Routine Call	DIR Line Location: SEND+1 CONT+3

FileNo	Call Tags
^DGP(45.87 - [#45.87]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGP(45.87 - [#45.87]	EDIT
^UTILITY($J	SEND+2*

Name	Field # of Occurrence
%	EN1+2, ENQ!
DA	EN1+3, EDIT+1, SEND+2*!, ENQ!
DB	ENQ!
DD	EN1+2!, ENQ!
DE	ENQ!
DGADM	SEND+2, ENQ!, HD099+3, SETUP+1*
DGCTL	SEND, SEND+2, ENQ!, HD099+3, SETUP+1*
DGDA	EN1+3*, EDIT, EDIT+1, SEND+2, ENQ!
DGFAC	ENQ!, SETUP+1*
DGFNAM	ENQ!, SETUP+1*
DGI	EDIT+1*, ENQ!
DGINST	ENQ!, SETUP+1*
DGLOOP	EN+2*, EN+3!
DGNAME	ENQ!, HD099+2, SETUP+1*
DGOUT	EN+1, EN+2, EN1+1, EDIT+1, SEND, SEND+1, ENQ!, CONT+1, CONT+4, SETUP
DGPAT	EDIT, ENQ!, SETUP+1
DGRFAC	SEND+2, ENQ!, HD099+3, SETUP+1*
DGRPO	ENQ!
DGRTY	ENQ!
DGSSN	SEND+2, ENQ!, HD099+3, SETUP+1*
DGTADM	ENQ!, SETUP+1*
DIC	EN1+2*!, ENQ!
DIC(0	EN1+2*
DIE	EDIT+1, SEND+2!, ENQ!
DIK	ENQ!
DIR	ENQ!, CONTQ!
DIR("A"	SEND, CONT+2
DIR("B"	SEND, CONT+2
DIR(0	SEND, CONT+2
DIRUT	SEND+1, ENQ!, CONT+4
DO	EN1+2!, ENQ!
DQ	ENQ!
DR	EDIT+1, SEND+2!, ENQ!
IOF	HD099+1
U	EDIT, SETUP+1
VATERR	SETUP, SETQ!
VATNAME	SETUP*, SETQ!
X	EN1+2, SEND+2!, ENQ!
XMDUZ	ENQ!
XMSUB	ENQ!
XMTEXT	ENQ!
XMZ	SEND+2!
Y	EN1+3, SEND+1, SEND+2, ENQ!, CONT+4