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

Package: Scheduling

Routine: SCRPW41


Information

SCRPW41 ;RENO/KEITH - Veterans Without Activity Since a Specified Date Range ; 5/25/2004

Source Information

Source file <SCRPW41.m>

Entry Points

Name Comments DBIA/ICR reference
EDT
ASK ;Ask for sort elements
PF() ;Prompt for page feed
START ;Print report
VET() ;Vet? Alive? Eligible?
EVAL(SDBD,SDED) ;Evaluate last activity
WARD(SDT) ;Get ward for date/time
SET ;Set TMP global
SORT(SDACR) ;Return sort value
STOP ;Check for stop task request
ASK1 ;Prompt for 'Means Test/Eligibility/Enrollment Report' parameters
EDT1
STAT ;Prompt for encounter statuses to include

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will return a list of veterans that are not deceased who had",!,"activity during a date range specified by the user, and have not been seen"
  • Line Location: SCRPW41+4
Function Call: WRITE
  • Prompt: !,"since. Activity is determined by an examination of Fee Basis, inpatient and",!,"outpatient care (including future appointments). Once the scheduling"
  • Line Location: SCRPW41+5
Function Call: WRITE
  • Prompt: !,"replacement application has been implemented at your site, this report will",!,"no longer be accurate."
  • Line Location: SCRPW41+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SCRPW41+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"End date cannot be before begin date!",!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !!,"Veterans not seen since the date range: ",SD("PBDT")," to ",SD("PEDT"),!!,"Output sort elements: "
  • Line Location: EDT+5
Function Call: WRITE
  • Prompt: "(NONE SELECTED)"
  • Line Location: EDT+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: SDI>1
  • Line Location: EDT+7
Function Call: WRITE
  • Prompt: ?(19+(3*SDI))
  • Line Location: EDT+7
Function Call: WRITE
  • Prompt: $E($P(SDX,U,2),1,SDL)_$S($P(SDX,U,3):" <pagefeed>",1:"")
  • Line Location: EDT+7
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column output.",!
  • Line Location: EDT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"End date cannot be before begin date!",!
  • Line Location: EDT1+1
Function Call: WRITE
  • Prompt: !!,"Choose as many of the following statuses",!,"as you wish to include in the report:",!
  • Line Location: STAT+2
Function Call: WRITE
  • Prompt: !?10,"CHECKED IN",!?10,"CHECKED OUT",!?10,"NO ACTION TAKEN",!?10,"INPATIENT APPOINTMENT",!?10,"NON-COUNT",!?10,"ACTION REQUIRED",!
  • Line Location: STAT+3
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column output."
  • Condition for execution: $P(SD("FMT",1),U)="D"
  • Line Location: STAT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: STAT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SD(409.63 - [#409.63] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call