Routine: AQAOENTR

Package	Total	Call Graph
Quality Assurance	7	^AQAOAUD ^AQAOEDTS ^AQAOENTS (CSUM,INTRO,VISIT)^AQAOHOCC (ADD,ASK)^AQAOLKP KILL^AQAOUTIL CLOSE^AQAOVAL
VA Fileman	2	^DIE ^DIR
Patient Care Component	1	^APCDVLK

Package

Total

Call Graph

Quality Assurance

^AQAOAUD ^AQAOEDTS ^AQAOENTS (CSUM,INTRO,VISIT)^AQAOHOCC (ADD,ASK)^AQAOLKP KILL^AQAOUTIL CLOSE^AQAOVAL

VA Fileman

^DIE ^DIR

Patient Care Component

^APCDVLK

Entry Points

Name	Comments	DBIA/ICR reference
ASKREVU	; >>> ask to begin review process
EDIT	; >>> edit basic occurrence data ; >> find review type entered then loop thru fields
INITIAL	; >>> enter initial review data
VISIT	; >>> look up and add patient's visit
EXIT	; >>> eoj
CHOOSE	; >>> choose add new occurrence or edit open one
ERROR	; >>> SUBRTN to print error msg
CLOSE	;if user has close out key AND initial action not referral AND

External References

Name	Field # of Occurrence
^APCDVLK	VISIT+18
^AQAOAUD	VISIT+6, ASKREVU+7, INITIAL+4
^AQAOEDTS	EDIT+5, INITIAL+12
^AQAOENTS	CHOOSE+8
CSUM^AQAOHOCC	EDIT+8
INTRO^AQAOHOCC	CHOOSE+2
VISIT^AQAOHOCC	VISIT+11
ADD^AQAOLKP	CHOOSE+13
ASK^AQAOLKP	CHOOSE+11
KILL^AQAOUTIL	EXIT+2
CLOSE^AQAOVAL	CLOSE+3
^DIE	VISIT+21, EDIT+8, ASKREVU+8, INITIAL+6
^DIR	CHOOSE+4, VISIT+13, ASKREVU+14, ASKREVU+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: VISIT+8
Function Call: WRITE	Prompt: !! Line Location: VISIT+12
Function Call: WRITE	Prompt: *7,"??" Line Location: VISIT+14
Function Call: WRITE	Prompt: *7,"??" Line Location: VISIT+19
Function Call: WRITE	Prompt: !! Line Location: EDIT+8
Function Call: WRITE	Prompt: !! Line Location: ASKREVU+12
Function Call: WRITE	Prompt: @IOF Line Location: ASKREVU+14
Function Call: WRITE	Prompt: !! Line Location: INITIAL+5
Function Call: WRITE	Prompt: !!,"INITIAL REVIEW COMPLETE . . ." Line Location: INITIAL+14
Function Call: WRITE	Prompt: !!,*7,"COULD NOT ADD OCCURRENCE TO FILE! PLEASE SEE SITE MANAGER!" Line Location: ERROR+1
Function Call: WRITE	Prompt: !! Line Location: ERROR+2
Routine Call	DIE Line Location: VISIT+21 EDIT+8 ASKREVU+8 INITIAL+6
Routine Call	DIR Line Location: CHOOSE+4 VISIT+13 ASKREVU+14 ASKREVU+19

FileNo	Call Tags
^AQAOC - [#9002167]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AQAGU(0	VISIT+3, ASKREVU+4, INITIAL+1
^AQAO(2 - [#9002168.2]	VISIT+8, EDIT+3, ASKREVU+3
^AQAO(3 - [#9002168.3]	EDIT+4
^AQAO(6 - [#9002168.6]	INITIAL+10, CLOSE+2
^AQAOC - [#9002167]	CHOOSE+1, VISIT+1, VISIT+8, VISIT+10, EDIT+2, ASKREVU+3, ASKREVU+16, INITIAL+9, CLOSE+2, EXIT+1
^AQAQX("B"	INITIAL+11
^AUPNVSIT - [#9000010]	VISIT+20
^XUSEC("AQAOZCLS"	CLOSE+2

Label References

Name	Line Occurrences
ASKREVU	EDIT+2, EDIT+3, EDIT+4
CHOOSE	CHOOSE+5, CHOOSE+8, CHOOSE+10, CHOOSE+13, VISIT+1, VISIT+3, EDIT+9, ASKREVU+4, ASKREVU+14, INITIAL+1 , CLOSE+6
CLOSE	ASKREVU+3, ASKREVU+16
EDIT	VISIT+9, VISIT+10, VISIT+14, VISIT+19
EXIT	CHOOSE+5, CHOOSE+10, CHOOSE+13, ASKREVU+14, ERROR+2

Name	Field # of Occurrence
^(1	ASKREVU+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDCAT	VISIT+22!
APCDCLN	VISIT+22!
APCDDATE	VISIT+22!
APCDLOC	VISIT+22!
APCDLOOK	VISIT+17*, VISIT+18!
APCDOVRR	VISIT+17*, VISIT+18!
APCDPAT	VISIT+17*, VISIT+22!
APCDTYPE	VISIT+22!
APCDVLDT	VISIT+15*, VISIT+22!
APCDVSIT	VISIT+17*, VISIT+19, VISIT+20, VISIT+21, VISIT+22!
>> AQAOACT	INITIAL+9*, INITIAL+10
AQAOENTR	CLOSE+3*!
AQAOIFN	CHOOSE+1!, CHOOSE+10, CHOOSE+13, VISIT+1, VISIT+5, VISIT+8, VISIT+10, VISIT+21, EDIT+2, EDIT+8 , ASKREVU+3, ASKREVU+6, ASKREVU+8, ASKREVU+16, INITIAL+3, INITIAL+5, INITIAL+9, CLOSE+2, EXIT+1
>> AQAOIND	EDIT+2*, EDIT+3, ASKREVU+3
AQAOP	INITIAL+12!
>> AQAOPAT	VISIT+17
>> AQAOPT	EDIT+4, INITIAL+11
>> AQAORT	EDIT+3*, EDIT+4
>> AQAOSTR	VISIT+20*
>> AQAOUDIT("ACTION"	VISIT+5, ASKREVU+7, INITIAL+4*
>> AQAOUDIT("COMMENT"	VISIT+6, ASKREVU+6, INITIAL+3*
>> AQAOUDIT("DA"	VISIT+5, ASKREVU+6, INITIAL+3*
>> AQAOVSIT	VISIT+8*, VISIT+9
>> DA	VISIT+21, EDIT+8, ASKREVU+8, INITIAL+5
>> DIE	VISIT+21, EDIT+8, ASKREVU+8, INITIAL+5
DIR	CHOOSE+3!, VISIT+12!, ASKREVU+8!, ASKREVU+12!, ASKREVU+18!, INITIAL+5!
DIR("?"	VISIT+12*
DIR("A"	CHOOSE+4, VISIT+13, ASKREVU+13, ASKREVU+19
DIR("B"	ASKREVU+12, ASKREVU+18
DIR(0	CHOOSE+3, VISIT+12, ASKREVU+12, ASKREVU+18
>> DIRUT	CHOOSE+5, ASKREVU+14
>> DR	VISIT+21, EDIT+8, ASKREVU+8, INITIAL+5
>> DTOUT	CHOOSE+10, CHOOSE+13
>> DUOUT	CHOOSE+10, CHOOSE+13
DUZ	CLOSE+2
IOF	ASKREVU+14
U	VISIT+8, VISIT+10, VISIT+14, VISIT+19, EDIT+2, EDIT+3, EDIT+4, ASKREVU+3, ASKREVU+16, INITIAL+9 , INITIAL+10, CLOSE+2
>> X	CHOOSE+5, VISIT+19
>> Y	CHOOSE+5, CHOOSE+8, CHOOSE+10, VISIT+14, VISIT+15, EDIT+9, ASKREVU+14, ASKREVU+16

Customize PDF page

Package: Quality Assurance

Routine: AQAOENTR

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: