Routine: DGOREL

Information

DGOREL ;ALB/MAC - PATIENT OUTPUT BY RELIGIOUS AFFILIATIONS ; 5 JUL 88@12:00

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Registration	4	IN^DGHELP START^DGOREL1 ZIS^DGUTQ WARD^VAUTOMA
VA FileMan	4	^%DT ^DIC YN^DICN DT^DICRW
Scheduling	1	ASK2^SDDIV

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DG RELIGION LIST

Entry Points

Name	Comments	DBIA/ICR reference
DISP
PRO
ASK
SPEC
QUIT1
BEG
END
HELP
HELP1
HELP2

Name	Field # of Occurrence
^%DT	BEG, END
IN^DGHELP	DISP+1, ASK+1
START^DGOREL1	SPEC+1
ZIS^DGUTQ	SPEC+1
^DIC	PRO+1
YN^DICN	PRO, SPEC
DT^DICRW	DGOREL+2
ASK2^SDDIV	DGOREL+2
WARD^VAUTOMA	PRO+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: DISP+0
Function Call: WRITE	Prompt: X Line Location: DISP+0
Function Call: WRITE	Prompt: !!?3,"You may display report for :" Line Location: DISP+1
Function Call: WRITE	Prompt: !!,"Do you want to select only one religion" Line Location: PRO+0
Function Call: WRITE	Prompt: !!?10,"Enter 'Y' for YES or 'N' for NO or '^' to EXIT" Line Location: PRO+0
Function Call: WRITE	Prompt: ! Line Location: PRO+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!?3,"You may list the report by either :" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"Do you want patients with 'NOT SPECIFIED' religion displayed" Line Location: SPEC+0
Function Call: WRITE	Prompt: ! Line Location: BEG+0
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: !!?5,"The ending date can not be before the beginning date" Line Location: END+1
Function Call: WRITE	Prompt: !!?10,"R for RELIGION - Major sort is by RELIGION. Within each religion",!?10,"patient names are further sorted by Ward.",!?25,"Prints each religion on a separate page." Line Location: HELP+0
Function Call: WRITE	Prompt: !!?10,"W for WARD - Major sort is by WARD. Within each ward",!?10,"patient names are further sorted by Religion.",!?25,"Prints each ward on separate page." Line Location: HELP+1
Function Call: WRITE	Prompt: !!?10,"Enter 'Y' to list the patients who ",!?15,"have not specified a religion",!!?10,"Enter 'N' if you don't want to list patients who ",!?15,"have not specified a religion",!!?10,"Enter '^' to quit" Line Location: HELP1+0
Function Call: WRITE	Prompt: !!?10,"C for CURRENT DATE - Report will display only those patients that",!?10,"are inpatients in hospital today.",!!?10,"D for DATE RANGE - to display all patients that were admitted",!?10,"to the hospital during that period." Line Location: HELP2+0
Routine Call	DIC Line Location: PRO+1

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name	Line Occurrences
ASK	ASK+1
BEG	DISP+2, BEG
DISP	DISP+1
END	END, END+1
HELP	ASK+1
HELP1	SPEC
HELP2	DISP+1
PRO	PRO
QUIT1	DGOREL+2, DISP, DISP+2, PRO+1, PRO+2, ASK, SPEC
SPEC	SPEC

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DISP+1, PRO, PRO+1, ASK+1, SPEC, QUIT1!
%DT	QUIT1!, BEG*
%DT("A"	BEG, END
DGBEG	QUIT1!, BEG*, END+1
DGBEG1	QUIT1!, BEG*
DGEND	QUIT1!, END*, END+1
DGEND1	QUIT1!, END*
DGHOW	ASK+1*, QUIT1!
DGL	DISP+1*, DISP+2, QUIT1!
DGNON	SPEC*, QUIT1!
DGPGM	SPEC+1*, QUIT1!
DGR	PRO+1*, SPEC, QUIT1!
DGVAR	SPEC+1*, QUIT1!
DIC	PRO+1*, QUIT1!
DIC(0	PRO+1*
DTIME	DISP, ASK
IO	SPEC+1
POP	SPEC+1, QUIT1!
VAUTD	QUIT1!
VAUTNI	PRO+2*, QUIT1!
X	DISP, DISP+1, DISP+2, ASK, ASK+1, QUIT1!, BEG, END
Y	DGOREL+2, PRO+1, PRO+2, QUIT1!, BEG, END
Z	DISP, ASK, QUIT1!

Customize PDF page

Package: Registration