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

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.

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call