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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDESOPENVETREQS

Package: Scheduling

Routine: SDESOPENVETREQS


Information

SDESOPENVETREQS ;ALB/JAS,ANU - REPORT OF ALL OPEN VETERAN REQUESTS ; JUL 15, 2023

Source Information

Source file <SDESOPENVETREQS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ($$FMDIFF,$$FMTE)^XLFDT  
VA FileMan 2 ($$GET1,GETS)^DIQ  ^DIR  
Registration 1 DEM^VADPT  

Entry Points

Name Comments DBIA/ICR reference
REQSBYVETS ;
SRTOPT() ;
; 1 - Date Entered (Default)
; 2 - Patient Name
SRTRECS(REQIENS,SRTOPT) ;
HEADER ; Header for report data
DETAIL ; Detail line for Open Vet Request
DEVOPEN ;Prompt for device
DEVCLOSE ;Close device
EXIT ;Clean-up local vars and temp globals

External References

Name Field # of Occurrence
^%ZIS DEVOPEN+2
^%ZISC DEVCLOSE+2
$$GET1^DIQ REQSBYVETS+6
GETS^DIQ SRTRECS+4
^DIR SRTOPT+10
DEM^VADPT SRTRECS+9
$$FMDIFF^XLFDT SRTRECS+29
$$FMTE^XLFDT SRTRECS+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?21,"ALL OPEN VETERAN REQUESTS REPORT OPTIONS",!!
  • Line Location: SRTOPT+5
Function Call: WRITE
  • Prompt: !,"PATIENT NAME^LAST FOUR OF SSN^INSTITUTION^SERVICE/SPECIALTY"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "^REQUEST ENTRY DATE^WAIT TIME^PID^LAST PATIENT CONTACT"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,VRDATA1_"^"_VRDATA2_"^"_VRDATA3_"^"
  • Line Location: DETAIL+11
Function Call: WRITE
  • Prompt: ^TMP("SDESOPENVETREQS",$J,VRSRT1,VRSRT2,VRIEN,"COMM",COMMLN)_" | "
  • Line Location: DETAIL+16
Routine Call
  • %ZIS
  • Line Location:
    • DEVOPEN+2
Routine Call
  • DIR
  • Line Location:
    • SRTOPT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SDEC(409.85 - [#409.85] GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SDEC(409.85 - [#409.85] REQSBYVETS+5
^TMP("SDESOPENVETREQS" REQSBYVETS+2!, SRTRECS+13*, SRTRECS+19*, SRTRECS+29*, DETAIL+3, DETAIL+5, DETAIL+7, DETAIL+8, DETAIL+9, DETAIL+10
, EXIT+2!

Label References

Name Line Occurrences
$$SRTOPT REQSBYVETS+11
DETAIL REQSBYVETS+16
DEVCLOSE REQSBYVETS+20
DEVOPEN REQSBYVETS+16
EXIT REQSBYVETS+20
HEADER REQSBYVETS+16
SRTRECS REQSBYVETS+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COMMLN SRTRECS+1~, DETAIL+1~
DFN SRTRECS+1~, SRTRECS+9*
DIR SRTOPT+6!
DIR("?" SRTOPT+9*
DIR("A" SRTOPT+8*
DIR(0 SRTOPT+7*
DT SRTRECS+29
DTOUT SRTOPT+4~, SRTOPT+11
DUOUT SRTOPT+4~, SRTOPT+11
ENTERDT SRTRECS+1~, SRTRECS+10*, SRTRECS+11, SRTRECS+12, SRTRECS+29
INSTIT SRTRECS+1~, SRTRECS+17*, SRTRECS+19
IO DEVOPEN+3
LAST4 SRTRECS+1~
LSTCON SRTRECS+23~, SRTRECS+24*, SRTRECS+26*, SRTRECS+29
PIDDT SRTRECS+23~, SRTRECS+24*, SRTRECS+28*, SRTRECS+29
PNAME SRTRECS+1~, SRTRECS+8*, SRTRECS+11, SRTRECS+12, SRTRECS+13
POP REQSBYVETS+1~, DEVOPEN+2
REQIENS REQSBYVETS+1~, REQSBYVETS+2!, REQSBYVETS+12, SRTRECS~, EXIT+2!
REQIENS( REQSBYVETS+7*, SRTRECS+3
REQUESTIEN REQSBYVETS+1~, REQSBYVETS+4*, REQSBYVETS+5*, REQSBYVETS+6, REQSBYVETS+7, SRTRECS+2*, SRTRECS+3*, SRTRECS+4, SRTRECS+8, SRTRECS+9
, SRTRECS+10, SRTRECS+13, SRTRECS+17, SRTRECS+18, SRTRECS+19, SRTRECS+29
SDERR SRTRECS+39!
SDREQDATA SRTRECS+1~, SRTRECS+39!
SDREQDATA( SRTRECS+8, SRTRECS+9, SRTRECS+10, SRTRECS+17, SRTRECS+18, SRTRECS+25, SRTRECS+26, SRTRECS+27, SRTRECS+28
SRTOPT REQSBYVETS+1~, REQSBYVETS+11*, REQSBYVETS+12, SRTRECS~, SRTRECS+11, SRTRECS+12
SRTVAL1 SRTRECS+1~, SRTRECS+11*, SRTRECS+12*, SRTRECS+13, SRTRECS+19, SRTRECS+29
SRTVAL2 SRTRECS+1~, SRTRECS+11*, SRTRECS+12*, SRTRECS+13, SRTRECS+19, SRTRECS+29
SRVSPC SRTRECS+1~, SRTRECS+18*, SRTRECS+19
SUBREQ SRTRECS+23~, SRTRECS+26*, SRTRECS+28*
VA SRTRECS+1~, EXIT+2!
VA("BID" SRTRECS+13
VRDATA1 DETAIL+1~, DETAIL+8*, DETAIL+11
VRDATA2 DETAIL+1~, DETAIL+9*, DETAIL+11
VRDATA3 DETAIL+1~, DETAIL+10*, DETAIL+11
VRIEN DETAIL+1~, DETAIL+6*, DETAIL+7*, DETAIL+8, DETAIL+9, DETAIL+10
VRSRT1 DETAIL+1~, DETAIL+2*, DETAIL+3*, DETAIL+5, DETAIL+7, DETAIL+8, DETAIL+9, DETAIL+10
VRSRT2 DETAIL+1~, DETAIL+4*, DETAIL+5*, DETAIL+7, DETAIL+8, DETAIL+9, DETAIL+10
Y SRTOPT+4~, SRTOPT+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All