DGPPRP5 ;LIB/MKN - PRESUMPTIVE PSYCHOSIS FISCAL YEAR REPORT ;08/15/2019
Source file <DGPPRP5.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;entry point from Menu Option: PRESUMPTIVE PSYCHOSIS FISCAL YEAR REPORT
|
|
SELFY | ;Select Fiscal Year(s)
|
|
SELFYQ | ;Select Quarters, or complete Fiscal Year
|
|
DQ | ;
|
|
DQ1 | ;
|
|
FMYR(YR) | ;
|
|
GETQM(YR,QRT,MTH) | ;
|
|
SETPER(DGPER,DGYRS,DGQRT,DGMTH) | ;
|
|
;Print out results
|
||
PRINT2 | ;
|
|
CHKPGHDR(LINES,OFFSET,INHIB) | ;Check if Page Header needs printing
|
|
HDR(OFFSET,INHIB) | ;
|
|
WHICHMTH(DGSELQ,DGSELM) | ;Heading shows All Months or just the one month
|
|
FY(DATE) | ; return a dates Fiscal Year
|
|
GETFISC(PROMPT) | ||
FRMYR | ;
|
|
TOYR | ;
|
|
INITTEMP(DGFISCFR,DGFISCTO,DGSELQ,DGSELM) | ;
|
|
GETMTH(D) | ;
|
|
GETQUART(MTH) | ;
|
|
GETMTHQ(MTH) | ;
|
|
GETMTHS(DGSELQ) | ;
|
|
GETMTHSN(DGSELQ) | ;
|
|
OUT | ; KILL RETURN ARRAY QUIT
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DGPP(33.1 - [#33.1] | GET1^DIQ |