Routine: AQAOUDEL

Information

AQAOUDEL ; IHS/ORDC/LJF - REOPEN AN OCCURRENCE RECORD ;

Source file <AQAOUDEL.m>

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE EN1^DIP ^DIR
Quality Assurance	2	^AQAOAUD KILL^AQAOUTIL

Name	Comments	DBIA/ICR reference
ASK	; >>> ask for occ id or patient name or indicator
REOPEN	; >>> reopen occurrence
EXIT	; >> eoj

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: REOPEN+1
Function Call: WRITE	Prompt: !!!?5,"Reactivating Occurrence #",AQAOCID,". . . .",!! Line Location: REOPEN+8
Routine Call	DIE Line Location: REOPEN+11
Routine Call	DIC Line Location: ASK+5
Routine Call	DIR Line Location: ASK+13 REOPEN+3

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

Name	Line Occurrences (* Changed, ! Killed)
^AQAGU(0	REOPEN+6
^AQAOC - [#9002167]	ASK+1, REOPEN+4, EXIT+1

Name	Line Occurrences
ASK	REOPEN+4, REOPEN+6
EXIT	ASK+5, REOPEN+3

Name	Field # of Occurrence
>> AQAOCID	ASK+6*, REOPEN+8
>> AQAOIFN	ASK+1, ASK+6*, ASK+10, REOPEN+4, REOPEN+9, REOPEN+11, EXIT+1
AQAOINAC	ASK+2*, EXIT+2!
>> AQAOUDIT("ACTION"	REOPEN+9*
>> AQAOUDIT("COMMENT"	REOPEN+10*
>> AQAOUDIT("DA"	REOPEN+9*
>> BY	ASK+10*
>> DA	REOPEN+11*
DIC	ASK+2!, ASK+9
DIC("A"	ASK+3*
DIC("S"	ASK+4*
DIC(0	ASK+2*
DIE	REOPEN+11!*
DIR	ASK+11!, REOPEN+1!
DIR("A"	ASK+12, REOPEN+2
DIR("B"	REOPEN+1*
DIR(0	ASK+11, REOPEN+1
>> DIRUT	REOPEN+3
>> DR	REOPEN+11*
>> DTOUT	ASK+5
>> DUOUT	ASK+5
>> FLDS	ASK+9*
>> FR	ASK+10*
IO(0	ASK+10
>> IOP	ASK+10*
>> L	ASK+9*
>> TO	ASK+10*
>> X	ASK+5
>> Y	ASK+5, ASK+6, REOPEN+3
>> Y(0	ASK+6