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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGPPRP5

Package: Registration

Routine: DGPPRP5


Information

DGPPRP5 ;LIB/MKN - PRESUMPTIVE PSYCHOSIS FISCAL YEAR REPORT ;08/15/2019

Source Information

Source file <DGPPRP5.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG PRESUMP. PSYCH. FISCAL YEAR  

Entry Points

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 ;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

External References

Name Field # of Occurrence
^%ZIS SELFYQ+20
HOME^%ZIS SELFYQ+25
^%ZISC OUT+1
^%ZTLOAD SELFYQ+25
$$GET1^DIQ DQ1+7, DQ1+8
^DIR SELFYQ+2, SELFYQ+9, SELFYQ+26, PRINT+34, CHKPGHDR+3, FRMYR+6, TOYR+2
$$FMADD^XLFDT DQ1+2
$$FMTE^XLFDT DQ1+4, HDR+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: SELFYQ+26
Function Call: WRITE
  • Prompt: !!,"No patients found for the selected criteria"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,DGMTHC,?10,$J($FN(DGM,","),10),?22,$J($FN(DGF,","),10)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?36,$J($FN(DGM+DGF,","),10)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,DGDASH,!,"TOTAL",?10,$J($FN(DGQRTTM,","),10),?22,$J($FN(DGQRTTF,","),10),?36,$J($FN(DGQRTTM+DGQRTTF,","),10)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !!,"FISCAL YEAR OVERALL SUMMARY:",!?15,$J("MALE",10),?27,$J("FEMALE",10),?41,$J("TOTAL",10)
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !,DGYR," QUARTER ",DGQRT,?15,$J($FN(DGMM,","),10),?27,$J($FN(DGMF,","),10),?41,$J($FN(DGMM+DGMF,","),10)
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,DGDASH2,!!,"TOTAL PATIENTS REGISTERED FOR THE YEAR: ",?41,$J($FN(DGYRTM+DGYRTF,","),10)
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+34
Function Call: READ
  • Formatting: !!?8
  • Prompt: "End of the Report...Press Enter to Continue"
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !!,DGYR," QUARTER ",$$GETQUART(DGMTH),!
  • Line Location: PRINT2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: $J(" ",80-$L(DGX)\2),DGX
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$J(" ",80-$L(DGX)\2),DGX
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$J(" ",80-$L(DGHDRDT)\2),DGHDRDT
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$J(" ",80-$L(DGX)\2),DGX
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?68,"Page: "_PAGE
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: FRMYR+1
Function Call: WRITE
  • Prompt: !!,"There is no record of patch DG*5.3*977 being installed!",!!
  • Line Location: FRMYR+2
Routine Call
  • %ZIS
  • Line Location:
    • SELFYQ+20
Routine Call
  • %ZIS
  • Line Location:
    • SELFYQ+25
Routine Call
  • DIR
  • Line Location:
    • SELFYQ+2
    • SELFYQ+9
    • SELFYQ+26
    • PRINT+34
    • CHKPGHDR+3
    • FRMYR+6
    • TOYR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGPP(33.1 - [#33.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+10
^DD(2 HDR+4
^DGPP(33.1 - [#33.1] DQ1+3, DQ1+5, DQ1+6
^TMP("DGPPRP5" SELFYQ+12

Label References

Name Line Occurrences
$$CHKPGHDR PRINT+11, PRINT+20, PRINT+23, PRINT+27, PRINT+32, PRINT2+1
$$FMYR SETPER+11
$$FY FRMYR+4, FRMYR+5
$$GETFISC SELFY+1
$$GETMTH SELFYQ+10
$$GETMTHS WHICHMTH+3
$$GETMTHSN INITTEMP+4
$$GETQM SETPER+12
$$GETQUART DQ1+4, PRINT2+3, INITTEMP+7
$$WHICHMTH HDR+8
DQ1 DQ+4
HDR PRINT+9, CHKPGHDR+5
OUT DQ+5
PRINT DQ+5
PRINT2 PRINT+13
SETPER SELFYQ+4, SELFYQ+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+2~
%ZIS EN+2~, SELFYQ+20*
%ZIS("B" SELFYQ+20*
D GETMTH~, GETMTH+1
DATE FY~, FY+2, FY+3, FY+4
DFN EN+1~, DQ1+7*, DQ1+8
DGCAT EN+1~, DQ1+5*, DQ1+6, PRINT+1~
DGCATL PRINT+1~
DGDASH PRINT+1~, PRINT+3*, PRINT+21, HDR+4*, HDR+13
DGDASH2 PRINT+1~, PRINT+3*, PRINT+33
DGDEFDA GETFISC+1~
DGDEFDT EN+1~
DGDEFFY GETFISC+1~, FRMYR+5*, FRMYR+6, TOYR+2
DGDIV EN+1~
DGDT EN+1~, DQ1+1~, DQ1+2*, DQ1+3*, DQ1+4, DQ1+5, DQ1+6
DGDT1 SELFYQ+15*, SELFYQ+16, SELFYQ+17, SELFYQ+18, DQ+1~, DQ+3*, DQ+4, DQ1+2, HDR+1~, HDR+5*
, HDR+6
DGDT2 SELFYQ+16*, SELFYQ+17, SELFYQ+18, DQ+1~, DQ+4*, DQ1+3, HDR+1~, HDR+5*, HDR+6
DGDTDEF EN+1~, FRMYR+3*, FRMYR+4
DGDTF EN+1~
DGDTFRM GETFISC+1~, FRMYR+8*, TOYR+2, TOYR+4
DGDTT EN+1~
DGDTTO GETFISC+1~, TOYR+4*
DGDTYRS EN+1~, SELFY+1*, SELFY+2, SELFY+5, SELFYQ+4, SELFYQ+11
DGF PRINT+1~, PRINT+14*, PRINT+16, PRINT+17, PRINT+18
DGFIRST GETFISC+1~, FRMYR+4*, FRMYR+6
DGFISCFR EN+1~, SELFY+5*, INITTEMP~, INITTEMP+7
DGFISCTO EN+1~, SELFY+5*, INITTEMP~, INITTEMP+7
DGFISCYR EN+1~
DGFM EN+1~, SELFYQ+18*
DGHDR PRINT+1~, PRINT+7*, PRINT+9, HDR+14*
DGHDRDT EN+1~, HDR+6*, HDR+9
DGI EN+1~, INITTEMP+1~, INITTEMP+7*
DGINC EN+1~
DGM PRINT+1~, PRINT+14*, PRINT+15, PRINT+17, PRINT+18, PRINT+28*, PRINT+29, HDR+1~, HDR+2*
DGM1 SETPER+6~
DGM2 SETPER+6~
DGMF PRINT+1~, PRINT+28*, PRINT+29*, PRINT+30
DGMM PRINT+1~, PRINT+28*, PRINT+29*, PRINT+30
DGMTH EN+1~, SELFYQ+18*, DQ1+4*, DQ1+10, SETPER~, SETPER+12, PRINT+1~, PRINT+10*, PRINT+12, PRINT+13
PRINT+14, PRINT2+3
DGMTHC PRINT+1~, PRINT+12*, PRINT+17
DGMTHFR INITTEMP+1~, INITTEMP+2*, INITTEMP+5*, INITTEMP+6*, INITTEMP+7
DGMTHTO INITTEMP+1~, INITTEMP+2*, INITTEMP+5*, INITTEMP+6*, INITTEMP+7
DGN PRINT+1~
DGPER EN+2~, SELFYQ+4, SELFYQ+11, SETPER~
DGPER( SELFYQ+14, SELFYQ+15, SELFYQ+16, SELFYQ+17, DQ+2, DQ+3, DQ+4, SETPER+13*, HDR+5
DGQ SETPER+6~, SETPER+10*, SETPER+11, SETPER+12, SETPER+13
DGQRT EN+2~, SELFYQ+17*, SELFYQ+18, DQ1+4*, DQ1+10, SETPER~, SETPER+7, PRINT+1~, PRINT+8*, PRINT+10
PRINT+14, PRINT+26*, PRINT+28, PRINT+29, PRINT+30
DGQRT1 SETPER+6~, SETPER+7*, SETPER+10
DGQRT2 SETPER+6~, SETPER+7*, SETPER+10
DGQRTTF PRINT+1~, PRINT+8*, PRINT+16*, PRINT+21
DGQRTTM PRINT+1~, PRINT+8*, PRINT+15*, PRINT+21
DGQSEL DQ+1~
DGSELM SELFYQ+4*, SELFYQ+10*, HDR+8, WHICHMTH~, WHICHMTH+2, WHICHMTH+4, INITTEMP~, INITTEMP+5, INITTEMP+6
DGSELMN EN+2~, SELFYQ+10*
DGSELQ EN+2~, SELFYQ+4*, SELFYQ+5, SELFYQ+6, SELFYQ+11, PRINT+13, HDR+8, WHICHMTH~, WHICHMTH+3, INITTEMP~
, INITTEMP+2, INITTEMP+3, INITTEMP+4, GETMTHS~, GETMTHS+2, GETMTHSN~, GETMTHSN+2
DGSEX EN+2~, DQ1+8*, DQ1+10, INITTEMP+1~, INITTEMP+7*
DGTEMP EN+2~, SELFYQ+12*, SELFYQ+18, DQ1+9, DQ1+10, PRINT+4, PRINT+6, PRINT+8, PRINT+10, PRINT+14
PRINT+26, PRINT+28, PRINT+29, HDR+2, INITTEMP+7, OUT+2
DGTF EN+2~, PRINT+6*, PRINT+16*
DGTM PRINT+1~, PRINT+6*, PRINT+15*
DGTOT PRINT+2~, PRINT+3*, PRINT+15*, PRINT+16*, PRINT+35
DGTTF PRINT+1~
DGX EN+2~, SELFYQ+6*, SELFYQ+7, SELFYQ+10*, SETPER+6~, SETPER+12*, SETPER+13, PRINT+2~, HDR+4*, HDR+7*
, HDR+8*, HDR+10*, WHICHMTH+1~, WHICHMTH+3*, WHICHMTH+4, INITTEMP+1~, INITTEMP+4*, INITTEMP+5, INITTEMP+6, GETMTHS+1*
, GETMTHS+2, GETMTHSN+1*, GETMTHSN+2
DGY EN+2~, SETPER+6~, SETPER+8*, SETPER+11, SETPER+12, SETPER+13
DGY1 SETPER+6~, SETPER+11*, SETPER+13
DGYR SELFYQ+14*, SELFYQ+15, SELFYQ+16, SELFYQ+17, SELFYQ+18, DQ+1~, DQ+2*, DQ+3, DQ+4, DQ1+10
PRINT+2~, PRINT+6*, PRINT+8, PRINT+10, PRINT+14, PRINT+26, PRINT+28, PRINT+29, PRINT+30, PRINT2+3
, HDR+2, HDR+5, INITTEMP+1~, INITTEMP+7*
DGYRS SETPER~, SETPER+8
DGYRTF PRINT+1~, PRINT+7*, PRINT+16*, PRINT+33
DGYRTM PRINT+1~, PRINT+7*, PRINT+15*, PRINT+33
DIR SELFYQ+1!, SELFYQ+7!, SELFYQ+26!, PRINT+34!, CHKPGHDR+3!, FRMYR+6!, TOYR+2!
DIR("A" SELFYQ+2*, SELFYQ+8*, FRMYR+6*, TOYR+2*
DIR("B" SELFYQ+2*, SELFYQ+8*, FRMYR+6*, TOYR+2*
DIR(0 SELFYQ+1*, SELFYQ+7*, SELFYQ+26*, PRINT+34*, CHKPGHDR+3*, FRMYR+6*, TOYR+2*
DIRUT SELFYQ+3, SELFYQ+9, CHKPGHDR+4, GETFISC+1~, FRMYR+7, TOYR+3
DIRYT CHKPGHDR+1~
DT HDR+10, FRMYR+5
DTIME PRINT+36
DTOUT PRINT+34, GETFISC+1~
>> DUOUT PRINT+34
EN3312 DQ+1~
EXIT EN+2~, SELFYQ+4*, SELFYQ+5, SELFYQ+9*, PRINT+2~, PRINT+5*, PRINT+6, PRINT+10, PRINT+11*, PRINT+13
PRINT+19, PRINT+20*, PRINT+22, PRINT+23*, PRINT+26*, PRINT+27*, PRINT+32*, PRINT+34*, PRINT+35, PRINT+36
PRINT2+1*, PRINT2+2, CHKPGHDR+1~, CHKPGHDR+2*, CHKPGHDR+3, CHKPGHDR+4*, CHKPGHDR+6
FY FY+1~, FY+2*, FY+4
IEN331 DQ1+1~, DQ1+6*, DQ1+7
INHIB CHKPGHDR~, CHKPGHDR+2*, CHKPGHDR+5, HDR~, HDR+3*, HDR+13
IO PRINT+34, CHKPGHDR+3
IO("Q" SELFYQ+20!, SELFYQ+22
>> IO(0 PRINT+34, CHKPGHDR+3
IOF PRINT+36, HDR+7
IOM PRINT+34
IOP SELFYQ+20!
IOSL CHKPGHDR+3
IOST PRINT+34, PRINT+36, CHKPGHDR+3
LINES CHKPGHDR~, CHKPGHDR+3
MTH GETQM~, GETQM+2, GETQM+4, FY+1~, FY+3*, GETQUART~, GETQUART+1, GETMTHQ~, GETMTHQ+1
OFFSET CHKPGHDR~, CHKPGHDR+2*, CHKPGHDR+5, HDR~, HDR+3*, HDR+13
OUT GETFISC+1~, FRMYR+3*, TOYR+4*, TOYR+5
PAGE EN+2~, SELFY+5*, HDR+11*, HDR+12
POP EN+2~, SELFYQ+20*, SELFYQ+21
PROMPT GETFISC~
QRT GETQM~, GETQM+2, GETQM+3, FY+1~, FY+3*, FY+4
QRT1 GETQM+1~, GETQM+3*, GETQM+4*, GETQM+5*, GETQM+7*, GETQM+8
U SELFY+5, GETQM+5, GETQM+7, SETPER+8, SETPER+13, HDR+4, TOYR+4
X EN+2~, PRINT+36*
Y SELFYQ+4, SELFYQ+10, SELFYQ+11, GETQM+1~, PRINT+2~, HDR+10*, GETFISC+1~, FRMYR+8, TOYR+4
YR FMYR~, FMYR+1, GETQM~, GETQM+5, FY+1~, FY+2*
ZTDESC EN+2~, SELFYQ+23*
ZTRTN EN+2~, SELFYQ+23*
ZTSAVE EN+2~
ZTSAVE("DGDTFRM" SELFYQ+24*
ZTSAVE("DGDTFRMT" SELFYQ+24*
ZTSAVE("DGDTTO" SELFYQ+24*
ZTSAVE("DGRTYP" SELFYQ+24*
ZTSAVE("ZTREQ" SELFYQ+24*
ZTSK EN+2~, SELFYQ+26
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All