Routine: AQAOENTS

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE EN1^DIP ^DIR
Quality Assurance	3	^AQAOENTQ ($$IND,$$OCCDT,CREATE)^AQAOLKP KILL^AQAOUTIL
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

^DIC ^DIE EN1^DIP ^DIR

^AQAOENTQ ($$IND,$$OCCDT,CREATE)^AQAOLKP KILL^AQAOUTIL

$$FMTE^XLFDT

Package	Total	Caller Graph
Quality Assurance	1	AQAOENTR

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
IND	; >>> ask user to select indicator
EXIT	; >>> eoj
LOOP	; >>> loop thru template entries and create occ
TEMP	; >>> ask user for search template name

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"CREATE OCCURRENCES FROM A VISIT SEARCH TEMPLATE",!! Line Location: AQAOENTS+9
Function Call: WRITE	Prompt: !!,"I will take all entries from the search template " Line Location: IND+9
Function Call: WRITE	Prompt: $P(^DIBT(AQAOTMP,0),U) Line Location: IND+10
Function Call: WRITE	Prompt: !,"and create occurrences for indicator " Line Location: IND+11
Function Call: WRITE	Prompt: $S(AQAOIN="":"you select as each is entered.",1:$P(^AQAO(2,AQAOIN,0),U)) Line Location: IND+12
Function Call: WRITE	Prompt: !!,"Okay, I won't add another occurrence for this visit" Line Location: LOOP+13
Routine Call	DIE Line Location: LOOP+15
Routine Call	DIC Line Location: TEMP+4
Routine Call	DIR Line Location: IND+7 IND+13 LOOP+16

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

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(2 - [#9002168.2]	IND+12
^AUPNVSIT - [#9000010]	LOOP+5, LOOP+10
^DIBT(	IND+10, LOOP+2

Name	Field # of Occurrence
>> AQAO	LOOP+13
>> AQAODATE	LOOP+6*
AQAOIFN	LOOP+14!, LOOP+15
>> AQAOIN	IND+2*, IND+3, IND+12, LOOP+8
>> AQAOIND	LOOP+8*
>> AQAOPAT	LOOP+10*
>> AQAOSTOP	LOOP+1, LOOP+2, LOOP+7, LOOP+9, LOOP+12, LOOP+17*
>> AQAOTMP	TEMP+5*, IND+10, LOOP+2
>> AQAOV	LOOP+1, LOOP+2, LOOP+4, LOOP+5, LOOP+10, LOOP+15
>> BY	LOOP+3*
>> DA	LOOP+15*
>> DHD	LOOP+4*
DIC	TEMP+1!, LOOP+3
DIC("?"	TEMP+3*
DIC("S"	TEMP+2*
DIC(0	TEMP+1*
>> DIE	LOOP+15*
DIR	IND+6!, IND+13!, LOOP+16!
DIR("A"	IND+7, IND+13, LOOP+16*
DIR("B"	IND+6, IND+13
DIR(0	IND+6, IND+13, LOOP+16*
>> DIRUT	LOOP+7, LOOP+9, LOOP+12
>> DR	LOOP+15*
>> DTOUT	TEMP+4
>> DUOUT	TEMP+4
>> FLDS	LOOP+3*
>> FR	LOOP+4*
>> IOP	LOOP+4*
>> L	LOOP+3*
>> TO	LOOP+4*
U	IND+10, IND+12, LOOP+2, LOOP+5, LOOP+7, LOOP+9, LOOP+10, LOOP+12, LOOP+17
>> X	TEMP+4, LOOP+5*, LOOP+6, LOOP+7, LOOP+9, LOOP+12
>> Y	TEMP+4, TEMP+5, IND+1*, IND+2, IND+3, IND+14, LOOP+17

Information