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

Package: Accounts Receivable

Routine: RCHRFS


Information

RCHRFS ;SLC/SS - High Risk for Suicide Patients Report ; JAN 22,2021@14:32

Source Information

Source file <RCHRFS.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
PRMPT ;
START ; compile and print report
REPORT(RCSORT) ;
HEADER ;Display header for the report
ASKCONT(FLAG) ; display "press <Enter> to continue" prompt
EXIT ;
YESNO(PROMPT,DFLANSW) ;
ASKDATE(RCPROMPT,RCMINDT,RCMAXDT,RCDFLANS,RCHELP) ;
ANSWER(RCDIRA,RCDIRB,RCDIR0,RCDIRH) ;
; Input
; RCDIR0 - DIR(0) string
; RCDIRA - DIR("A") string
; RCDIRB - DIR("B") string
; RCDIRH - 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(RCSEL,RCFRDT) ;
; Input: RCSEL - prompt var for help text word selection
; Output: none
HELP1 ;
HELP2 ;
HELP3 ;
SELCOTYP(DFLT) ;
SELIBST(DFLT) ;
PROMPTPT(RCSORT) ;
SELPAT(RCSORT) ;prompt for veteran's name
COLHEAD ;report column header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: "*** CPAC High Risk Veteran Reconciliation Report *** "
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: !!,"This report captures detailed 1st party bill information for Veterans"
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !,"with a High Risk for Suicide flag (HRfS) within a user specified range of"
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !,"dates of service. This report can be run for a single Veteran or all Veterans."
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !,"This report output requires screen size of 256 characters wide."
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !!,"Veteran's HRfS flag was not active during the selected date range.",!,"Please enter a new date range.",!
  • Line Location: MAIN+37
Function Call: WRITE
  • Prompt: !!,"The number of characters per row should be set to 256.",!
  • Line Location: MAIN+51
Function Call: WRITE
  • Prompt: !,"Please use the following path to modify the display settings:"
  • Line Location: MAIN+52
Function Call: WRITE
  • Prompt: !,"In Reflections. File >>> Terminal Configuration >>> "
  • Line Location: MAIN+53
Function Call: WRITE
  • Prompt: !,"Setup Display Setting >>> Number of characters per row.",!
  • Line Location: MAIN+54
Function Call: WRITE
  • Prompt: !,"To capture as a spreadsheet format, it is recommended that you"
  • Line Location: MAIN+55
Function Call: WRITE
  • Prompt: !,"enter the following at the DEVICE prompt: 0;256;99999."
  • Line Location: MAIN+56
Function Call: WRITE
  • Prompt: !,"This should help avoid wrapping problems.",!
  • Line Location: MAIN+57
Function Call: WRITE
  • Prompt: !,"For pagination, please use "";256;"" for the device value instead of the default.",!
  • Line Location: MAIN+58
Function Call: WRITE
  • Prompt: !!!," >>> No records were found in the selected date range.",!!
  • Line Location: REPORT+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$G(ZTDESC)
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"Legislation Date: "_$S(RCHRFSDT="":"TBD",1:$$FMTE^XLFDT(RCHRFSDT,"5Z"))
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Run date: ",$$FMTE^XLFDT($$NOW^XLFDT,"MP")
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"Service Dates From ",?12,$$FMTE^XLFDT(RCSORT("RCBEG"),"5Z")_" To "_$$FMTE^XLFDT(RCSORT("RCEND"),"5Z")
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Copay Type Selected: "_$P(RCSORT("COPAYTYPE"),U,2)
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"IB Status Selected: "_$P(RCSORT("IBSTATUS"),U,2)
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Press <Enter> to "_$S(FLAG=1:"continue.",1:"exit."),20)
  • Line Location: ASKCONT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !," Enter the FROM date"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," Enter the TO date"
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !," Invalid Date"
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !," Date cannot be a future date."
  • Line Location: HELP2+1
Function Call: WRITE
  • Prompt: !," Date cannot be earlier than the From date."
  • Line Location: HELP3+1
Function Call: WRITE
  • Prompt: !!,"Which type of copayment do you wish to see?"
  • Line Location: SELCOTYP+7
Function Call: WRITE
  • Prompt: !!,"Which IB status for the selected copayment(s) do you wish to see?"
  • Line Location: SELIBST+7
Function Call: WRITE
  • Prompt: !!," The Veteran does not have a HRfS flag on file."
  • Line Location: PROMPTPT+10
Function Call: WRITE
  • Prompt: !," Please enter another Veteran.",!!
  • Line Location: PROMPTPT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: COLHEAD+1
Function Call: WRITE
  • Prompt: "Veteran Name"
  • Line Location: COLHEAD+2
Function Call: WRITE
  • Prompt: ?26,"^SSN"
  • Line Location: COLHEAD+3
Function Call: WRITE
  • Prompt: ?36,"^HRfS Active Date"
  • Line Location: COLHEAD+4
Function Call: WRITE
  • Prompt: ?53,"^HRfS Inactive Date"
  • Line Location: COLHEAD+5
Function Call: WRITE
  • Prompt: ?72,"^HRfS Active"
  • Line Location: COLHEAD+6
Function Call: WRITE
  • Prompt: ?84,"^Bill Number"
  • Line Location: COLHEAD+7
Function Call: WRITE
  • Prompt: ?96,"^Category"
  • Line Location: COLHEAD+8
Function Call: WRITE
  • Prompt: ?123,"^Medical DOS"
  • Line Location: COLHEAD+9
Function Call: WRITE
  • Prompt: ?135,"^Rx Fill Date"
  • Line Location: COLHEAD+10
Function Call: WRITE
  • Prompt: ?148,"^Rx Release Date"
  • Line Location: COLHEAD+11
Function Call: WRITE
  • Prompt: ?164,"^Rx Number"
  • Line Location: COLHEAD+12
Function Call: WRITE
  • Prompt: ?177,"^Rx Name"
  • Line Location: COLHEAD+13
Function Call: WRITE
  • Prompt: ?194,"^Charge"
  • Line Location: COLHEAD+14
Function Call: WRITE
  • Prompt: ?206,"^Unit"
  • Line Location: COLHEAD+15
Function Call: WRITE
  • Prompt: ?211,"^IB Status"
  • Line Location: COLHEAD+16
Function Call: WRITE
  • Prompt: ?225,"^AR Status"
  • Line Location: COLHEAD+17
Function Call: WRITE
  • Prompt: !
  • Line Location: COLHEAD+18
Function Call: WRITE
  • Prompt: ""
  • Line Location: COLHEAD+19
Function Call: WRITE
  • Prompt: ?26,"^"
  • Line Location: COLHEAD+20
Function Call: WRITE
  • Prompt: ?36,"^"
  • Line Location: COLHEAD+21
Function Call: WRITE
  • Prompt: ?53,"^"
  • Line Location: COLHEAD+22
Function Call: WRITE
  • Prompt: ?72,"^On DOS"
  • Line Location: COLHEAD+23
Function Call: WRITE
  • Prompt: ?84,"^"
  • Line Location: COLHEAD+24
Function Call: WRITE
  • Prompt: ?96,"^"
  • Line Location: COLHEAD+25
Function Call: WRITE
  • Prompt: ?123,"^"
  • Line Location: COLHEAD+26
Function Call: WRITE
  • Prompt: ?135,"^"
  • Line Location: COLHEAD+27
Function Call: WRITE
  • Prompt: ?148,"^"
  • Line Location: COLHEAD+28
Function Call: WRITE
  • Prompt: ?164,"^"
  • Line Location: COLHEAD+29
Function Call: WRITE
  • Prompt: ?177,"^"
  • Line Location: COLHEAD+30
Function Call: WRITE
  • Prompt: ?194,"^Amount"
  • Line Location: COLHEAD+31
Function Call: WRITE
  • Prompt: ?206,"^Day"
  • Line Location: COLHEAD+32
Function Call: WRITE
  • Prompt: ?211,"^"
  • Line Location: COLHEAD+33
Function Call: WRITE
  • Prompt: ?225,"^"
  • Line Location: COLHEAD+34

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  RECALL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call