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 |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Automated Medical Information Exchange 3 SETUP^DVBCPND1  KILL^DVBCUTIL  CONTMES^DVBCUTL4  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA C PENDING REPORT  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEV
HOME^%ZIS DVBCPNDR+3
^%ZTLOAD DEV+2
^DIC OSORT+3
SETUP^DVBCPND1 DEV+3
KILL^DVBCUTIL ASK, SSORT, ESORT, OSORT, OSORT+3, CALWRK, DEV, DEV+2
CONTMES^DVBCUTL4 ESORT+1

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • DVBCPNDR+3
Routine Call
  • DIC
  • Line Location:
    • OSORT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] Classic Fileman Calls

Label References

Name Line Occurrences
ASK ASK+5
CALWRK OSORT+3, CALWRK+3
ESORT ESORT+1, OSORT+2
OSORT OSORT+1
SSORT SSORT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV*!
%ZIS("A" DEV*
>> ADIV DVBCPNDR+3*
>> ADIVNUM DVBCPNDR+3*, OSORT+3*
>> DIC OSORT+3*
>> DIC("A" OSORT+3*
>> DIC(0 OSORT+3*
DTIME ASK, SSORT, ESORT, OSORT, CALWRK
>> DVBCCNT DVBCPNDR+3*
>> DVBCHDR ASK+7*
>> DVBCSORT ASK*, ASK+1*, ASK+2*, ASK+3*, ASK+4*, ASK+5, ASK+6*, ASK+7, SSORT, SSORT+1
, SSORT+2, SSORT+3, ESORT, ESORT+1, OSORT, OSORT+1, OSORT+2, OSORT+3
>> ELTYP CALWRK*, CALWRK+1*, CALWRK+2*, CALWRK+3, CALWRK+4*, CALWRK+5
>> ERDAYS ESORT*, ESORT+1, OSORT+2
>> FF DVBCPNDR+3*
>> HEAD3 CALWRK+5*
>> I DEV+1*
IO("Q" DEV+1
IOF DVBCPNDR+3, ASK+5, SSORT, ESORT, OSORT+3
ION DEV+1
NOASK DVBCPNDR+3!, DEV+1*
>> OLDAYS OSORT*, OSORT+1, OSORT+2
>> POP DEV
>> RSAT SSORT+3
>> RSTAT SSORT*, SSORT+1*, SSORT+2, SSORT+3
U ASK, SSORT, ESORT, OSORT, OSORT+3, CALWRK
>> X OSORT+3
>> Y OSORT+3
>> ZTDESC DEV+1*
>> ZTIO DEV+1*
>> ZTRTN DEV+1*
>> ZTSAVE( DEV+1*
>> ZTSK DEV+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All