Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGPP(33.1 - [#33.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call