Routine: AQAOYP3

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ^DIK ^DIR
Quality Assurance	2	CUMP2^AQAOYP2 ^AQAXINIT
Kernel	1	$$REPLACE^XLFSTR
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
CUMP3	;EP -- to be called by future patches
1	; -- SUBRTN edit qi data entry option
START	; -- Start of process to install patch #3 ; -- install 3 print templates & 4 input templates
2	; -- SUBRTN to edit help text on inactive fields
EXIT	; -- eoj
FILE	;;
MSG	;;
MAIL	; -- SUBRTN to send mail message

External References

Name	Field # of Occurrence
CUMP2^AQAOYP2	START+21
^AQAXINIT	START+11
^DIC	1+4
^DIE	1+6, 1+8
^DIK	START+17
^DIR	AQAOYP3+6
$$REPLACE^XLFSTR	2+6
^XMD	MAIL+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"QAI PATCH 3 DRIVER" Line Location: AQAOYP3+3
Function Call: WRITE	Prompt: !! Line Location: AQAOYP3+4
Function Call: WRITE	Prompt: !!,"First I need to run an init to install some templates:" Line Location: START+2
Function Call: WRITE	Prompt: !?5,"Print templates: AQAO ACTION LIST" Line Location: START+3
Function Call: WRITE	Prompt: !?5," AQAO FINDINGS LIST" Line Location: START+4
Function Call: WRITE	Prompt: !?5," AQAO WORKSHEET" Line Location: START+5
Function Call: WRITE	Prompt: !?5,"Input template: AQAO RATE REVIEW" Line Location: START+6
Function Call: WRITE	Prompt: !?5," AQAO PROV ACTION EDIT" Line Location: START+7
Function Call: WRITE	Prompt: !?5," AQAO PROV ACTION ADD" Line Location: START+8
Function Call: WRITE	Prompt: !?5," AQAO PROV LEVEL ADD" Line Location: START+9
Function Call: WRITE	Prompt: !,"And the Help Frames detailing the QAI patches",!! Line Location: START+10
Function Call: WRITE	Prompt: !!,"I will now delete the temporary entry in the PACKAGE file" Line Location: START+14
Function Call: WRITE	Prompt: !,"used to install these templates and help frames. . ." Line Location: START+15
Function Call: WRITE	Prompt: !,"No entry to DELETE!!" Line Location: START+16
Function Call: WRITE	Prompt: !,"Entry DELETED.",! Line Location: START+17
Function Call: WRITE	Prompt: !!,"PATCH #3 INSTALLED!",! Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"Updating QI Data Entry so provider add function works" Line Location: 1+1
Function Call: WRITE	Prompt: !,"during review process.",! Line Location: 1+2
Function Call: WRITE	Prompt: !!,"Fixing help text on Inactive fields.",! Line Location: 2+1
Function Call: WRITE	Prompt: !!,"Mail message sent to all QAI users.",! Line Location: MAIL+6
Routine Call	DIE Line Location: 1+6 1+8
Routine Call	DIC Line Location: 1+4
Routine Call	DIR Line Location: AQAOYP3+6

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^AQAQX - [#9002166.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(	2+6*
^DIC(9.4 - [#9.4]	START+16
^XUSEC("AQAOZMENU"	MAIL+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AQAO	2+2~, 2+6, MAIL+1~
AQAO(	MAIL+3*
AQAO("ACTIVATE"	2+3*
AQAO("activate"	2+3*
AQAOI	2+2~, 2+4, MAIL+1~, MAIL+3
DA	START+16, START+17, START+18!, 1+3~, 1+5, 1+7*
DA(1	1+7*
DIC	1+3~, 1+4*
DIC(0	1+4*
DIE	1+3~, 1+5, 1+7
DIK	START+17*, START+18!
DIR	AQAOYP3+4!
DIR("A"	AQAOYP3+5*
DIR("B"	AQAOYP3+4*
DIR(0	AQAOYP3+4*
DR	1+3~, 1+5, 1+8
X	1+3~, 1+4, 2+2~, 2+6, MAIL+4, MAIL+5
XMSUB	MAIL+1~, MAIL+2*
XMTEXT	MAIL+1~, MAIL+2*
XMY	MAIL+1~
XMY(	MAIL+5*
Y	AQAOYP3+6, 1+3~, 1+4, 1+5, 2+2~, 2+5*, 2+6
Z	2+2~, 2+5*, 2+6

Name	Field # of Occurrence
$T(FILE+AQAOI	2+5
$T(MSG+AQAOI	MAIL+3

Customize PDF page

Package: Quality Assurance

Routine: AQAOYP3

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items