Routine: AMEROUT1

Package	Total	Call Graph
VA Fileman	5	DD^%DT (C,NOW)^%DTC ^DIC EN1^DIP ^DIR
Emergency Room	4	LOG^AMERBUSA SYNCHERS^AMERERS (OUT,S1)^AMEROUT $$AMERDHD^AMERREPT

Package	Total	Caller Graph
Emergency Room	1	AMEROUT

Entry Points

Name	Comments	DBIA/ICR reference
ENDIP
FSET	; FINAL ADJUSTMENTS OF BY,FR,TO
TASK	; BACKGROUND JOB ENTRY POINT
RUN
NOTE	;
EN1	; ENTRY POINT FORM OPTION AMER LOG ; PRINT RECENT VISITS
S1	; SORT BY LOOP REENTRY POINT
A1
MET	; METADICTIONARY LOOKUP
ADD
EXIT
PRINT	; GENERATE OUTPUT - ENTRY POINT FROM AMEROUT
SEL	; SELECT SORT
AGE	; ENTRY POINT
LOOP

External References

Name	Field # of Occurrence
DD^%DT	PRINT+2, PRINT+3, EN1+13, EN1+14
C^%DTC	EN1+7
NOW^%DTC	EN1+4
LOG^AMERBUSA	ENDIP+3, EN1+21
SYNCHERS^AMERERS	EN1+15
OUT^AMEROUT	S1+6, S1+12
S1^AMEROUT	LOOP+4
$$AMERDHD^AMERREPT	PRINT+4, EN1+17
^DIC	S1+11
EN1^DIP	ENDIP, EN1+18
^DIR	S1+4, ENDIP+5, EN1+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SEL+1
Function Call: WRITE	Prompt: " (",AMERATNM,")" Line Location: S1+9
Function Call: WRITE	Prompt: !! Line Location: LOOP+4
Function Call: WRITE	Prompt: " ??",*7 Line Location: MET+2
Function Call: WRITE	Prompt: " ??",*7 Line Location: MET+3
Function Call: WRITE	Prompt: ! Line Location: ENDIP+5
Function Call: WRITE	Prompt: "Please note: the following criteria were used to screen entries:",! Line Location: NOTE+3
Function Call: WRITE	Prompt: !,?3,I,") ",X," = """,^(X),"""" Line Location: NOTE+4
Function Call: WRITE	Prompt: !!! Line Location: NOTE+5
Function Call: WRITE	Prompt: ! Line Location: EN1+23
Routine Call	DIC Line Location: S1+11
Routine Call	DIR Line Location: S1+4 ENDIP+5 EN1+23

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMERVSIT - [#9009080]	Classic Fileman Calls
^AMER(2.2 - [#9009082.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMER(2.2 - [#9009082.2]	S1+9, S1+13, MET+3, MET+4
^TMP("AMER"	S1+9, NOTE+2, NOTE+4

Label References

Name	Line Occurrences
@(	MET+5
ADD	LOOP+2
AGE	MET+6
FSET	RUN+1
LOOP	S1+9
MET	S1+9, S1+13
PRINT	RUN+1
S1	LOOP+4
SEL	RUN

Naked Globals

Name	Field # of Occurrence
^(	S1+9, NOTE+4
^(1	MET+4
^(2	MET+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MET+4*, EN1+2~
>> AMERATNM	S1+9, S1+13
AMERBY	ADD, A1+1, MET+1!, MET+4*, AGE+2
>> AMERCAT	MET+4*, MET+5
AMERD1	FSET+3, FSET+7, FSET+10, FSET+12, FSET+13, FSET+14, PRINT+2, PRINT+4, ENDIP+3, AGE+1 , EN1+2~, EN1+13, EN1+15, EN1+17
AMERD2	FSET+3, FSET+7, FSET+10, FSET+12, FSET+13, FSET+14, PRINT+3, PRINT+4, ENDIP+3, AGE+1 , EN1+2~, EN1+14, EN1+15, EN1+17
AMERDATE	EN1+2~, EN1+8*
>> AMERDISP	FSET+3, FSET+4, FSET+10, FSET+12
>> AMERFR	ADD, A1+1
>> AMERGBL	MET+4*
AMERHDR	PRINT+4, ENDIP+3, EN1+2~, EN1+16*, EN1+17
AMERNOTE	NOTE+1!
AMERNXT	S1+3!
>> AMERPTOT	S1+1
>> AMERQUIT	RUN, S1+5, S1+6, S1+12, LOOP, ADD+1, MET+2, MET+3
AMERRTYP	S1+1, LOOP+1, LOOP+4, MET+5, MET+6, FSET+1, PRINT+1, EN1+2~, EN1+3*
AMERSCR	MET+1!, MET+4*
>> AMERSTAT	S1+7, LOOP+3, FSET+2, FSET+8, FSET+12, FSET+14
>> AMERTO	ADD, A1+1
>> AMERVTOT	S1+1
BY	ADD, A1, A1+1, FSET+3, FSET+5, FSET+6, FSET+7, FSET+8, FSET+10, FSET+11* , FSET+12, FSET+13, FSET+14, AGE+3, EN1+2~, EN1+11*
>> DHD	PRINT+4, PRINT+5, AGE+4, EN1+17
DIC	S1+10, S1+11!, PRINT+1, AGE+1, EN1+2~, EN1+12
DIC("S"	S1+10*
DIC(0	S1+10*
>> DIOBEG	PRINT+1*
DIR	S1+4!
DIR("?"	S1+2*
DIR("??"	S1+2*
DIR("A"	SEL+2, S1+3, LOOP+4, ENDIP+5, EN1+23*
DIR(0	S1+1, ENDIP+5, EN1+23*
>> DIRUT	ENDIP+5, EN1+23
>> DTOUT	ENDIP+5, EN1+23
FLDS	FSET+2, AGE+2, EN1+2~, EN1+11*
FR	ADD, A1, A1+1, FSET+3, FSET+6, FSET+7, FSET+10, FSET+12, FSET+13, FSET+14* , AGE+1, EN1+2~, EN1+9, EN1+10, EN1+13
I	NOTE+1~, NOTE+4*
IOST	ENDIP+5, EN1+23
TO	ADD, A1, A1+1, FSET+3, FSET+6, FSET+7, FSET+10, FSET+12, FSET+13, FSET+14* , AGE+1, EN1+2~, EN1+10, EN1+14
U	S1+5, S1+9, S1+13, MET+4
X	S1+5, S1+7, S1+8, S1+10, NOTE+1~, NOTE+4, EN1+5, EN1+8, EN1+9
>> X1	EN1+5*
>> X2	EN1+6*
>> Y	S1+9, S1+10, S1+13, MET+2, MET+3, MET+4, PRINT+2, PRINT+3, EN1+13, EN1+14
ZTDESC	EXIT!
ZTIO	EXIT!
ZTRTN	EXIT!
ZTSAVE	EXIT!
ZTSK	EXIT!

Customize PDF page

Package: Emergency Room

Routine: AMEROUT1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: