Routine: AQALNK

Package	Total	Call Graph
Quality Assurance	3	^AQALNKER ^AQAOAUD $$OCCID^AQAOCID
VA Fileman	1	FILE^DICN

Package	Total	Caller Graph
Quality Assurance	3	AQALDG4 AQALDG51 AQALNK1

Entry Points

Name	Comments	DBIA/ICR reference
AUDIT
CREATE	;PEP; PUBLIC ENTRY POINT to create occurrences ; >>> check input variables
ADD	; >>> set variables and call file^dicn
SUMM	; >>> add xtra data to case summary wp field
EXIT	; >>> eoj
VARCHECK	;EP >>> SUBRTN to check input variables
DUPCHECK	; >>> check if duplicate entry allowed

External References

Name	Field # of Occurrence
^AQALNKER	EXIT+2
^AQAOAUD	AUDIT+1
$$OCCID^AQAOCID	ADD+3
FILE^DICN	ADD+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"QAI Occurrence created for this transaction: " Line Location: EXIT+3
Function Call: WRITE	Prompt: "(",$P($P(^DD(AQALF,AQALEV,0),U),"LINK"),")",! Line Location: EXIT+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE("B"	VARCHECK+11
^AQAGU(0	ADD+10
^AQAO(2 - [#9002168.2]	VARCHECK+4, VARCHECK+5
^AQAOC - [#9002167]	SUMM+1, SUMM+4, SUMM+5
^AQAOC("AA"	DUPCHECK+3
^AQAOC(0	ADD+8, ADD+12
^AUPNPAT - [#9000001]	VARCHECK+12
^AUPNVSIT - [#9000010]	VARCHECK+7, VARCHECK+8
^DD(	EXIT+4
^DPT - [#2]	VARCHECK+2, VARCHECK+3, VARCHECK+15, VARCHECK+16, VARCHECK+17

Label References

Name	Line Occurrences
ADD	DUPCHECK+1
EXIT	CREATE+6, CREATE+9, DUPCHECK+3, ADD+4, ADD+8, ADD+10, ADD+13, SUMM+1
VARCHECK	CREATE+8

Naked Globals

Name	Field # of Occurrence
^(	VARCHECK+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AQALCID	ADD+3*, ADD+4, ADD+6
>> AQALDATE	ADD+1*, ADD+2, ADD+7
>> AQALEV	EXIT+4
>> AQALF	EXIT+4
AQALIFN	CREATE+2!, ADD+14*, AUDIT, SUMM+1, SUMM+4, SUMM+5
>> AQALIND	ADD+1*, ADD+2, ADD+7
>> AQALNK(	CREATE+4, CREATE+5
>> AQALNK("BUL"	EXIT+2
>> AQALNK("DATE"	DUPCHECK+3, ADD+1, VARCHECK+13
>> AQALNK("DUP O	K" , DUPCHECK+1
>> AQALNK("FAC"	ADD+7, VARCHECK+11, VARCHECK+12
>> AQALNK("HSV"	ADD+7
>> AQALNK("IND"	DUPCHECK+3, ADD+1, VARCHECK+4, VARCHECK+5
>> AQALNK("PAT"	DUPCHECK+3, ADD+1, VARCHECK+2, VARCHECK+3, VARCHECK+10, VARCHECK+12, VARCHECK+15, VARCHECK+16, VARCHECK+17
>> AQALNK("VSIT"	CREATE+10*, ADD+7, VARCHECK+6, VARCHECK+7, VARCHECK+8
>> AQALNK("WARD"	ADD+7
AQALNKF	CREATE+2!, CREATE+6, CREATE+9, EXIT+2
AQALNKF(	CREATE+4, CREATE+5
AQALNKF("DATE"	VARCHECK+13, VARCHECK+14, VARCHECK+15, VARCHECK+17
AQALNKF("FAC"	VARCHECK+11, VARCHECK+12
AQALNKF("IND"	VARCHECK+4, VARCHECK+5
AQALNKF("NO G	O" , ADD+4, ADD+9, ADD+11, ADD+13
AQALNKF("PAT"	VARCHECK+2, VARCHECK+3
AQALNKF("VSIT"	VARCHECK+7, VARCHECK+9, VARCHECK+10*
>> AQALPAT	ADD+1*, ADD+2, ADD+7
>> AQALST	SUMM+2, SUMM+3, SUMM+4
>> AQALSTX	SUMM+2, SUMM+4, SUMM+5
>> AQALXTR(	SUMM+3, SUMM+4
AQAODATE	ADD+2*, EXIT+1!
AQAOIND	ADD+2*, EXIT+1!
AQAOPAT	ADD+2*, EXIT+1!
>> AQAOUDIT("ACTION"	AUDIT*
>> AQAOUDIT("COMMENT"	AUDIT+1*
>> AQAOUDIT("DA"	AUDIT*
DD	ADD+6!
DIC	ADD+6!*, EXIT+1!
DIC("DR"	ADD+7*
DIC(0	ADD+6*
DO	ADD+6!
DT	SUMM+5, VARCHECK+14
I	CREATE+3*, CREATE+4, CREATE+5, EXIT+1!
U	SUMM+5, EXIT+4, VARCHECK+3, VARCHECK+5, VARCHECK+9, VARCHECK+10, VARCHECK+15, VARCHECK+16
X	ADD+6, EXIT+1!, VARCHECK+8, VARCHECK+9, VARCHECK+10, VARCHECK+13*, VARCHECK+14, VARCHECK+15, VARCHECK+17
Y	ADD+13, ADD+14, EXIT+1!

Customize PDF page

Package: Quality Assurance

Routine: AQALNK

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: