Routine: AQAOCHK4

Package	Total	Call Graph
Quality Assurance	3	$$OVERDUE^AQAOCHK0 (HEADING,INIT,KILL,NEWPG)^AQAOUTIL PRTOPT^AQAOVAR
Kernel	1	^%ZISC
VA Fileman	1	Y^DIQ

Package	Total	Caller Graph
Quality Assurance	1	AQAOCHK2

Entry Points

Name	Comments	DBIA/ICR reference
MAP	; -- SUBRTN to print out map to find options
ALLREF	; >> SUBRTN to print all referrals for qi staff user
END	;ENTRY POINT called by AQAOCHK1
HDG1	; >> SUBRTN to print 2nd half of heading
PRINTA	; >> SUBRTN to print action plan items
MSG	;;
OCCPRNT	; -- SUBRTN to print out cases
PRINT	;ENTRY POINT >>> print selected range of items
LOOP	; -- SUBRTN to loop thru ^TMP to find cases to display

External References

Name	Field # of Occurrence
^%ZISC	END+2
$$OVERDUE^AQAOCHK0	OCCPRNT+3, ALLREF+10
HEADING^AQAOUTIL	PRINT+4
INIT^AQAOUTIL	PRINT+2
KILL^AQAOUTIL	END+2
NEWPG^AQAOUTIL	PRINT+7, OCCPRNT+1, MAP+1, ALLREF+8, PRINTA+1
PRTOPT^AQAOVAR	PRINT+12
Y^DIQ	OCCPRNT+19, OCCPRNT+21, ALLREF+15, ALLREF+17, PRINTA+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"#",$P(^AQAOC(+AQAOIFN,0),U) Line Location: OCCPRNT+2
Function Call: WRITE	Prompt: $$OVERDUE^AQAOCHK0 Line Location: OCCPRNT+3
Function Call: WRITE	Prompt: ?10,Y Line Location: OCCPRNT+4
Function Call: WRITE	Prompt: ?32,$P(^AQAO(2,AQAOIND,0),U) Line Location: OCCPRNT+7
Function Call: WRITE	Prompt: ?60 Line Location: OCCPRNT+10
Function Call: WRITE	Prompt: $P($G(^SC(X,0)),U,2),"/" Line Location: OCCPRNT+11
Function Call: WRITE	Prompt: $P($G(^DIC(49,X,0)),U,2) Line Location: OCCPRNT+12
Function Call: WRITE	Prompt: ?43,"Referred by: ",$E(Y,1,23) Line Location: OCCPRNT+20
Function Call: WRITE	Prompt: !?43,"Referred to: ",$E(Y,1,23) Line Location: OCCPRNT+22
Function Call: WRITE	Prompt: !!,">>To find Occurrence Data Entry options, follow this path:" Line Location: MAP+2
Function Call: WRITE	Prompt: !?5,"D for Data Collection Menu;" Line Location: MAP+3
Function Call: WRITE	Prompt: !?10,"ODE for Occurrence Data Entry Menu;" Line Location: MAP+4
Function Call: WRITE	Prompt: !?15,"And then POW for Print Occurrence Worksheets;" Line Location: MAP+5
Function Call: WRITE	Prompt: !?21,"Or OCC for Enter/Edit Occurrence Record;" Line Location: MAP+6
Function Call: WRITE	Prompt: !?21,"Or PRW for Print Review Worksheets;" Line Location: MAP+7
Function Call: WRITE	Prompt: !?21,"Or REV for Enter/Edit Occurrence Review." Line Location: MAP+8
Function Call: WRITE	Prompt: !,"#",$P(^AQAOC(+AQAOIFN,0),U) Line Location: ALLREF+9
Function Call: WRITE	Prompt: $$OVERDUE^AQAOCHK0 Line Location: ALLREF+10
Function Call: WRITE	Prompt: ?10,Y Line Location: ALLREF+11
Function Call: WRITE	Prompt: ?32,$P(^AQAO(2,AQAOIND,0),U) Line Location: ALLREF+14
Function Call: WRITE	Prompt: ?43,"Referred by: ",$E(Y,1,23) Line Location: ALLREF+16
Function Call: WRITE	Prompt: !?43,"Referred to: ",$E(Y,1,23) Line Location: ALLREF+18
Function Call: WRITE	Prompt: !,"#",$P(^AQAO(5,+AQAOIFN,0),U) Line Location: PRINTA+2
Function Call: WRITE	Prompt: ?12,"Indicator: ",$P(^AQAO(2,AQAOIND,0),U) Line Location: PRINTA+3
Function Call: WRITE	Prompt: ?32,$E(Y,1,25) Line Location: PRINTA+5
Function Call: WRITE	Prompt: ?22,"(Occurrences & Action Plans Pending)" Line Location: HDG1+1
Function Call: WRITE	Prompt: !?20,"[""*"" after Case ID means overdue for review]",!,AQAOLINE Line Location: HDG1+2
Function Call: WRITE	Prompt: !,"Case ID",?10,"Occ/Rev Dt",?23,"Chart #",?32,"Indicator" Line Location: HDG1+3
Function Call: WRITE	Prompt: ?43,"Comments",!,AQAOLIN2,! Line Location: HDG1+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(2 - [#9002168.2]	OCCPRNT+7, ALLREF+14, PRINTA+3
^AQAO(5 - [#9002168.5]	PRINTA+2, PRINTA+6
^AQAO(6 - [#9002168.6]	OCCPRNT+16, PRINTA+7
^AQAO(7 - [#9002168.7]	OCCPRNT+15
^AQAOC - [#9002167]	OCCPRNT+2, OCCPRNT+5, OCCPRNT+10, OCCPRNT+11, OCCPRNT+12, ALLREF+9, ALLREF+12
^AUPNPAT - [#9000001]	OCCPRNT+6, ALLREF+13
^DD("DD"	OCCPRNT+4, ALLREF+11
^DD(9002167	OCCPRNT+19, OCCPRNT+21, ALLREF+15, ALLREF+17
^DD(9002168.5	PRINTA+4
^DIC(49 - [#49]	OCCPRNT+12
^SC - [#44]	OCCPRNT+11
^TMP("AQAOCHK"	LOOP+3, LOOP+5, LOOP+7, LOOP+9, END+1!, ALLREF+3, ALLREF+5, ALLREF+6

Label References

Name	Line Occurrences
ALLREF	LOOP+8
END	PRINT+13
HDG1	PRINT+4, PRINT+7, OCCPRNT+1, MAP+1, ALLREF+8, PRINTA+1
LOOP	PRINT+9
MAP	PRINT+11
OCCPRNT	LOOP+12
PRINTA	LOOP+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AQAOALL	END+1!, ALLREF+7
AQAODT	LOOP+1~, LOOP+4, LOOP+5, LOOP+7, LOOP+9, OCCPRNT+4, ALLREF+3, ALLREF+5, ALLREF+6, ALLREF+11 , PRINTA+4
>> AQAOHCON	PRINT+3*
>> AQAOI	PRINT+6*
AQAOIFN	LOOP+1~, LOOP+6, LOOP+7, LOOP+9, OCCPRNT+2, OCCPRNT+5, OCCPRNT+10, OCCPRNT+11, OCCPRNT+12, ALLREF+3 , ALLREF+5, ALLREF+6, ALLREF+9, ALLREF+12, PRINTA+2, PRINTA+6
AQAOIND	LOOP+1~, LOOP+2, LOOP+3, LOOP+5, LOOP+7, LOOP+9, OCCPRNT+7, ALLREF+3, ALLREF+5, ALLREF+6 , ALLREF+14, PRINTA+3
>> AQAOLIN2	HDG1+4
>> AQAOLINE	HDG1+2
AQAON1	ALLREF+1~, ALLREF+2, ALLREF+3, ALLREF+5, ALLREF+6
AQAON2	ALLREF+1~, ALLREF+4, ALLREF+5, ALLREF+6
AQAOR1	END+1!
AQAOR2	END+1!
>> AQAOSTOP	PRINT+6, PRINT+7, LOOP+3, LOOP+5, LOOP+7, OCCPRNT+1, ALLREF+3, ALLREF+5, ALLREF+8, PRINTA+1
>> AQAOSTR	LOOP+9, LOOP+11, OCCPRNT+15, OCCPRNT+16, OCCPRNT+19, OCCPRNT+21, ALLREF+6, ALLREF+7, ALLREF+15, ALLREF+17
>> AQAOTY	PRINT+3*
>> AQAOX	PRINT+6*, LOOP+3, LOOP+5, LOOP+7, LOOP+8, LOOP+9, LOOP+10, OCCPRNT+3, OCCPRNT+9, OCCPRNT+14 , ALLREF+3, ALLREF+5, ALLREF+6, ALLREF+7, ALLREF+10
AQAOXYZ	PRINT+11, LOOP+8, END+1!
AQAOXYZ(4	PRINT+6
>> C	OCCPRNT+19, OCCPRNT+21, ALLREF+15, ALLREF+17, PRINTA+4*
DUZ	ALLREF+7
DUZ(2	OCCPRNT+6, ALLREF+13
IOSL	PRINT+7, OCCPRNT+1, MAP+1, ALLREF+8, PRINTA+1
IOST	PRINT+12
U	PRINT+6, PRINT+7, LOOP+3, LOOP+5, LOOP+7, OCCPRNT+1, OCCPRNT+2, OCCPRNT+5, OCCPRNT+6, OCCPRNT+7 , OCCPRNT+10, OCCPRNT+11, OCCPRNT+12, OCCPRNT+15, OCCPRNT+16, OCCPRNT+19, OCCPRNT+21, ALLREF+3, ALLREF+5, ALLREF+7 , ALLREF+8, ALLREF+9, ALLREF+12, ALLREF+13, ALLREF+14, ALLREF+15, ALLREF+17, PRINTA+1, PRINTA+2, PRINTA+3 , PRINTA+4, PRINTA+6, PRINTA+7
>> X	OCCPRNT+5, OCCPRNT+6, OCCPRNT+11, OCCPRNT+12, OCCPRNT+16, ALLREF+12, ALLREF+13, PRINTA+6, PRINTA+7
>> Y	OCCPRNT+4, OCCPRNT+19, OCCPRNT+20, OCCPRNT+21, OCCPRNT+22, ALLREF+11, ALLREF+15, ALLREF+16, ALLREF+17, ALLREF+18 , PRINTA+4*, PRINTA+5
>> ZTQUEUED	PRINT+12

Customize PDF page

Package: Quality Assurance

Routine: AQAOCHK4

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items