Routine: QAOSUPL2

Package	Total	Call Graph
MailMan	2	KILL^XM ^XMD
Occurrence Screen	1	^QAOSPSM0
Quality Assurance Integration	1	K^QAQDATE
VA FileMan	1	YN^DICN

Package	Total	Caller Graph
Occurrence Screen	2	QAOSUPL0 QAOSUPL1

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ASKMAIL	;
EXIT	;
BUILD	;
SERVER	;
SITE	;
RELY	;
WORK	;
ACTN	;
SCRN	;
SERVICE(SEQUENCE,PATTERN)	;

External References

Name	Field # of Occurrence
YN^DICN	ASKMAIL+27
^QAOSPSM0	BUILD+1
K^QAQDATE	EXIT+7
KILL^XM	EN+1, EXIT+7
^XMD	ASKMAIL+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ASKMAIL+1
Function Call: WRITE	Prompt: !,"Reporting period: ",QAQ2HED Line Location: ASKMAIL+2
Function Call: WRITE	Prompt: !!,"Results of Reliability Assessments." Line Location: ASKMAIL+3
Function Call: WRITE	Prompt: !?5,"Date clinical review reliability assessment completed:" Line Location: ASKMAIL+4
Function Call: WRITE	Prompt: ?69,$S(Y]"":Y,1:"N/A") Line Location: ASKMAIL+5
Function Call: WRITE	Prompt: !?5,"Percentage agreement found:" Line Location: ASKMAIL+6
Function Call: WRITE	Prompt: ?69,$S(Y]"":$J(Y,6,2)_"%",1:"N/A") Line Location: ASKMAIL+7
Function Call: WRITE	Prompt: !?5,"Date peer review reliability assessment completed: " Line Location: ASKMAIL+8
Function Call: WRITE	Prompt: ?69,$S(Y]"":Y,1:"N/A") Line Location: ASKMAIL+9
Function Call: WRITE	Prompt: !?5,"Percentage agreement found:" Line Location: ASKMAIL+10
Function Call: WRITE	Prompt: ?69,$S(Y]"":$J(Y,6,2)_"%",1:"N/A") Line Location: ASKMAIL+11
Function Call: WRITE	Prompt: !!,"Facility Workload Data." Line Location: ASKMAIL+12
Function Call: WRITE	Prompt: !?5,"Number of admissions to acute care by bed section." Line Location: ASKMAIL+13
Function Call: WRITE	Prompt: !?10,"Medicine (Include Neurology, exclude Intermediate Med.):" Line Location: ASKMAIL+14
Function Call: WRITE	Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A") Line Location: ASKMAIL+15
Function Call: WRITE	Prompt: !?10,"Surgery:" Line Location: ASKMAIL+16
Function Call: WRITE	Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A") Line Location: ASKMAIL+16
Function Call: WRITE	Prompt: !?10,"Psychiatry:" Line Location: ASKMAIL+17
Function Call: WRITE	Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A") Line Location: ASKMAIL+17
Function Call: WRITE	Prompt: !?5,"Number of ""Unscheduled"" and ""10-10"" ambulatory care visits:" Line Location: ASKMAIL+18
Function Call: WRITE	Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A") Line Location: ASKMAIL+19
Function Call: WRITE	Prompt: !?5,"Number of surgical procedures performed:" Line Location: ASKMAIL+20
Function Call: WRITE	Prompt: ?66,$S(Y]"":$J(Y,6),1:" N/A") Line Location: ASKMAIL+21
Function Call: WRITE	Prompt: !!,"WARNING: This data will overwrite your pre-existing data" Line Location: ASKMAIL+23
Function Call: WRITE	Prompt: !," at the NQADB for this semi-annual period !!" Line Location: ASKMAIL+24
Function Call: WRITE	Prompt: !!,"Ready to send the ",XMSUB," data to the National Quality" Line Location: ASKMAIL+25
Function Call: WRITE	Prompt: !,"Assurance DataBase (NQADB) at ",QAOSSERV,"@",QAOSDOM Line Location: ASKMAIL+26
Function Call: WRITE	Prompt: !,"OK to send" Line Location: ASKMAIL+27
Function Call: READ	Variable: QA Timeout: 5 Line Location: ASKMAIL+28
Function Call: WRITE	Prompt: !!?5,"Please answer Y(es) or N(o) " Line Location: ASKMAIL+28
Function Call: WRITE	Prompt: !,"Sending . . ." Line Location: ASKMAIL+29

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASKMAIL+5, ASKMAIL+9
^UTILITY($J	EXIT+6!, SCRN+2, SCRN+3

Label References

Name	Line Occurrences
$$SERVICE	SCRN+10
ASKMAIL	ASKMAIL+28
BUILD	ASKMAIL+29
EXIT	ASKMAIL+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASKMAIL+27*, ASKMAIL+28, EXIT+1!
ERROR	EXIT+1!
IOF	ASKMAIL+1
PATTERN	SERVICE~, SERVICE+2, SERVICE+4*, SERVICE+6
PATTERN(0	SERVICE+2*, SERVICE+3, SERVICE+4
QA	ASKMAIL+28, EXIT+1!, WORK+2, ACTN+2, SCRN+6, SERVICE+1~*, SERVICE+2, SERVICE+4
QAO	EXIT+2!
QAOERROR	EXIT+1!
QAOFINAL	EXIT+4!
QAOS	EXIT+2!
QAOSACTN	EXIT+4!
QAOSACTN("N"	ACTN+2
QAOSCLIN	EXIT+2!
QAOSCREV	EXIT+4!
QAOSCRN	EXIT+2!
QAOSD0	EXIT+3!
QAOSD1	EXIT+4!
QAOSDATA	EXIT+1!, SCRN+3*, SCRN+4, SCRN+6
QAOSDATE	EXIT+3!
QAOSDOM	EN+4, ASKMAIL+26, EXIT+1!
QAOSFIND	EXIT+3!
QAOSHOSP	EXIT+4!
QAOSLEVL	EXIT+5!
QAOSLINE	EXIT+3!, BUILD+2, SERVER+1, SITE+1, SITE+2, SITE+3, RELY+1, RELY+4, WORK+1, WORK+3 , ACTN+1, ACTN+3, SCRN+1, SCRN+11
QAOSLIST	EXIT+1!
QAOSLIST(0	BUILD+1*
QAOSMGMT	EXIT+3!
QAOSNUM	EXIT+3!
QAOSPEER	EXIT+3!
QAOSRELY	EXIT+3!
QAOSRELY("C"	ASKMAIL+5, ASKMAIL+7, RELY+2
QAOSRELY("P"	ASKMAIL+9, ASKMAIL+11, RELY+3
QAOSRFPR	EXIT+4!
QAOSRV	EXIT+5!
QAOSRV("N"	SERVICE+4
QAOSS1	EXIT+5!
QAOSS2	EXIT+5!
QAOSSCRN	EXIT+1!, SCRN+4*, SCRN+5
QAOSSEQ	EXIT+1!, SCRN+1, SCRN+2, SCRN+3, SCRN+7, SCRN+8, SCRN+9, SCRN+10
QAOSSERV	EN+4, ASKMAIL+26, EXIT+2!
QAOSSITE	EN+3, EXIT+2!, SITE+2
QAOSSPEC	EXIT+4!, SCRN+7, SCRN+8, SCRN+9*, SCRN+10
QAOSSTAT	EXIT+5!
QAOSSTNO	EXIT+2!, SITE+2
QAOSTEMP	EXIT+5!
QAOSUPLD	EXIT+2!, BUILD+2!
QAOSUPLD(	SERVER+1, SITE+1, SITE+2, RELY+1, RELY+4, WORK+1, WORK+3, ACTN+1, ACTN+3, SCRN+1 , SCRN+11*
QAOSWARD	EXIT+5!
QAOSWORK	EXIT+4!
QAOSWORK(	WORK+2
QAOSWORK(1	ASKMAIL+15
QAOSWORK(2	ASKMAIL+16
QAOSWORK(3	ASKMAIL+17
QAOSWORK(4	ASKMAIL+19
QAOSWORK(7	ASKMAIL+21
QAOSZERO	EXIT+2!
>> QAQ2HED	ASKMAIL+2
>> QAQNBEG	SITE+2
>> QAQNEND	SITE+2
SEQUENCE	SERVICE~, SERVICE+4
SERV	EXIT+5!
>> X	RELY+2, RELY+3, RELY+4, WORK+1, WORK+2, WORK+3, ACTN+1, ACTN+2, ACTN+3, SCRN+5* , SCRN+6, SCRN+10, SCRN+11
>> XMDUZ	EN+3*
>> XMSUB	EN+2*, ASKMAIL+25
>> XMTEXT	EN+3*
>> XMY(	EN+4*
>> Y	ASKMAIL+5, ASKMAIL+7, ASKMAIL+9, ASKMAIL+11, ASKMAIL+15, ASKMAIL+16, ASKMAIL+17, ASKMAIL+19, ASKMAIL+21*
>> ZTQUEUED	EXIT+7
>> ZTREQ	EXIT+7*

Customize PDF page

Package: Occurrence Screen

Routine: QAOSUPL2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: