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

Package: Automated Medical Information Exchange

Routine: DVBCPNDR


Information

DVBCPNDR ;ALB/GTS-557/THM-2507 PENDING REQUESTS, PART 1 ; 9/29/21 2:31pm

Source Information

Source file <DVBCPNDR.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
SSORT
ESORT
OSORT
CALWRK
DEV

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Pending 2507 Request Report",!!!
  • Line Location: DVBCPNDR+3
Function Call: READ
  • Variable: DVBCSORT
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,*7,"Answer must be A, S, V, or R.",!!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: $S(DVBCSORT="V":"eteran name",DVBCSORT="":"Veteran name",DVBCSORT="A":"ge of request",DVBCSORT="S":"tatus",DVBCSORT="R":"outing location",1:"")
  • Line Location: ASK+6
Function Call: READ
  • Variable: RSTAT
  • Timeout: DTIME
  • Line Location: SSORT+0
Function Call: WRITE
  • Prompt: RSTAT
  • Line Location: SSORT+0
Function Call: WRITE
  • Prompt: *7,!!,"Status must be N(New),P(Pending),NR(New,RR),RP(RR Pend Accept),RS(RR Pend at To Site),T(Transcribed) or A(ALL)"
  • Line Location: SSORT+2
Function Call: WRITE
  • Prompt: $S(RSTAT="P":"ending",RSTAT="NR":"New, Re-Routed",RSTAT="RP":"Re-routed, Pending Acceptance",RSTAT="RS":"Re-Routed, Pending at TO Site",RSTAT="T":"ranscribed",RSTAT="N":"ew",RSAT="A":"11",1:"")
  • Line Location: SSORT+3
Function Call: READ
  • Variable: ERDAYS
  • Timeout: DTIME
  • Line Location: ESORT+0
Function Call: WRITE
  • Prompt: *7,!!,"Enter the shortest time span (in days) which 2507 processing has elapsed.",!,"Cannot be less than one day !",!,"If you want NEW requests (zero days), sort by status.",!!
  • Line Location: ESORT+1
Function Call: READ
  • Variable: OLDAYS
  • Timeout: DTIME
  • Line Location: OSORT+0
Function Call: WRITE
  • Prompt: *7,!!,"Enter the longest time span (in days) which 2507 processing has elapsed.",!,"Cannot be less than 1 day",!!
  • Line Location: OSORT+1
Function Call: WRITE
  • Prompt: *7,!!,"Earliest age must be less than oldest age",!!
  • Line Location: OSORT+2
Function Call: WRITE
  • Prompt: @IOF,!,"Routing Location Selection:",!!!
  • Line Location: OSORT+3
Function Call: READ
  • Variable: ELTYP
  • Timeout: DTIME
  • Line Location: CALWRK+0
Function Call: WRITE
  • Prompt: !!,*7,"Must be C for Calendar, W for Workdays",!,"or simply press RETURN to accept the default.",!!
  • Line Location: CALWRK+3
Function Call: WRITE
  • Prompt: $S(ELTYP="":"Calendar",ELTYP="C":"alendar",ELTYP="W":"ork",1:"Unknown")_" days"
  • Line Location: CALWRK+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV+0

FileMan Files Accessed Via FileMan Db Call

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