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: DGPPRP4

Package: Registration

Routine: DGPPRP4


Information

DGPPRP4 ;LIB/MKN - PRESUMPTIVE PSYCHOSIS GENDER REPORT ;08/15/2019

Source Information

Source file <DGPPRP4.m>

Call Graph

Call Graph

Call Graph Total: 7

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

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. GENDER  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from Menu Option: PRESUMPTIVE PSYCHOSIS GENDER REPORT
SELDATES ;
DQ ;
PRINT
SET
OUT

External References

Name Field # of Occurrence
^%ZIS SELDATES+6
HOME^%ZIS SELDATES+11
^%ZISC OUT+1
^%ZTLOAD SELDATES+11
$$DTFRMTO^DGPPRP1 SELDATES+2
$$GETDEFD^DGPPRP1 SELDATES+1
$$GET1^DIQ DQ+5
GETS^DIQ SET+2
^DIR SELDATES+12
$$FMADD^XLFDT DQ+1
$$FMTE^XLFDT PRINT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no record of patch DG*5.3*977 being installed!",!!
  • Line Location: SELDATES+1
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: SELDATES+12
Function Call: READ
  • Formatting: !!?8
  • Prompt: "End of the Report...Press Enter to Continue"
  • Variable: X
  • Timeout: DTIME
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: $J(" ",80-$L(DGX)\2),DGX
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,$J(" ",80-$L(DGHDRDT)\2),DGHDRDT,!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: $J(" ",80-$L(DGX)\2),DGX
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!,DGDASH
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"TOTAL "_$S(DGSEX="F":"FEMALES",1:"MALES")_" REGISTERED UNDER PRESUMPTIVE PSYCHOSIS AUTHORITY",?66,": ",$J($FN(+DGN,","),7)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,DGDASH,!!,"TOTAL PATIENTS REGISTERED UNDER PRESUMPTIVE PSYCHOSIS AUTHORITY",?66,": ",$J($FN(DGTOT,","),7),!
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,DGDASH,!!,"PERCENTAGE OF FEMALE",?21,": ",$S($G(DGTOT("F")):$J($FN($G(DGTOT("F"))*100/DGTOT,",",2),7),1:$J(0,7)),"%"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,"PERCENTAGE OF MALE",?21,": ",$S($G(DGTOT("M")):$J($FN($G(DGTOT("M"))*100/DGTOT,",",2),7),1:$J(0,7)),"%"
  • Line Location: PRINT+13
Routine Call
  • %ZIS
  • Line Location:
    • SELDATES+6
Routine Call
  • %ZIS
  • Line Location:
    • SELDATES+11
Routine Call
  • DIR
  • Line Location:
    • SELDATES+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+6
^DD(2 PRINT+3
^DGPP(33.1 - [#33.1] DQ+2, DQ+3, DQ+4, DQ+5
^TMP("DGPPRP4" SELDATES+4

Label References

Name Line Occurrences
OUT DQ+7
PRINT DQ+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+1~, SELDATES+6*
%ZIS("B" SELDATES+6*
DFN EN+1~, DQ+5*, SET+2, SET+3
DFNS SET+1~, SET+2*, SET+3
DGCAT EN+1~, DQ+3*, DQ+4, PRINT+1~, SET+3
DGCATL PRINT+1~
DGDASH PRINT+1~, PRINT+2*, PRINT+7, PRINT+11, PRINT+12
DGDIV EN+1~, SET+3
DGDT EN+1~, SELDATES+2*, SELDATES+3, DQ+1*, DQ+2*, DQ+3, DQ+4, SET+3
DGDTDEF EN+1~, SELDATES+1*
DGDTF EN+1~, SELDATES+3*, DQ+1, PRINT+4
DGDTT EN+1~, SELDATES+3*, DQ+2, PRINT+4
DGHDRDT EN+1~, PRINT+4*, PRINT+6
DGI EN+1~, SET+3
DGN PRINT+1~, PRINT+9*, PRINT+10
DGOUT SET+1~
DGOUT(2 SET+3
DGSEX EN+1~, DQ+5*, DQ+6, PRINT+8*, PRINT+9, PRINT+10
DGSTD EN+1~, SET+3
DGTEMP EN+1~, SELDATES+4*, DQ+6, PRINT+8, PRINT+9, SET+3, OUT+2
DGTOT PRINT+1~, PRINT+8*, PRINT+9*, PRINT+11, PRINT+12, PRINT+13
DGTOT( PRINT+9*
DGTOT("F" PRINT+12
DGTOT("M" PRINT+13
DGX PRINT+1~, PRINT+3*, PRINT+5*, PRINT+6*
DGY EN+1~
DIR SELDATES+12!
DIR(0 SELDATES+12*
DT PRINT+6
DTIME DQ+8
IEN3312 EN+1~, DQ+4*, DQ+5
IO("Q" SELDATES+6!, SELDATES+8
IOF DQ+8, PRINT+5
IOP SELDATES+6!
IOST DQ+8
POP EN+1~, SELDATES+6*, SELDATES+7
U SELDATES+3, DQ+5, PRINT+3, SET+3
X EN+1~, DQ+8*
Y PRINT+1~, PRINT+6*
ZTDESC EN+1~, SELDATES+9*
ZTRTN EN+1~, SELDATES+9*
ZTSAVE EN+1~
ZTSAVE("DGDTFRM" SELDATES+10*
ZTSAVE("DGDTFRMT" SELDATES+10*
ZTSAVE("DGDTTO" SELDATES+10*
ZTSAVE("DGRTYP" SELDATES+10*
ZTSAVE("ZTREQ" SELDATES+10*
ZTSK EN+1~, SELDATES+12
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