Routine: AQALDG4

Package	Total	Call Graph
VA Fileman	3	^%DTC ^DIC EN^DIQ1
Quality Assurance	2	^AQALKILL CREATE^AQALNK
MailMan	1	^XMB

Entry Points

Name	Comments	DBIA/ICR reference
EXIT1
ERRORMSG	; >>> send bulletin if any error messages exist
CREATE	; >>> call ^aqalnk to create occurrence
CHECK	; >>> check results
ICUCHK	; >>SUBRTN to see which ICU parameter applies
EXIT	; >>> eoj
FIND	; >>> find variables for autolink rtn

External References

Name	Field # of Occurrence
^%DTC	ICUCHK+9, ICUCHK+14
^AQALKILL	EXIT1+1
CREATE^AQALNK	CREATE+1
^DIC	FIND+14
EN^DIQ1	FIND+12
^XMB	ERRORMSG+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"QAI Occurrence entry created for this transaction: " Line Location: CHECK+3
Function Call: WRITE	Prompt: " (",$P($P(^DD(AQALF,AQALEV,0),U),"LINK"),")",! Line Location: CHECK+4
Function Call: WRITE	Prompt: !!,*7,"ERROR IN QI PARAMETER FILE OR IN ADT CALL TO ^AQALDG. CALL YOUR SITE MANAGER.",!! Line Location: EXIT+1
Routine Call	DIC Line Location: FIND+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AQAGP - [#9002166.4]	Classic Fileman Calls
^AQAO(2 - [#9002168.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AQAGP - [#9002166.4]	FIND+7, FIND+38, FIND+39, ICUCHK+1, ICUCHK+10, ICUCHK+15
^AQAO(9 - [#9002168.9]	ERRORMSG+2
^AUPNPAT - [#9000001]	ERRORMSG+5
^AUPNVSIT - [#9000010]	FIND+28, FIND+29
^AUPNVSIT("AA"	FIND+27
^DD(	CHECK+4
^DIC(42 - [#42]	FIND+34, ICUCHK+8, ICUCHK+13
^DIC(45.7 - [#45.7]	FIND+37
^DPT - [#2]	FIND+2, FIND+25, ERRORMSG+4, ICUCHK+3, ICUCHK+5, ICUCHK+6, ICUCHK+7, ICUCHK+9, ICUCHK+12, ICUCHK+14
^UTILITY("DIQ1"	FIND+9!, FIND+12, FIND+13, FIND+17, FIND+45, EXIT1!

Label References

Name	Line Occurrences
ERRORMSG	CHECK+1
EXIT	FIND+13, FIND+14, FIND+17, FIND+19, FIND+21, FIND+42, CREATE+2, CHECK+4
EXIT1	AQALDG4+11, AQALDG4+12, AQALDG4+13, AQALDG4+14, FIND+2, FIND+7, FIND+12, FIND+38
ICUCHK	FIND+8

Naked Globals

Name	Field # of Occurrence
^(	FIND+13
^(0	FIND+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %Y	ICUCHK+10, ICUCHK+15
>> AQALADM	AQALDG4+11, FIND+25, ICUCHK+3, ICUCHK+5, ICUCHK+6, ICUCHK+7, ICUCHK+9, ICUCHK+12, ICUCHK+14
>> AQALAR(	ERRORMSG+6*
>> AQALAR(1	ERRORMSG+4*
>> AQALAR(2	ERRORMSG+5*
AQALDT	ICUCHK+2~, ICUCHK+3*, ICUCHK+4, ICUCHK+9, ICUCHK+14
>> AQALEV	AQALDG4+12, AQALDG4+13, AQALDG4+14, FIND+8, FIND+11, FIND+12, FIND+13, FIND+17, FIND+39, FIND+45 , CHECK+4, ICUCHK+10, ICUCHK+11, ICUCHK+15
>> AQALF	FIND+9*, FIND+12, FIND+13, FIND+17, FIND+45, CHECK+4
>> AQALHSV	AQALDG4+12, FIND+37
AQALIFN	FIND+1!, CHECK+1, EXIT+1
>> AQALNK("BUL"	FIND+3*
>> AQALNK("DATE"	FIND+20*, FIND+21
>> AQALNK("DUP O	K" , FIND+45*, FIND+46!
>> AQALNK("FAC"	FIND+42*
>> AQALNK("HSV"	FIND+37*, FIND+38
>> AQALNK("IND"	FIND+14*
>> AQALNK("PAT"	FIND+4*
>> AQALNK("VSIT"	FIND+31*
>> AQALNK("WARD"	FIND+34*
AQALNKF	FIND+1!, EXIT+1
AQALNKF(	ERRORMSG+6
>> AQALPAT	ERRORMSG+4, ERRORMSG+5
>> AQALTR	AQALDG4+13, ICUCHK+3
AQALVST	FIND+24!, FIND+27, FIND+30*, FIND+31
>> AQALWD	FIND+34
AQALX	ICUCHK+2~, ICUCHK+4, ICUCHK+5, ICUCHK+6
>> DA	FIND+10*
>> DFN	AQALDG4+11, FIND+2, FIND+4, FIND+25, FIND+27, ICUCHK+3, ICUCHK+5, ICUCHK+6, ICUCHK+7, ICUCHK+9 , ICUCHK+12, ICUCHK+14
DIC	FIND+10!, FIND+14!
DIC(0	FIND+14*
DR	FIND+10!, FIND+11*
DUZ(2	AQALDG4+11, FIND+7, FIND+10, FIND+12, FIND+13, FIND+17, FIND+38, FIND+39, FIND+42, FIND+45 , ERRORMSG+5, ICUCHK+1, ICUCHK+10, ICUCHK+15
>> I	FIND+11*
U	FIND+2, FIND+28, FIND+29, FIND+34, FIND+37, FIND+39, CHECK+4, ERRORMSG+4, ERRORMSG+5, ICUCHK+1 , ICUCHK+7, ICUCHK+8, ICUCHK+9, ICUCHK+10, ICUCHK+12, ICUCHK+13, ICUCHK+15
X	FIND+13, FIND+17, FIND+18, FIND+25, FIND+26, FIND+27, FIND+38, FIND+39, ERRORMSG+2, ERRORMSG+3 , ERRORMSG+6, ICUCHK+2~, ICUCHK+7, ICUCHK+8, ICUCHK+10, ICUCHK+12*, ICUCHK+13, ICUCHK+15
>> X1	ICUCHK+9, ICUCHK+14
>> X2	ICUCHK+9, ICUCHK+14
XMB	ERRORMSG+1*, ERRORMSG+7!
XMDUX	ERRORMSG+7!
>> XMDUZ	ERRORMSG+1*
XMTEXT	ERRORMSG+7*!
XMY	ERRORMSG+7!
XMY(	ERRORMSG+3*
Y	FIND+14, FIND+18, FIND+19, FIND+20, FIND+26, FIND+27, FIND+28, FIND+29, FIND+30, ERRORMSG+6 , ICUCHK+2~, ICUCHK+6*, ICUCHK+7, ICUCHK+9

Customize PDF page

Package: Quality Assurance

Routine: AQALDG4

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: