Routine: AQALNK1

Package	Total	Call Graph
Quality Assurance	3	VARCHECK^AQALNK ^AQALNKER ^AQAOAUD
VA Fileman	1	^DIE

Package	Total	Caller Graph
Quality Assurance	2	AQALDG51 AQALDG53

Entry Points

Name	Comments	DBIA/ICR reference
AUDIT
EDIT	;PEP; PUBLIC ENTRY POINT to create occurrences ; >>> check input variables
DIE	; >>> set variables and call file^dicn
SUMM	; >>> add xtra data to case summary wp field
EXIT	; >>> eoj
DEL(N)	;PEP; PUBLIC ENTRY POINT to delete an occurrence

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"QAI Occurrence modified for this transaction: " Line Location: EXIT+3
Function Call: WRITE	Prompt: "(",$P($P(^DD(AQALF,AQALEV,0),U),"LINK"),")",! Line Location: EXIT+4
Function Call: WRITE	Prompt: !!,"QAI Occurrence deleted for this transaction: " Line Location: DEL+12
Function Call: WRITE	Prompt: "(",$P($G(^AQAO(2,$P(^AQAOC(AQALIFN,0),U,8),0)),U),")",! Line Location: DEL+13
Routine Call	DIE Line Location: DIE+12 DEL+11

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

Name	Line Occurrences (* Changed, ! Killed)
^AQAGU(0	DIE+10, DEL+5
^AQAO(2 - [#9002168.2]	DEL+13
^AQAOC - [#9002167]	DIE+3, DIE+8, DIE+12, SUMM+3, SUMM+4, DEL+3, DEL+11, DEL+13
^DD(	EXIT+4

Name	Line Occurrences
EXIT	EDIT+6, EDIT+9, DIE+4, DIE+8, DIE+10, DEL+3, DEL+5

Name	Field # of Occurrence
>> AQALCID	DIE+3*, DIE+4
>> AQALDATE	DIE+1*, DIE+2, DIE+7
>> AQALEV	EXIT+4
>> AQALF	EXIT+4
AQALIFN	EDIT+2!, DIE+6, SUMM+3, SUMM+4, DEL+2, DEL+3, DEL+8, DEL+10, DEL+11, DEL+13
>> AQALIND	DIE+1*, DIE+2, DIE+7
>> AQALNK(	EDIT+4, EDIT+5
>> AQALNK("BUL"	EXIT+2
>> AQALNK("DATE"	DIE+1
>> AQALNK("FAC"	DIE+7
>> AQALNK("HSV"	DIE+7
>> AQALNK("IND"	DIE+1
>> AQALNK("OCC"	DIE+3, DIE+6, DIE+8, DIE+12, AUDIT
>> AQALNK("PAT"	DIE+1
>> AQALNK("VSIT"	EDIT+10*, DIE+7
>> AQALNK("WARD"	DIE+7
AQALNKF	EDIT+2!, EDIT+6, EDIT+9, EXIT+2
AQALNKF(	EDIT+4, EDIT+5
AQALNKF("NO G	O" , DIE+4, DIE+9, DIE+11, DEL+4, DEL+6*
>> AQALPAT	DIE+1*, DIE+2, DIE+7
>> AQALST	SUMM+1, SUMM+2, SUMM+3
>> AQALSTX	SUMM+1, SUMM+3, SUMM+4
>> AQALXTR(	SUMM+2, SUMM+3
AQAODATE	DIE+2*, EXIT+1!
AQAOIND	DIE+2*, EXIT+1!
AQAOPAT	DIE+2*, EXIT+1!
>> AQAOUDIT("ACTION"	AUDIT, DEL+8
>> AQAOUDIT("COMMENT"	AUDIT+1, DEL+9
>> AQAOUDIT("DA"	AUDIT, DEL+8
>> DA	DIE+6, DEL+10
DIC	EXIT+1!
DIE	DIE+6!, DEL+10
>> DR	DIE+7, DEL+10
DT	SUMM+4
I	EDIT+3*, EDIT+4, EDIT+5, EXIT+1!
N	DEL~, DEL+2
U	DIE+3, SUMM+4, EXIT+4, DEL+13
X	EXIT+1!
Y	EXIT+1!