Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: QAQDATE

Package: Quality Assurance Integration

Routine: QAQDATE


Information

QAQDATE ;HISC/JES,DAD-EXTRAPOLATE DATE FOR SORT/PRINTS ;10/15/92 12:45 ;

Source Information

Source file <QAQDATE.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ^%DT  

Caller Graph

Caller Graph Total: 52

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  
Patient Representative 19 QACARCH  QACBYLOC  QACCSSTD  QACDAILY  QACDELT  QACDISC  QACDISPC  QACDISPS  
QACEMPC  QACEMPE  QACGEN  QACNOPTS  QACOPEN  QACPAT  QACPRT  QACRESP  
QACSPRD  QACSRPT  QACUTL0  
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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All