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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPPDRPT

Package: Registration

Routine: DGPPDRPT


Information

DGPPDRPT ;SLC/RM - PRESUMPTIVE PSYCHOSIS RECONCILIATION REPORT ; Dec 21, 2020@10:00 am

Source Information

Source file <DGPPDRPT.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Registration 12 $$FINDCUR^DGENA  (CHECKIB,CHECKPTF,CHECKRX,CHKTREAT,IBSTATUS)^DGFSMOUT  DISP^DGIBDSP  ($$MTS,DIS)^DGMTU  ($$ANSWER,ASKCONT,EXIT)^DGOTHFSM  ($$PPINFO,$$PPWRKARN)^DGPPAPI  (ENCHDR,ENCTRCOL,LINE,PAUSE,PRNTENC,PTHDR)^DGPPDRP1  PPRX^DGPPDRX  
($$DATEFROM,$$DATETO)^DGPPRRPT  $$RDIS^DGRPDB  (2,KVAR)^VADPT  $$SITE^VASITE  
VA FileMan 5 ^DIC  WAIT^DICD  RECALL^DILFD  $$GET1^DIQ  ^DIR  
Kernel 3 HOME^%ZIS  $$FMTE^XLFDT  EN^XUTMDEVQ  
Integrated Billing 1 $$INSUR^IBBAPI  

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. PAT. DETAIL  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
PROMPTPT ;prompt user to enter patient
SELPAT(DGSORT) ;prompt for veteran's name
RPTTYPE() ;prompt for type of data user wish to see
START ;starting point to generate report
CLEAN ;clean up data
GETDATA ;Extract records for a patient in files #409.68, #45, #405, #350, #399, and file #52
NOREC ;diplay verbiage if no recor found
YESNO(QUESTION) ;prompt user if still want to display the eligibility portion though no EOC or Rx found
CURRENT(DFN,PTNAME) ;display patient current and verified PE eligibility
MTS(DFN) ;display patient's Means Test Status information
RTDDIS(DFN) ;display patient's rated disabilities information
INS(DFN) ;display patient's health insurance information
PPENCTR(DFN,DGSORT) ;display patient's checked out Encounters and inpatient data
EOC ;remove any RX record and extract the IB status for the oupatient and inpatient record(s)
NOREC1 ;display no record verbiage back to the screen of the user

External References

Name Field # of Occurrence
HOME^%ZIS MAIN+46
$$FINDCUR^DGENA CURRENT+11
CHECKIB^DGFSMOUT GETDATA+3
CHECKPTF^DGFSMOUT GETDATA+2
CHECKRX^DGFSMOUT GETDATA+4
CHKTREAT^DGFSMOUT GETDATA+1
IBSTATUS^DGFSMOUT EOC+22
DISP^DGIBDSP INS+7
$$MTS^DGMTU MTS+1
DIS^DGMTU MTS+3
$$ANSWER^DGOTHFSM RPTTYPE+6
ASKCONT^DGOTHFSM START+13, START+36
EXIT^DGOTHFSM CLEAN+3
$$PPINFO^DGPPAPI PROMPTPT+9
$$PPWRKARN^DGPPAPI PROMPTPT+8
ENCHDR^DGPPDRP1 PPENCTR+4
ENCTRCOL^DGPPDRP1 PPENCTR+4
LINE^DGPPDRP1 NOREC+4, CURRENT+5, CURRENT+14, RTDDIS+15, INS+3, INS+12, PPENCTR+3, PPENCTR+4, EOC+34, NOREC1+3
PAUSE^DGPPDRP1 RTDDIS+15, INS+3, INS+12, PPENCTR+3
PRNTENC^DGPPDRP1 EOC+26
PTHDR^DGPPDRP1 NOREC+3, CURRENT+4, RTDDIS+15, INS+3, INS+12, PPENCTR+3
PPRX^DGPPDRX START+33
$$DATEFROM^DGPPRRPT MAIN+26
$$DATETO^DGPPRRPT MAIN+28
$$RDIS^DGRPDB RTDDIS+5
^DIC SELPAT+7
WAIT^DICD START+1
RECALL^DILFD MAIN+17
$$GET1^DIQ START+6, CURRENT+7, CURRENT+12
^DIR YESNO+7
$$INSUR^IBBAPI INS+5
2^VADPT START+17, NOREC+2, CURRENT+3
KVAR^VADPT CLEAN+1
$$SITE^VASITE START+2
$$FMTE^XLFDT NOREC+5, CURRENT+7, NOREC1+1
EN^XUTMDEVQ MAIN+45

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: "PRESUMPTIVE PSYCHOSIS PATIENT DETAIL REPORT",!!
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: "This option generates a report of an individual patient treated under"
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !,"Presumptive Psychosis authority within the user specified date range."
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !!,"*** THIS REPORT REQUIRES 132 COLUMN OUTPUT TO PRINT CORRECTLY ***"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !!,"At the DEVICE: prompt, please accept the default value of '0;132;'"
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !,"This is to deliberately avoid undesired wrapping problems of the data.",!!
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !!,"Please specify a date range for Episodes of Care and Released Prescription:"
  • Line Location: MAIN+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAIN+39
Function Call: WRITE
  • Prompt: !!,"WARNING: ** The patient you entered is not a Presumptive Psychosis patient."
  • Line Location: PROMPTPT+12
Function Call: WRITE
  • Prompt: !," Please enter another patient.",!!
  • Line Location: PROMPTPT+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !
  • Line Location: START+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+36
Function Call: WRITE
  • Prompt: !!!,">> No Episode of Care and Released Prescription found FROM "_$$FMTE^XLFDT(DGSORT("DGBEG")\1,"5ZF")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND")\1,"5ZF")
  • Line Location: NOREC+5
Function Call: WRITE
  • Prompt: !," You may repeat the query with a different date range."
  • Line Location: NOREC+6
Function Call: WRITE
  • Prompt: !," Or run the Presumptive Psychosis Reconciliation Report option to"
  • Line Location: NOREC+7
Function Call: WRITE
  • Prompt: !," identify Presumptive Psychosis patients with Episode(s) of Care or"
  • Line Location: NOREC+8
Function Call: WRITE
  • Prompt: !," Released Prescription."
  • Line Location: NOREC+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: NOREC+10
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT($$GET1^DIQ(2,DFN_",",.3612,"I"),"5Z")
  • Line Location: CURRENT+7
Function Call: WRITE
  • Prompt: !?28
  • Condition for execution: I1>1
  • Line Location: CURRENT+8
Function Call: WRITE
  • Prompt: $P(VAEL(1,I),"^",2)
  • Line Location: CURRENT+8
Function Call: WRITE
  • Prompt: "NO ADDITIONAL ELIGIBILITIES IDENTIFIED"
  • Line Location: CURRENT+9
Function Call: WRITE
  • Prompt: !,"Enrollment Priority : ",$S(DGENRIEN="":"NOT ENROLLED",((DGENRPRI="")&(DGENRGRP="")):"NONE STATED",1:DGENRPRI_DGENRGRP)
  • Line Location: CURRENT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CURRENT+14
Function Call: WRITE
  • Prompt: !,"Means Test Status : NOT IN MEANS TEST FILE"
  • Line Location: MTS+2
Function Call: WRITE
  • Prompt: !!,"Rated Disabilities: "
  • Line Location: RTDDIS+4
Function Call: WRITE
  • Prompt: "NOT A VETERAN"
  • Line Location: RTDDIS+4
Function Call: WRITE
  • Prompt: "NONE STATED"
  • Line Location: RTDDIS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RTDDIS+15
Function Call: WRITE
  • Prompt: $G(DGP1)_" - ",$E(DGP2,1,30)," ",DGP3
  • Line Location: RTDDIS+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: INS+3
Function Call: WRITE
  • Prompt: !!,"Health Insurance : "
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: $S(Z:"YES",1:"NO")
  • Line Location: INS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+12
Function Call: WRITE
  • Prompt: !!,"<< end of report >>"
  • Line Location: INS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EOC+34
Function Call: WRITE
  • Prompt: !!,"Total Number of Episode(s) of Care: ",DGTOTENC
  • Line Location: EOC+35
Function Call: WRITE
  • Prompt: !!,">> No Episode of Care found for the date range "_$$FMTE^XLFDT(DGSORT("DGBEG"),"5ZF")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5ZF")_"."
  • Line Location: NOREC1+1
Function Call: WRITE
  • Prompt: !," You may repeat the query with a different date range.",!
  • Line Location: NOREC1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NOREC1+3
Function Call: WRITE
  • Prompt: !!,"Total Number of Episode(s) of Care: ",DGTOTENC
  • Line Location: NOREC1+5
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+46
Routine Call
  • DIC
  • Line Location:
    • SELPAT+7
Routine Call
  • DIR
  • Line Location:
    • YESNO+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ,  RECALL^DILFD
^DGEN(27.11 - [#27.11] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(391 - [#391] RTDDIS+4
^DIC(31 - [#31] RTDDIS+11, RTDDIS+12, RTDDIS+13
^TMP($J MAIN+31, MAIN+32, MAIN+33, MAIN+36!, MAIN+37!, CLEAN+2!

Label References

Name Line Occurrences
$$RPTTYPE MAIN+21
$$SELPAT PROMPTPT+5
$$YESNO NOREC+11
CLEAN START+13, START+34, NOREC+14
CURRENT START+18
EOC PPENCTR+8, PPENCTR+9
GETDATA START+11
INS START+26
MTS START+21
NOREC START+12, PPENCTR+5
NOREC1 EOC+32
PPENCTR START+31
PROMPTPT MAIN+15
RTDDIS START+23

Naked Globals

Name Field # of Occurrence
^(0 RTDDIS+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS MAIN+2~, MAIN+40*, MAIN+45
%ZIS("B" MAIN+41*
ACTYP EOC+1~, EOC+10*, EOC+12*, EOC+13*, EOC+14
CHRGCNT EOC+1~, EOC+4*, EOC+10*
DFN MAIN+3~, PROMPTPT+7*, START+6, CURRENT~, CURRENT+7, CURRENT+11, MTS~, MTS+1, MTS+3, RTDDIS~
, RTDDIS+5, INS~, INS+5, PPENCTR~
DFN405 EOC+2~, EOC+18*, EOC+19*, EOC+20*, EOC+21*
DFN409 EOC+2~, EOC+18*, EOC+19*
DGARR RTDDIS+1~, RTDDIS+5
DGARR( RTDDIS+6, RTDDIS+9, RTDDIS+10, RTDDIS+14
DGASK RPTTYPE+1~, RPTTYPE+6*, RPTTYPE+7*, RPTTYPE+8*, RPTTYPE+9
DGC RTDDIS+1~, RTDDIS+6*, RTDDIS+9, RTDDIS+10, RTDDIS+14
DGDFN MAIN+3~, PROMPTPT+7*, PROMPTPT+8, PROMPTPT+9, START+18, START+21, START+23, START+26, START+31, START+33
, GETDATA+1, GETDATA+2
DGDIRA RPTTYPE+1~, RPTTYPE+2*, RPTTYPE+6
DGDIRB RPTTYPE+1~, RPTTYPE+3*, RPTTYPE+6
DGDIRH RPTTYPE+1~, RPTTYPE+4*, RPTTYPE+6
DGDIRO RPTTYPE+1~, RPTTYPE+5*, RPTTYPE+6
DGENCNT START+4~, START+5*
DGENR CURRENT+1~
DGENRGRP CURRENT+1~, CURRENT+2*, CURRENT+12*, CURRENT+13
DGENRIEN CURRENT+1~, CURRENT+2*, CURRENT+11*, CURRENT+12, CURRENT+13
DGENRPRI CURRENT+1~, CURRENT+2*, CURRENT+12*, CURRENT+13
DGMTS MAIN+2~, MTS+1*, MTS+2, INS+9
DGP1 RTDDIS+8~, RTDDIS+12*, RTDDIS+17
DGP2 RTDDIS+8~, RTDDIS+13*, RTDDIS+17
DGP3 RTDDIS+8~, RTDDIS+14*, RTDDIS+17
DGPAGE MAIN+3~, START+5*
DGPID MAIN+3~, START+6*
DGPPCAT MAIN+3~, PROMPTPT+9*, PROMPTPT+10*, PROMPTPT+11, CURRENT+10
DGPPDIV EOC+1~, EOC+7*, EOC+8, EOC+9, EOC+11, EOC+12, EOC+13, EOC+14, EOC+15, EOC+19
, EOC+20, EOC+21, EOC+24
DGPPDOS EOC+1~, EOC+6*, EOC+7, EOC+8, EOC+9, EOC+11, EOC+12, EOC+13, EOC+14, EOC+15
, EOC+19, EOC+20, EOC+21, EOC+24
DGPPDT MAIN+3~, MAIN+7*, MAIN+23, MAIN+29*
DGPPFLGRPT START+4~, START+8*
DGPPWRK MAIN+3~, PROMPTPT+8*, PROMPTPT+11
DGPPYN MAIN+3~, MAIN+16, PROMPTPT+1*, PROMPTPT+3, PROMPTPT+6*, PROMPTPT+14*
DGPTNM MAIN+2~, PROMPTPT+5*, START+18
DGPTYPE RTDDIS+1~
DGQ MAIN+2~, START+5*, START+24, START+27, START+32, START+35, RTDDIS+6, RTDDIS+15, INS+3, INS+12
, PPENCTR+3, EOC+6, EOC+7, EOC+8, EOC+9, EOC+27, EOC+28, EOC+29, EOC+30, EOC+33
, NOREC1+4
DGSORT MAIN+1~, MAIN+16, MAIN+17, PROMPTPT+5, PROMPTPT+6, PROMPTPT+7, SELPAT~, SELPAT+9*, SELPAT+11, SELPAT+12*
, START+31, START+33, PPENCTR~
DGSORT("DGBEG" GETDATA+1, GETDATA+2, GETDATA+3, NOREC+5, NOREC1+1
DGSORT("DGEND" GETDATA+1, GETDATA+2, GETDATA+3, NOREC+5, NOREC1+1
DGSORT("PPRTYPE" MAIN+23, RPTTYPE+7*, START+10, START+29, INS+11
DGSORT("SORTENCBY" PPENCTR+7*
DGSORT(0 SELPAT+13*
DGTOTENC PPENCTR+1~, PPENCTR+2*, EOC+35, NOREC1+5
DGYN START+4~, START+5*, START+13, START+30, NOREC+11*, NOREC+12
DGZERO RTDDIS+8~, RTDDIS+10*, RTDDIS+11, RTDDIS+12, RTDDIS+13
DIC SELPAT+2~, SELPAT+3*, SELPAT+7!
DIC("?PARAM" SELPAT+5*
DIC("A" SELPAT+4*
DIC(0 SELPAT+3*
DIR YESNO+1~
DIR("?" YESNO+4*, YESNO+5*, YESNO+6*
DIR("A" YESNO+3*
DIR(0 YESNO+2*
DT INS+5
DTOUT SELPAT+2~
DUOUT SELPAT+2~
DUZ MAIN+17
ENCDT EOC+1~, EOC+10*, EOC+15*, EOC+22, EOC+26
FILENO EOC+1~, EOC+8*, EOC+9, EOC+12, EOC+13, EOC+14, EOC+16, EOC+19, EOC+20, EOC+21
, EOC+24, EOC+25
HERE START+2~*
I CURRENT+8*, INS+1~, INS+8!
I1 CURRENT+1~, CURRENT+8*, INS+1~, INS+8!
I3 MAIN+3~, START+5*, RTDDIS+7*, RTDDIS+16, RTDDIS+18, INS+3
IBFILENO EOC+2~, EOC+17*, EOC+21, EOC+22
IBOTHSTAT MAIN+1~, MAIN+3~, MAIN+33*, MAIN+38, CLEAN+2
IOF MAIN+6, START+13, START+36
IOSL RTDDIS+15, INS+12
IOST START+1, START+3
NOREC START+4~, START+5*, START+13, START+30, NOREC+12*, NOREC+13*
NWBILL EOC+2~, EOC+25*, EOC+26
OLDBILL EOC+2~, EOC+5*, EOC+26*
OLDIEN EOC+1~, EOC+3*
OLDOEDT EOC+2~, EOC+5*, EOC+26*
OUTPATARY EOC+2~, EOC+36!
PPFLG PPENCTR+1~, PPENCTR+7*
PRINTRPT PPENCTR+1~, PPENCTR+7*, PPENCTR+9*, EOC+5, EOC+16, EOC+23, EOC+31
PRNTSEC EOC+2~, EOC+4*
PTNAME CURRENT~
QUESTION YESNO~, YESNO+3
RECNT EOC+1~, EOC+9*, EOC+12, EOC+13, EOC+14, EOC+19, EOC+20, EOC+21, EOC+24
RECORD MAIN+4~, MAIN+31*, MAIN+34, START+12, CLEAN+2, PPENCTR+5, EOC+6, EOC+7, EOC+8, EOC+9
, EOC+12, EOC+13, EOC+14, EOC+19, EOC+20, EOC+21, EOC+24, EOC+32
RECORD1 MAIN+5~, MAIN+32*, MAIN+35, CLEAN+2
RESULT EOC+1~
SORTENCBY MAIN+2~, MAIN+7*
STATCNTR EOC+1~
STATNUM EOC+1~, EOC+10*, EOC+15*
SUB1 EOC+2~, EOC+11*
SUB2 EOC+2~, EOC+11*
TMPDATA EOC+1~, EOC+24*, EOC+25, EOC+26!
TRM START+3~*
U PROMPTPT+10, PROMPTPT+11, CURRENT+10, RTDDIS+12, RTDDIS+13, RTDDIS+14, PPENCTR+7, EOC+12, EOC+13, EOC+19
, EOC+20, EOC+21, EOC+25
VA MAIN+3~, START+16~, NOREC+1~
VADM MAIN+3~, START+16~, NOREC+1~
VAEL MAIN+3~, START+16~, NOREC+1~
VAEL(1 CURRENT+6, CURRENT+8
VAEL(3 RTDDIS+2, RTDDIS+3
VAEL(4 RTDDIS+4
VAEL(6 RTDDIS+4
VAEL(8 CURRENT+6
VAUTD MAIN+2~, START+7*, GETDATA+1
X MAIN+44*, MAIN+45, SELPAT+2~
Y SELPAT+2~, SELPAT+9, SELPAT+12, YESNO+1~, YESNO+8
Y(0 SELPAT+11, SELPAT+13
Z INS+1~, INS+5*, INS+6, INS+8!
ZTDESC MAIN+2~
ZTQUEUED MAIN+2~
ZTREQ MAIN+2~
ZTSAVE MAIN+2~, MAIN+45
ZTSAVE("DGDFN" MAIN+43*
ZTSAVE("DGSORT(" MAIN+42*
ZTSTOP MAIN+2~
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 |  Naked Globals |  Local Variables  | All