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

Package: Registration

Routine: DGPPRP4


Information

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

Source Information

Source file <DGPPRP4.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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