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

Package: Registration

Routine: DGPPRP3


Information

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

Source Information

Source file <DGPPRP3.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
VA FileMan 3 ^%DT  ($$GET1,GETS)^DIQ  ^DIR  
Registration 1 ($$DTFRMTO,$$GETDEFD,$$SELDIV,CHKTREAT)^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: 2

Package Total Caller Graph
Registration 2 DG PRESUMP. PSYCH. PAT. PROF  DGPPRP1  

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

External References

Name Field # of Occurrence
^%DT INDT+4, INDT+8
^%ZIS ASKDIV+8
HOME^%ZIS ASKDIV+12
^%ZISC OUT+1
^%ZTLOAD ASKDIV+12
$$DTFRMTO^DGPPRP1 ASKDIV+4
$$GETDEFD^DGPPRP1 ASKDIV+3
$$SELDIV^DGPPRP1 ASKDIV+1
CHKTREAT^DGPPRP1 DQ+5
$$GET1^DIQ SET+11, HDR+5
GETS^DIQ SET+4, SET+7
^DIR ASKDIV+13, PRINT2+1
$$FMADD^XLFDT DQ+1
$$FMTE^XLFDT SET+5, PRINT2+7, HDR+6, HDR+7
$$NOW^XLFDT HDR+7

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
Routine Call
  • DIR
  • Line Location:
    • ASKDIV+13
    • PRINT2+1
Routine Call
  • %ZIS
  • Line Location:
    • ASKDIV+8
Routine Call
  • %ZIS
  • Line Location:
    • ASKDIV+12

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGEN(27.11 - [#27.11] SET+10
^DGPP(33.1 - [#33.1] DQ+1, DQ+2, DQ+3, DQ+4
^DPT - [#2] SET+3
^TMP("DGPPRP3" EN+3

Label References

Name Line Occurrences
DQ1 DQ+6
HDR PRINT2+3, PRINT2+6
HELP EN+9
INDT INDT+6
OUT DQ+8, PRINT+2
PRINT DQ+8
PRINT2 PRINT+6
SET DQ1+3, DQ1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DTFRMTO+1~, INDT+3*, INDT+4!, INDT+6!, INDT+7*, INDT+8!
%DT("A" INDT+3*, INDT+7*
%DT("B" INDT+7*
%ZIS EN+2~, ASKDIV+8*
%ZIS("B" ASKDIV+8*
DFN EN+1~, DQ+4*, DQ+5, SET+2, SET+3, SET+8, SET+9, SET+10, SET+12, PRINT+6*
DFNS SET+1~, SET+2*, SET+4, SET+5, SET+7, SET+8, SET+9
DGCAT EN+1~, DQ+2*, DQ+3
DGDASH EN+1~, DQ+7*, HDR+8, HDR+9
DGDISCH SET+1~
DGDISCTY SET+1~, SET+3*, SET+6*, SET+8
DGDIV EN+1~, DQ+6*, DQ1+2, DQ1+4, SET+8, SET+9, SET+12, PRINT+4*, PRINT+6, HDR+5
DGDIVSEL EN+1~, ASKDIV+1, DQ+5, DQ1+3
DGDIVSEL( DQ1+4
DGDT EN+1~, DQ+1*, DQ+2, DQ+3
DGDT1 DQ1+1~, DQ1+2*
DGDTDEF EN+1~, ASKDIV+3*
DGDTF EN+1~
DGDTFRM EN+1~, INDT+7*, INDT+11, INDT+13
DGDTFSEL EN+1~, ASKDIV+6*, DQ+1, DQ+5, HDR+6
DGDTSEL EN+1~, ASKDIV+4*, ASKDIV+5, ASKDIV+6
DGDTT EN+1~
DGDTTO EN+1~, INDT+11*, INDT+13
DGDTTSEL EN+1~, ASKDIV+6*, DQ+1, DQ+5, HDR+6
DGENCAT SET+1~, SET+10*, SET+11*, SET+12
DGFAC SET+1~
DGHDRYN PRINT+1~, PRINT+3*, PRINT+5*, PRINT2+1, PRINT2+3*, PRINT2+6*
DGI PRINT+1~
DGIEN2711 SET+1~, SET+10*, SET+11
DGIEN2715 SET+1~, SET+11*
DGN SET+1~
DGOUT SET+1~, SET+4!
DGOUT( SET+5, SET+6
DGOUTP SET+1~
DGOUTP(2 SET+8, SET+9
DGPATNA SET+1~, PRINT+1~
DGPE SET+1~
DGRES EN+2~
DGRET EN+1~, DQ+5!
DGRET( DQ+6, DQ1+2
DGRTYP EN+1~
DGSAVIOM EN+2~
DGSEL HELP~, HELP+1
DGSELDIV EN+2~
DGSERVDT SET+1~, SET+3*, SET+5*, SET+8
DGSET EN+2~
DGTEMP EN+2~, EN+3*, SET+8, SET+9, SET+12, PRINT+2, PRINT+4, PRINT+6, OUT+2
DGX PRINT+1~, PRINT+6*, PRINT2+7, HDR+1~, HDR+3*, HDR+4, HDR+5*, HDR+6*
DGY PRINT+1~
DGYN EN+2~
DIR ASKDIV+13!, PRINT2+1!
DIR(0 ASKDIV+13*, PRINT2+1*, INDT+2*
DIRUT DTFRMTO+1~
DT INDT+2, INDT+6
DTIME DQ+9, PRINT+9
DTOUT PRINT2+2, DTFRMTO+1~
DUOUT PRINT2+2, DTFRMTO+1~
EXIT PRINT+1~, PRINT+3*, PRINT+4, PRINT+6, PRINT+9, PRINT2+2*, PRINT2+5
IEN3216 SET+1~, SET+3*, SET+4, SET+5
IENDFN EN+2~, DQ+3*, DQ+4
IENS3216 SET+1~, SET+5*, SET+6
IO PRINT2+1
IO("Q" ASKDIV+8!, ASKDIV+9
>> IO(0 PRINT2+1
IOF EN+6, DQ+9, PRINT+2, PRINT+9, PRINT2+3
IOP ASKDIV+8!
IOSL PRINT2+1
IOST DQ+9, PRINT+9, PRINT2+1
OUT DTFRMTO+1~, INDT+1*, INDT+5, INDT+10, INDT+11*, INDT+13*, INDT+14
PAGE PRINT+1~, PRINT+3*, PRINT2+1, HDR+2*, HDR+4
POP EN+2~, ASKDIV+8*
PROMPT DTFRMTO~
STATUS DTFRMTO+1~
STDT DTFRMTO+1~
U ASKDIV+6, DQ+4, SET+8, SET+9, PRINT2+7, INDT+11, INDT+13
VAUTD EN+2~
X DQ+9*, PRINT+9*, DTFRMTO+1~
Y EN+2~, DTFRMTO+1~, INDT+5, INDT+6!, INDT+7, INDT+10, INDT+11
ZTDESC EN+2~, ASKDIV+10*
ZTRTN EN+2~, ASKDIV+10*
ZTSAVE EN+2~
ZTSAVE("DGDTFRM" ASKDIV+11*
ZTSAVE("DGDTFRMT" ASKDIV+11*
ZTSAVE("DGDTTO" ASKDIV+11*
ZTSAVE("DGRTYP" ASKDIV+11*
ZTSAVE("ZTREQ" ASKDIV+11*
ZTSK EN+2~, ASKDIV+13
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