Routine: DGJPDEF

Information

DGJPDEF ;ALB/MAF - PHYSICIAN DEFICIENCY PRINT ROUTINE ; NOV 10 1992@300

Package	Total	Call Graph
VA Fileman	4	^%DT HELP^%DTC YN^DICN ^DIR
Registration	2	IN^DGHELP CLOSE^DGUTQ
Incomplete Records Tracking	1	^DGJPDEF1

Package	Total	Caller Graph
Incomplete Records Tracking	3	DGJPDEF1 DGJPDEF2 DGJPDEF3
Registration	1	DGJ PHYS DEFICIENCY REPORT

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: OUT+0
Function Call: WRITE	Prompt: ! Line Location: OUT+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: OUT1+0
Function Call: WRITE	Prompt: ! Line Location: OUT1+3
Function Call: WRITE	Prompt: ! Line Location: BEG+0
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: !!?5,"The ending date cannot be before the beginning date" Line Location: END+2
Function Call: WRITE	Prompt: !!,"Choose a number or first initial :" Line Location: HELP1+0
Function Call: WRITE	Prompt: !?15,$P(Z,"^",K) Line Location: HELP1+0
Function Call: WRITE	Prompt: ! Line Location: HELP1+1
Function Call: WRITE	Prompt: !!,"Choose a number or first initial:" Line Location: HELP2+0
Function Call: WRITE	Prompt: !?15,$P(Z,"^",K) Line Location: HELP2+0
Function Call: WRITE	Prompt: ! Line Location: HELP2+1
Function Call: WRITE	Prompt: !!,"ENTER:" Line Location: HLP+0
Function Call: WRITE	Prompt: !?10,"Y - YES, if you would like the report to print Deficiencies under",!?10," the category SUMMARY if the patient has not been discharged." Line Location: HLP+1
Function Call: WRITE	Prompt: !!?10,"N - NO, if you would not like the report to print Deficiencies under",!?10," the category SUMMARY if the patient has not been discharged." Line Location: HLP+2
Routine Call	DIR Line Location: SEL+3 ASK

Name	Line Occurrences (* Changed, ! Killed)
^DG(393.2 - [#393.2]	SEL+5, SET+1
^DG(43 - [#43]	OUT1+4, OUT1+6
^TMP("VAS"	QUIT+1!

Name	Field # of Occurrence
%	OUT+3, OUT1+3, ASK1*, ASK1+1, ASK1+2, QUIT!
%DT	BEG*, QUIT+1!
%DT("A"	BEG, END
BY	QUIT!
DFN	QUIT+1!
DGFLAG	QUIT+1!
DGJ	QUIT+1!
DGJ(0	QUIT!
DGJADM	QUIT+1!
DGJDSC	ASK1, ASK1+2, QUIT+1!
DGJFL	OUT, OUT1, QUIT!
DGJJ	QUIT+1!
DGJTBEG	BEG*, QUIT+1!
DGJTBG	BEG*, END+2, QUIT+1!
DGJTCK	QUIT!
DGJTDAT	QUIT+1!
DGJTDEL	QUIT!
DGJTDIR	QUIT!
DGJTDIV	QUIT+1!
DGJTDL	QUIT+1!
DGJTDT	QUIT+1!
DGJTDV	QUIT+1!
DGJTDV1	QUIT+1!
DGJTDVN	QUIT+1!
DGJTEND	END+1*, END+2, QUIT+1!
DGJTF	QUIT+1!
DGJTFF	QUIT+1!
DGJTL	OUT1+7*, QUIT!
DGJTLN	QUIT+1!
DGJTLPG	OUT1+5*, QUIT!
DGJTMESS	OUT*, QUIT!
DGJTMUL	OUT1+4, OUT1+6, QUIT!
DGJTNODE	QUIT+1!
DGJTOT	QUIT+1!
DGJTPAG	QUIT+1!
DGJTPHY	QUIT+1!
DGJTPT	QUIT+1!
DGJTQF	QUIT!
DGJTSP	QUIT+1!
DGJTSR	OUT+3*, OUT1+7, QUIT!
DGJTSR1	OUT1+3*, QUIT!
DGJTSTAT	QUIT!, SEL+5, SEL+6, SET+2*
DGJTSV	QUIT+1!
DGJTUN	QUIT!
DGJY	QUIT+1!
DGPGM	QUIT!
DGU	QUIT!
DGVAR	QUIT+1!
DHD	QUIT!
DIC	QUIT!
DIOEND	QUIT!
DIR	QUIT!
DIR("?"	SEL+1, SEL+2, SEL+3, SEL+9
DIR("A"	SEL, SEL+10
DIR("B"	SEL*, SEL+8!
DIR(0	SEL, SEL+8
DIS	QUIT!
DTIME	OUT, OUT1
DTOUT	QUIT!, SEL+4, ASK
DUOUT	QUIT!, SEL+4, ASK
FLDS	QUIT!
FR	QUIT!
>> I	SEL+9*
IFN	QUIT!
K	QUIT!, HELP1, HELP2
L	QUIT!
POP	QUIT!
RT	QUIT!
RTDATA	QUIT!
RTE	QUIT!
RTYPE	QUIT!
TO	QUIT!
VA	QUIT+1!
VADAT	QUIT+1!
VADATE	QUIT!
VAERR	QUIT!
VAUTD	QUIT!
VAUTN	QUIT!
VAUTT	QUIT!
VAUTY	QUIT+1!
X	OUT, OUT+1, OUT+2, OUT+3, OUT1, OUT1+1, OUT1+2, OUT1+3, BEG, END , QUIT!, ASK+1, SET, SET+1, SET+2, CK*
Y	BEG, END, END+1, ASK1+1*, QUIT!, SEL+5, SET, CK
Z	QUIT!, HELP1, HELP2, ZSET1, ZSET2