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

Package: Registration

Routine: DGPPRP3


Information

DGPPRP3 ;LIB/MKN - PRESUMPTIVE PSYCHOSIS PATIENT PROFILES;08/02/2019

Source Information

Source file <DGPPRP3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from Menu Option: PRESUMPTIVE PSYCHOSIS PATIENT PROFILE REPORT
ASKDIV ;Select Division
DQ ;
DQ1 ;
SET ;
PRINT ;Print out results
PRINT2 ;
HDR ; Print page header
DTFRMTO(PROMPT)
INDT ;
HELP(DGSEL) ;
OUT ; KILL RETURN ARRAY QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"PRESUMPTIVE PSYCHOSIS PATIENT PROFILE REPORT"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,*7,!,"THIS REPORT REQUIRES 132 COLUMN OUTPUT"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"There is no record of patch DG*5.3*977 being installed!",!!
  • Line Location: ASKDIV+3
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: ASKDIV+13
Function Call: READ
  • Formatting: !!?8
  • Prompt: "End of the Report...Press Enter to Continue"
  • Variable: X
  • Timeout: DTIME
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !!?10," << None found >> ",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Function Call: READ
  • Formatting: !!?8
  • Prompt: "End of the Report...Press Enter to Continue"
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+1
Function Call: WRITE
  • Prompt: !,$E($P(DGX,U),1,20),?22,$P(DGX,U,2),?29,$$FMTE^XLFDT($P(DGX,U,3)),?43,$E($P(DGX,U,4),1,14),?58,$E($P(DGX,U,5),1,20),?81,$E($P(DGX,U,6),1,19),?103,$E($P(DGX,U,7),1,29)
  • Line Location: PRINT2+7
Function Call: WRITE
  • Prompt: DGX,?120,"Page: ",PAGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,DGX
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,DGX
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?104,"Date Printed: ",$$FMTE^XLFDT($P($$NOW^XLFDT(),"."))
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,DGDASH,!,"PATIENT NAME",?22,"PID",?29," SERVICE",?43,"DISCHARGE",?58,"PERIOD OF SERVICE",?81,"PRIMARY ELIGIBILITY"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?103,"ENROLLMENT CAT",!?27,"SEPARATION DATE",?43," TYPE",!,DGDASH
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: INDT+4
Function Call: WRITE
  • Prompt: !!,"Future dates are not allowed, please re-enter"
  • Line Location: INDT+6
Function Call: WRITE
  • Prompt: !!,"No Date selected, quitting. ",!!
  • Line Location: INDT+10
Function Call: WRITE
  • Prompt: !!,"This option generates a report that prints a list of all patients treated"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"under Presumptive Psychosis authority and who had an Outpatient Encounter"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"with the STATUS=CHECKED OUT for Clinic(s) associated with the selected"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"Division(s) within the user specified date range."
  • Line Location: HELP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
2.3216 GETS^DIQ
^DGEN(27.11 - [#27.11] GET1^DIQ
^DGEN(27.15 - [#27.15] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call