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

Package: Registration

Routine: DGPPRRPT


Information

DGPPRRPT ;SLC/RM - PRESUMPTIVE PSYCHOSIS RECONCILIATION REPORT ; Dec 02, 2020@3:00 pm

Source Information

Source file <DGPPRRPT.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 5 (CHECKIB,CHECKPTF,CHECKRX,CHKTREAT)^DGFSMOUT  ($$PPINFO,$$PPWRKARN)^DGPPAPI  PRINTPP^DGPPRRP1  (2,KVAR)^VADPT  $$SITE^VASITE  
Kernel 4 HOME^%ZIS  ^%ZISC  $$FMTE^XLFDT  EN^XUTMDEVQ  
VA FileMan 4 COMMA^%DTC  WAIT^DICD  GETS^DIQ  ^DIR  

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

Package Total Caller Graph
Registration 4 DG PRESUMP. PSYCH. RECON RPT  DGPPDRP1  DGPPDRPT  DGPPDRX  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
DATEFROM() ;prompt for FROM Date of Service
DATETO() ;prompt for TO Date of Service
ANSWER(DGDIRA,DGDIRB,DGDIR0,DGDIRH) ;
; Input
; DGDIR0 - DIR(0) string
; DGDIRA - DIR("A") string
; DGDIRB - DIR("B") string
; DGDIRH - DIR("?") string
; Output
; Function Value - Internal value returned from ^DIR or -1 if user
; up-arrows, double up-arrows or the read times out.
HELP(DGSEL) ;provide extended DIR("?") help text.
; Input: DGSEL - prompt var for help text word selection
; Output: none
HELP1 ;
HELP2 ;
START ; compile and print report
LOOP(DGSORT,DGPPLST) ;
EOC ;Episode of care date of service
EOC1(FILE) ;capture the date of service
EOC2 ;capture the other eligibilities if there are any
EOC3 ;
EOC4 ;
RECORD ;display those records that are not linked to any IB charges
CHKDATE(DATE,BEGDT,ENDDT) ;check if dates fall within the Begin and End dates
EXIT ;
DOLLAR(X) ; Function to return a formatted dollar amount.

External References

Name Field # of Occurrence
COMMA^%DTC DOLLAR+4
HOME^%ZIS MAIN+25, EXIT+5
^%ZISC EXIT+5
CHECKIB^DGFSMOUT LOOP+36
CHECKPTF^DGFSMOUT LOOP+35
CHECKRX^DGFSMOUT LOOP+37
CHKTREAT^DGFSMOUT LOOP+34
$$PPINFO^DGPPAPI LOOP+28
$$PPWRKARN^DGPPAPI LOOP+27
PRINTPP^DGPPRRP1 START+12
WAIT^DICD START+1
GETS^DIQ LOOP+40
^DIR ANSWER+14
2^VADPT LOOP+44
KVAR^VADPT LOOP+53
$$SITE^VASITE START+2
$$FMTE^XLFDT DATEFROM+4
EN^XUTMDEVQ MAIN+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: "PRESUMPTIVE PSYCHOSIS RECONCILIATION REPORT"
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !!,"This option generates a list of patients registered under Presumptive"
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !,"Psychosis authority who have had episodes of care within the user"
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: !,"specified date range."
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !!,"Patients registered correctly using VA workaround and/or Presumptive"
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !,"Psychosis Category will only be displayed in this report."
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !!,"*** THIS REPORT REQUIRES 132 COLUMN margin width ***"
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !!,"At the DEVICE: prompt, please accept the default value of '0;132;99999'"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !,"to avoid wrapping of data."
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !!,"To include pagination, please use ';132;' for the device value.",!
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !," Enter the VERIFIED Primary Eligibility status date"
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !," of the patient."
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !," The Date you entered is not valid."
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !," The earliest date that you can enter is MARCH 14, 2013."
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !," Date prior to 03/14/2013 is not allowed since the"
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: !," Presumptive Psychosis authority was implemented on"
  • Line Location: HELP1+3
Function Call: WRITE
  • Prompt: !," 03/14/2013."
  • Line Location: HELP1+4
Function Call: WRITE
  • Prompt: !," Date cannot be a future date."
  • Line Location: HELP2+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+3
Routine Call
  • DIR
  • Line Location:
    • ANSWER+14
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+25
    • EXIT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] LOOP+25
^TMP($J START+7, START+8, START+9, LOOP+36!

Label References

Name Line Occurrences
$$ANSWER DATEFROM+7, DATETO+7
$$DATEFROM MAIN+15
$$DATETO MAIN+17
EOC LOOP+54
EOC1 EOC+14, EOC+18, EOC+22, EOC+26, EOC+49, RECORD+6
EOC2 LOOP+54
EOC3 EOC2+2
EOC4 EOC2+4
EXIT START+14
HELP1 HELP+9, HELP+13
HELP2 HELP+10, HELP+14
LOOP START+11
RECORD EOC+51

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS MAIN+2~, MAIN+20*, MAIN+24, EXIT+4!
%ZIS("B" MAIN+21*
ARY350 EOC+1~, EOC+52!
ARY350( EOC+14*
BEGDT CHKDATE~, CHKDATE+1
CNT EOC+1~, EOC+6*, EOC+9, EOC+10, EOC+12, EOC+13, EOC+15, EOC+17, EOC+19, EOC+21
, EOC+23, EOC+25, EOC+27, EOC+29, EOC+30, EOC+31, EOC+32, EOC+33, EOC+35, EOC+36
, EOC1+4, RECORD+1~, RECORD+5*, RECORD+6
CNTR EOC2+1~, EOC2+4*, EOC4+4, EOC4+8, EOC4+9, EOC4+10, EOC4+11
CPT LOOP+1~, LOOP+25*, LOOP+26*
DATA LOOP+2~, LOOP+40!, LOOP+49*, LOOP+50
DATE CHKDATE~, CHKDATE+1
DFN LOOP+2~, LOOP+44!*
DGASK DATEFROM+1~, DATEFROM+7*, DATEFROM+8, DATEFROM+9, DATETO+1~, DATETO+7*, DATETO+8, DATETO+9
DGBEGDT DATEFROM+1~, DATEFROM+2*, DATEFROM+4, DATEFROM+6, DATEFROM+8
DGDFN LOOP+1~, LOOP+25*, LOOP+27, LOOP+28, LOOP+34, LOOP+35, LOOP+40, LOOP+42, LOOP+43, LOOP+44
, LOOP+46, LOOP+47, LOOP+48, LOOP+50, EOC1+3, EOC3+1, EOC3+2, EOC3+3, EOC3+4, EOC3+5
, EOC4+3, EOC4+4, EOC4+5, EOC4+7, EOC4+8, EOC4+9, EOC4+10, EOC4+11
DGDIR0 ANSWER~, ANSWER+10
DGDIRA DATEFROM+1~, DATEFROM+3*, DATEFROM+7, DATETO+1~, DATETO+2*, DATETO+7, ANSWER~, ANSWER+11
DGDIRB DATEFROM+1~, DATEFROM+4*, DATEFROM+7, DATETO+1~, DATETO+3*, DATETO+7, ANSWER~, ANSWER+12
DGDIRH DATEFROM+1~, DATEFROM+5*, DATEFROM+7, DATETO+1~, DATETO+4*, DATETO+7, ANSWER~, ANSWER+13
DGDIRO DATEFROM+1~, DATEFROM+6*, DATEFROM+7, DATETO+1~, DATETO+6*, DATETO+7
DGDOB LOOP+1~, LOOP+45*, LOOP+49
DGDOD LOOP+2~, LOOP+46*, LOOP+49
DGDOS EOC+1~, EOC+3*, EOC+4, EOC+5, EOC+6, EOC+9, EOC+10, EOC+12, EOC+13, EOC+14
, EOC+15, EOC+17, EOC+18, EOC+19, EOC+21, EOC+22, EOC+23, EOC+25, EOC+26, EOC+27
, EOC+29, EOC+30, EOC+31, EOC+32, EOC+33, EOC+35, EOC+36, EOC+38, EOC+39, EOC+40
, EOC+42, EOC+43, EOC+44, EOC+46, EOC+47, EOC+48, EOC1+3, EOC1+4, EOC2+1~, EOC3+1*
, EOC3+2, EOC3+3, EOC3+4, EOC3+5, EOC4+3*, EOC4+4, EOC4+5, EOC4+7, EOC4+8, EOC4+9
, EOC4+10, EOC4+11, RECORD+3*, RECORD+4, RECORD+5, RECORD+6
DGDTEND DATETO+1~, DATETO+5*
DGELIGDATE LOOP+2~, LOOP+48*
DGENCNT LOOP+1~, LOOP+32*, LOOP+38
DGPEELG LOOP+2~, LOOP+47*, LOOP+49
DGPID LOOP+1~, LOOP+43*, LOOP+49
DGPPARR LOOP+1~, LOOP+40!
DGPPARR(2 LOOP+42, LOOP+43, LOOP+46, LOOP+47, LOOP+48
DGPPCAT LOOP+1~, LOOP+28*, LOOP+29*, LOOP+30, LOOP+49
DGPPDT HELP+4~, HELP+5*, HELP+13
DGPPERR LOOP+1~, LOOP+40!, LOOP+41
DGPPFLGRPT LOOP+2~, LOOP+23*
DGPPLST START+4~, START+7*, START+10, START+11, START+12, START+13, LOOP~, LOOP+50, EOC1+3, EOC3+1
, EOC3+2, EOC3+3, EOC3+4, EOC3+5*, EOC4+3, EOC4+4, EOC4+5, EOC4+7, EOC4+8, EOC4+9
, EOC4+10, EOC4+11*
DGPPWRK LOOP+1~, LOOP+27*, LOOP+30
DGPTNAME LOOP+1~, LOOP+42*, LOOP+49, LOOP+50, EOC1+3, EOC3+1, EOC3+2, EOC3+3, EOC3+4, EOC3+5
, EOC4+3, EOC4+4, EOC4+5, EOC4+7, EOC4+8, EOC4+9, EOC4+10, EOC4+11
DGSEL HELP~
DGSORT MAIN+1~, START+11, START+12, LOOP~
DGSORT("DGBEG" DATEFROM+8*, DATETO+5, DATETO+6, LOOP+34, LOOP+35, LOOP+36
DGSORT("DGEND" DATETO+8*, LOOP+34, LOOP+35, LOOP+36
DGSTATN EOC+1~, EOC+4*, EOC+5, EOC+6, EOC+9, EOC+10, EOC+12, EOC+13, EOC+15, EOC+17
, EOC+19, EOC+21, EOC+23, EOC+25, EOC+27, EOC+29, EOC+30, EOC+31, EOC+32, EOC+33
, EOC+35, EOC+36, EOC+38, EOC+39, EOC+40, EOC+42, EOC+43, EOC+44, EOC+46, EOC+47
, EOC+48, EOC1+3, EOC1+4, EOC2+1~, EOC3+4*, EOC3+5, EOC4+7*, EOC4+8, EOC4+10*, EOC4+11
, RECORD+1~, RECORD+4*, RECORD+5, RECORD+6
DGSTRTDT DATEFROM+1~
DIR ANSWER+9~, ANSWER+14!
DIR("?" ANSWER+13*
DIR("??" ANSWER+13*
DIR("A" ANSWER+11*
DIR("B" ANSWER+12*
DIR(0 ANSWER+10*
DIROUT ANSWER+9~, ANSWER+15, ANSWER+17
DIRUT ANSWER+9~
DOS RECORD+1~
DT HELP+14
DTOUT ANSWER+9~, ANSWER+15, ANSWER+17
DUOUT ANSWER+9~, ANSWER+15, ANSWER+17
ENDDT CHKDATE~, CHKDATE+1
EOCIEN EOC+1~, EOC+2*, EOC+32*, EOC+42, EOC+47, EOC+48
EOCIEN399 EOC+1~, EOC+2*, EOC+46*, EOC+47, EOC+48
EOCIEN405 EOC+1~, EOC+2*, EOC+35*, EOC+44
EOCIEN45 EOC+1~, EOC+2*, EOC+36*, EOC+43, EOC+47, EOC+48
FILE EOC1~, EOC1+3
FILENO EOC+1~, EOC+5*, EOC+6, EOC+8, EOC+9, EOC+10, EOC+12, EOC+13, EOC+14, EOC+15
, EOC+17, EOC+18, EOC+19, EOC+20, EOC+21, EOC+22, EOC+23, EOC+24, EOC+25, EOC+26
, EOC+27, EOC+28, EOC+29, EOC+30, EOC+31, EOC+32, EOC+33, EOC+35, EOC+36, EOC+49
, EOC1+4, EOC2+1~, EOC3+3*, EOC3+4, EOC3+5, EOC4+5*, EOC4+6, EOC4+7, EOC4+8, EOC4+9*
, EOC4+10, EOC4+11, RECORD+1~, RECORD+2*, RECORD+5, RECORD+6
HERE START+2~*
I LOOP+2~, LOOP+32*, LOOP+51*, EOC+2*, EOC1+1*, EOC1+3, EOC2+2, EOC2+3, EOC4+4, EOC4+5
, EOC4+7
I1 LOOP+2~, LOOP+32*, LOOP+51*, LOOP+52*, EOC2+2, EOC2+3, EOC2+4
IBFILENO EOC+1~, EOC+37*, EOC+38, EOC+39, EOC+40, EOC+41, EOC+42, EOC+43, EOC+44, EOC+45
, EOC+46, EOC+47, EOC+48
IBOTHSTAT START+6~, START+9*, START+10, START+13
II EOC2+1~, EOC3+2*, EOC3+3, EOC3+4, EOC3+5
IOF MAIN+3, EXIT+3
IOST START+1, START+3
NWBL350 EOC+1~, EOC+2*, EOC+12*, EOC+13*, EOC+14
OTHER LOOP+2~, LOOP+51!
OTHER( LOOP+51*, EOC3+5, EOC4+8, EOC4+11
OTHER(1 LOOP+52*
OUTPATARY EOC+1~, EOC+52!
OUTPATARY( EOC+30, EOC1+4*
OUTTRUE EOC+1~, EOC+2*, EOC+7*, EOC+29, EOC+30*
POP EXIT+4!
RECNT EOC4+1~, EOC4+2*, EOC4+7*, EOC4+11*
RECNUM EOC+1~, EOC+2*, EOC+7*, EOC+39*, EOC+40, EOC+42, EOC+43, EOC+44, EOC+46, EOC+47
, EOC+48
RECORD START+5~, START+8*, START+10, START+13, LOOP+31, LOOP+38, EOC+3, EOC+4, EOC+5, EOC+6
, EOC+9, EOC+10, EOC+12, EOC+13, EOC+15, EOC+17, EOC+19, EOC+21, EOC+23, EOC+25
, EOC+27, EOC+29, EOC+30, EOC+31, EOC+32, EOC+33, EOC+35, EOC+36, EOC+38, EOC+39
, EOC+40, EOC+42, EOC+43, EOC+44, EOC+46, EOC+47, EOC+48, EOC+51, EOC1+4, RECORD+3
, RECORD+4, RECORD+5, RECORD+6
RESULT EOC+1~, EOC+9*, EOC+10, EOC+11, EOC+16, EOC+25*, EOC+26, EOC+40*, EOC+42, EOC+43
, EOC+44
RXARY52 EOC+1~, EOC+52!
RXARY52( EOC+18*, EOC+22*, EOC+26*
RXIEN EOC+1~, EOC+2*, EOC+7*, EOC+17*, EOC+18, EOC+21*, EOC+22, EOC+25*, EOC+26
SORTENCBY LOOP+1~, LOOP+3*
TRM START+3~*, EXIT+3
TRUINPT EOC+1~, EOC+2*, EOC+7*, EOC+34*, EOC1+2*, EOC1+3
U ANSWER+16, ANSWER+18, LOOP+29, LOOP+30, LOOP+45, LOOP+49, EOC+9, EOC+12, EOC+13, EOC+17
, EOC+21, EOC+25, EOC+29, EOC+30, EOC+31, EOC+32, EOC+33, EOC+35, EOC+36, EOC+40
, EOC+46, EOC1+4, EOC3+5, EOC4+8, EOC4+11
VA LOOP+2~
VADM LOOP+2~, LOOP+44!
VADM(3 LOOP+45
VAEL LOOP+2~, LOOP+44!
VAEL(1 LOOP+51
VAUTD LOOP+1~, LOOP+22*, LOOP+34
X MAIN+23*, MAIN+24, ANSWER+9~, ANSWER+16, ANSWER+18, HELP+6, DOLLAR~, DOLLAR+1, DOLLAR+5
X2 DOLLAR+2~, DOLLAR+3*
X3 DOLLAR+2~, DOLLAR+3*
Y ANSWER+9~, ANSWER+16, ANSWER+18, HELP+11!, HELP+13!, HELP+14!
Z ANSWER+9~, ANSWER+15*, ANSWER+16*
ZTDESC MAIN+2~
ZTQUEUED MAIN+2~, EXIT+1, EXIT+2
ZTREQ MAIN+2~, EXIT+1*
ZTSAVE MAIN+2~, MAIN+24
ZTSAVE("DGSORT(" MAIN+22*
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 |  Local Variables  | All