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

Package: Registration

Routine: DGPPRP1


Information

DGPPRP1 ;LIB/MKN - PRESUMPTIVE PSYCHOSIS STATUS REPORT;08/01/2019

Source Information

Source file <DGPPRP1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from Menu Option: PRESUMPTIVE PSYCHOSIS STATUS REPORT
ASKDIV ;Select Division
SELCAT ;
SELDATES ;
DQ ;
PRINT ;Print results by Division/PP Category/Treatment Date/Patient Name
PRINT2 ;
HDR ; Print page header
SET(IENDFN,DGDT,FD,TD,VAUTD) ;
SELDIV(DGDIVSEL) ;prompt for DIVISION
CHKTREAT(RET,DFN,DGDTF,DGDTT,ARRDIV) ;
CHKTRSET ;
DTFRMTO(PROMPT) ;Get from and to dates
FRMDT ;
TODT ;
SELECT(PROMPT,SET) ; prompts for a report type
GETDEFD() ;
OUT ; KILL RETURN ARRAY QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is no record of patch DG*5.3*977 being installed!",!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"PRESUMPTIVE PSYCHOSIS STATUS REPORT"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Presumptive Psychosis Category not found in Patient file"
  • Line Location: SELCAT+2
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+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: !!?10," << None found >> ",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+5
Function Call: WRITE
  • Prompt: ?28,DGCATL(DGCAT),?57,$$FMTE^XLFDT(DGDT\1)
  • Line Location: PRINT2+9
Function Call: WRITE
  • Prompt: $J(" ",80-$L(DGX)/2),DGX
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$J(" ",80-$L(DGHDRDT)/2),DGHDRDT
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$J(" ",80-$L(DGX)/2),DGX
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$J(" ",80-$L(DGDTP)/2-1),DGDTP
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?68,"Page: ",PAGE,!,DASH
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"PID",?28,"PRESUMPTIVE PSYCHOSIS CAT.",?57,"STATUS DATE"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELDIV+2
Function Call: WRITE
  • Prompt: !!,*7,"***WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP",!
  • Line Location: SELDIV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FRMDT+4
Function Call: WRITE
  • Prompt: !!,"'From' date may not be earlier than "_$$FMTE^XLFDT(DGDTDEF,"5PZ")
  • Line Location: FRMDT+6
Function Call: WRITE
  • Prompt: !,"Future dates are not allowed, please re-enter",!
  • Line Location: FRMDT+7
Function Call: WRITE
  • Prompt: !!,"'To' date may not be earlier than 'From' date"
  • Line Location: TODT+4
Function Call: WRITE
  • Prompt: !,"Future dates are not allowed, please re-enter",!
  • Line Location: TODT+5

FileMan Files Accessed Via FileMan Db Call

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