Routine: QAQDATE

Package	Total	Call Graph
VA FileMan	1	^%DT

Package	Total	Caller Graph
Occurrence Screen	19	QAOEDT QAOSDELT QAOSEWS0 QAOSPAD0 QAOSPAU0 QAOSPDQ0 QAOSPRD0 QAOSPRS0 QAOSPSM QAOSPSR0 QAOSPSS QAOSPSY0 QAOSPTR0 QAOSPURG QAOSPWT0 QAOSUPL0 QAOSUPL2 QAOSWRK0 QAOSXTRN
Clinical Monitoring System	7	QAMAHO1 QAMAHO5 QAMARCH0 QAMAUTO4 QAMPFAL0 QAMPHIS1 QAMPRUN0
Incident Reporting	7	QANBENE QANBENE0 QANEWS QANEWS0 QANQSDT QANRPT1 QANRPT2

Entry Points

Name	Comments	DBIA/ICR reference
RANGE	;
MONTH	;
QUART	;
ENTERQ
YEAR	;
USERSEL	;
ABORT	;
QUIT	;
KILL	;
K	; *** ENTRY POINT TO CLEANUP RETURNED VARIABLES

External References

Name	Field # of Occurrence
^%DT	MONTH+3, ENTERQ+3, YEAR+4, USERSEL+1, USERSEL+3, QUIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Date range: ",X,$P($P(QAQFRAME,"^"_X,2),"^") Line Location: RANGE+4
Function Call: WRITE	Prompt: !!,"Monthly, Quarterly, Semi-Annually, Yearly, Fiscal Yearly, User Selectable",!,"Select date range: ",$S($P(QAQDATE,"^")]"":$P(QAQDATE,"^")_"// ",1:"") Line Location: RANGE+8
Function Call: READ	Variable: X Timeout: DTIME Line Location: RANGE+9
Function Call: WRITE	Prompt: X Line Location: RANGE+9
Function Call: WRITE	Prompt: !!?5,"Enter the first few letters of one of the choices listed below." Line Location: RANGE+12
Function Call: WRITE	Prompt: $P($P(QAQFRAME,"^"_X,2),"^") Line Location: RANGE+13
Function Call: WRITE	Prompt: " ??",*7,!!,"Please enter a month and year",$S(+$E(Y,6,7):" only",1:"") Line Location: MONTH+4
Function Call: WRITE	Prompt: !!,"Enter Quarter Period and FY you wish Semi-Annual range to end with" Line Location: QUART+1
Function Call: WRITE	Prompt: ! Line Location: QUART+2
Function Call: READ	Variable: QUART Timeout: DTIME Line Location: ENTERQ+0
Function Call: WRITE	Prompt: !!,"Enter Quarter Period in this format: 2nd quarter 1988 would be 2-88, 2/88, 2 88",! Line Location: ENTERQ+1
Function Call: WRITE	Prompt: " ??",*7,!!,"Enter Quarter 1 to 4 only",! Line Location: ENTERQ+2
Function Call: WRITE	Prompt: !!,"Enter ",$S(FY:"FISCAL ",1:""),"YEAR: ",$S($P(QAQDATE,"^",2)]"":$P(QAQDATE,"^",2)_"// ",1:"") Line Location: YEAR+1
Function Call: READ	Variable: YR Timeout: DTIME Line Location: YEAR+2
Function Call: WRITE	Prompt: !!,"Enter a 2 or 4 digit ",$S(FY:"fiscal ",1:""),"year" Line Location: YEAR+3
Function Call: WRITE	Prompt: !!,QAQRANG,! Line Location: QUIT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	QAQDATE+16

Label References

Name	Line Occurrences
ABORT	RANGE+1, RANGE+10
ENTERQ	ENTERQ+1, ENTERQ+2
K	ABORT+1
KILL	ABORT+1
MONTH	RANGE+5, RANGE+14, MONTH+4
QUART	RANGE+5, RANGE+14
QUIT	RANGE+1, RANGE+16
RANGE	RANGE+12, RANGE+15
USERSEL	RANGE+6, RANGE+14
YEAR	RANGE+6, RANGE+14, YEAR+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	MONTH+3!, ENTERQ+3!, YEAR+4!, USERSEL+1!, USERSEL+3!, QUIT+1!, KILL+1!
%DT("A"	MONTH+3, USERSEL+1, USERSEL+3*
%DT("B"	MONTH+3, USERSEL+1, USERSEL+3*
%DT(0	USERSEL+3*
BEGIN	USERSEL+2*, USERSEL+3, USERSEL+4, KILL+1!
DTIME	RANGE+9, ENTERQ, YEAR+2
EOM	KILL+1!
EOM(	MONTH+5, MONTH+6
EOM("01"	MONTH+1*
EOM("02"	MONTH+1*
EOM("03"	MONTH+1*
EOM("04"	MONTH+1*
EOM("05"	MONTH+1*
EOM("06"	MONTH+1*
EOM("07"	MONTH+2*
EOM("08"	MONTH+2*
EOM("09"	MONTH+2*
EOM(10	MONTH+2*
EOM(11	MONTH+2*
EOM(12	MONTH+2*
FY	YEAR+1*, YEAR+3, YEAR+5, KILL+1!
LP	KILL+1!
MOE	MONTH+5*, MONTH+6, KILL+1!
MON	KILL+1!
QA	KILL+1!
QA("DD"	QAQDATE+16*, USERSEL+2, USERSEL+4, QUIT+1
QAQ1HED	QUIT+1*, K+1!
QAQ2HED	MONTH+6, ENTERQ+6, YEAR+5, YEAR+6, USERSEL+4*, QUIT+1, K+1!
QAQDATE	QAQDATE+16, RANGE+1, RANGE+2, RANGE+8, RANGE+9, RANGE+15, MONTH+3, ENTERQ, YEAR+1, YEAR+2 , USERSEL+1, USERSEL+3, KILL+1!
QAQENGD	QUIT+1*, K+1!
QAQFRAME	QAQDATE+16*, RANGE+4, RANGE+12, RANGE+13, KILL+1!
QAQNBEG	MONTH+6, ENTERQ+6, YEAR+5, YEAR+6, USERSEL+2*, USERSEL+3, QUIT+1, K+1!
QAQNEND	MONTH+5, MONTH+6, ENTERQ+6, YEAR+5, YEAR+6, USERSEL+4*, QUIT+1, K+1!
QAQQUIT	RANGE+1, RANGE+3, RANGE+13, RANGE+15, MONTH+3, ENTERQ, YEAR+2, USERSEL+1, USERSEL+3, ABORT+1* , K+1!
QAQRANG	QUIT+1*, K+1!
QAQTART	QUIT+1*, K+1!
QU	ENTERQ+3*, ENTERQ+6, KILL+1!
QUART	ENTERQ*, ENTERQ+1, ENTERQ+2, ENTERQ+3, KILL+1!
QUBEG	KILL+1!
QUBEG(	ENTERQ+6
QUBEG(1	ENTERQ+4*
QUBEG(2	ENTERQ+4*
QUBEG(3	ENTERQ+4*
QUBEG(4	ENTERQ+4*
QUEND	KILL+1!
QUEND(	ENTERQ+6
QUEND(1	ENTERQ+4*
QUEND(2	ENTERQ+4*
QUEND(3	ENTERQ+4*
QUEND(4	ENTERQ+4*
QUQUA	KILL+1!
QUQUA(	ENTERQ+6
QUQUA(1	ENTERQ+4*
QUQUA(2	ENTERQ+4*
QUQUA(3	ENTERQ+4*
QUQUA(4	ENTERQ+4*
SEBEG	KILL+1!
SEBEG(	ENTERQ+6
SEBEG(1	ENTERQ+5*
SEBEG(2	ENTERQ+5*
SEBEG(3	ENTERQ+5*
SEBEG(4	ENTERQ+5*
SEMI	QUART+1*, ENTERQ+5, ENTERQ+6, KILL+1!
WHEN	RANGE+2, RANGE+5, RANGE+6, RANGE+13, RANGE+14, QUART+1, YEAR+1, KILL+1!
X	RANGE+2, RANGE+3, RANGE+4, RANGE+9, RANGE+10, RANGE+11, RANGE+12, RANGE+13, MONTH+5, ENTERQ+3* , YEAR+4, QUIT+1, KILL+1!
Y	MONTH+3, MONTH+4, MONTH+5, MONTH+6, ENTERQ+3, YEAR+4, USERSEL+1, USERSEL+2, USERSEL+3, USERSEL+4 , QUIT+1*, KILL+1!
YR	ENTERQ+3, ENTERQ+4, ENTERQ+5, ENTERQ+6, YEAR+2, YEAR+3, YEAR+4*, YEAR+5, YEAR+6, KILL+1!

Customize PDF page

Package: Quality Assurance Integration

Routine: QAQDATE

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 33

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: