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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SCRPW62

Package: Scheduling

Routine: SCRPW62


Information

SCRPW62 ;BP-CIOFO/KEITH - SC veterans awaiting appointments ;1/5/16 12:26pm

Source Information

Source file <SCRPW62.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Scheduling 4 $$DIVA^SCRPW17  DISP0^SCRPW23  ($$XY,END,SUBT,TITL)^SCRPW50  STOP^SCRPW63  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
VA FileMan 2 WAIT^DICD  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SCRPW SC VETS AWAITING APPTS  SCRPW63  

Entry Points

Name Comments DBIA/ICR reference
RPT
SCEL(SDE,SDSCVT) ;Gather SC eligibility codes
FMT
APPT ;Appointment delay parameters
EXIT
START ;Gather report data
HDRD ;Header for delimited report
ENT ;Date entered parameters
DELIM(ARR) ;enter delimiter in the end of wrapped line
QUE ;Queue output
HDR ;Print report header

External References

Name Field # of Occurrence
WAIT^DICD START+2
^DIR RPT+7, RPT+13, FMT+4, FMT+13, ENT+8, APPT+12, HDR+3
$$DIVA^SCRPW17 APPT+1
DISP0^SCRPW23 QUE+7
$$XY^SCRPW50 HDR+5, HDR+6
END^SCRPW50 EXIT+1
SUBT^SCRPW50 RPT, RPT+9, FMT, FMT+7, ENT+4, APPT+5
TITL^SCRPW50 SCRPW62+8
STOP^SCRPW63 HDR+4
$$FMTE^XLFDT START+5
$$NOW^XLFDT START+5
EN^XUTMDEVQ QUE+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Note: Once the scheduling replacement application has been implemented at your"
  • Line Location: SCRPW62+9
Function Call: WRITE
  • Prompt: !,"site, this report will no longer be accurate."
  • Line Location: SCRPW62+10
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FMT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FMT+13
Function Call: WRITE
  • Prompt: !!,"This report requires the following steps to be converted to 'EXCEL':"
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,"1 - Copy it into WORD and replace '!^p' with null"
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !,"2 - Save this file as *.txt format"
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,"3 - Open this file in 'EXCEL' with the All Files(*.*) type of file, listing it with one delimiter: '^'."
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ENT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: APPT+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+10
Function Call: WRITE
  • Prompt: $$XY^SCRPW50("",0,0)
  • Condition for execution: $X
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: SDLINE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDT(X))\2),SDT(X)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,SDLINE,!,"Date printed: ",SDPNOW,?((IOM-6)-$L(SDPAGE)),"Page: "
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: SDPAGE,!,SDLINE
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,SDT(X)
  • Line Location: HDRD+2
Function Call: WRITE
  • Prompt: !,"Date printed: ",SDPNOW,!,SDLINE
  • Line Location: HDRD+3
Function Call: WRITE
  • Prompt: !,$E(LN,JJ,JJ+78)
  • Line Location: DELIM+4
Function Call: WRITE
  • Prompt: DELIM
  • Condition for execution: JJ+79<LL
  • Line Location: DELIM+4
Function Call: WRITE
  • Prompt: $E(LN,LL)
  • Line Location: DELIM+4
Routine Call
  • DIR
  • Line Location:
    • RPT+7
    • RPT+13
    • FMT+4
    • FMT+13
    • ENT+8
    • APPT+12
    • HDR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(8 - [#8] SCEL+11
^DIC(8.1 - [#8.1] SCEL+5, SCEL+6
^TMP("SCRPW" START+3!

Label References

Name Line Occurrences
@( START+10
APPT RPT+8
DELIM HDRD+7
ENT RPT+8
EXIT RPT+7, RPT+8, RPT+13, FMT+4, FMT+13, START+11
HDRD HDR+2
QUE FMT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR HDRD+4~, HDRD+7, DELIM~
ARR( DELIM+4
ARR(1 HDRD+4*, HDRD+6*
DELIM DELIM+2~, DELIM+3*, DELIM+4
DIR SCRPW62+5~, RPT+8!, RPT+14!, FMT+5!, HDR+3~
DIR("?" RPT+4*, RPT+6*, RPT+12*, FMT+3*, FMT+10*, FMT+11*, FMT+12*, ENT+7*, APPT+11*
DIR("A" RPT+3*, RPT+11*, FMT+2*, FMT+8*, ENT+6*, APPT+9*
DIR("B" FMT+9*
DIR(0 RPT+3*, RPT+10*, FMT+1*, FMT+8*, ENT+5*, APPT+8*, HDR+3*
DTOUT SCRPW62+5~, RPT+7, RPT+13, FMT+4, FMT+13, ENT+8, APPT+12
DUOUT SCRPW62+5~, RPT+7, RPT+13, FMT+4, FMT+13, ENT+8, APPT+12
II DELIM+2~, DELIM+4*
IOF HDR+5
IOM START+4, HDR+7, HDR+8
IOST START+2, HDR+3, HDR+5
JJ DELIM+2~, DELIM+4*
LL DELIM+2~, DELIM+4*
LN DELIM+2~, DELIM+4*
SDATES SCRPW62+5~, ENT+1*, ENT+9*, APPT+2*, APPT+13*, START+9, EXIT!
SDDIV SCRPW62+5~, APPT+1, EXIT!
SDE SCEL~
SDE( SCEL+12*
SDE81 SCEL+4~
SDELIM SCRPW62+6~, FMT+6*, FMT+14*, EXIT!, HDR+2
SDFMT SCRPW62+5~, FMT+5*, FMT+6, EXIT!
SDI SCEL+4~, SCEL+5*, SCEL+6, SCEL+11
SDII SCEL+4~, SCEL+11*, SCEL+12
SDLINE START+1~, START+3*, START+4*, HDR+6, HDR+8, HDR+9, HDRD+2, HDRD+3
SDOUT SCRPW62+5~, SCRPW62+7*, RPT+7*, RPT+8, RPT+13*, FMT+4*, FMT+13*, ENT+8*, APPT+1*, APPT+12*
, START+1~, START+3*, HDR+3*, HDR+4
SDPAGE START+1~, START+3*, HDR+3, HDR+5, HDR+8, HDR+9*, HDRD+1, HDRD+8*
SDPNOW START+1~, START+5*, HDR+8, HDRD+3
SDRPT SCRPW62+5~, RPT+8*, START+9, START+10, EXIT!, HDRD+6
SDSCVT SCRPW62+5~, RPT+14*, START+6, SCEL~, SCEL+8, SCEL+9, SCEL+10
SDSTOP START+1~, START+3*
SDT START+1~
SDT( HDR+7, HDRD+2
SDT(1 START+7*
SDT(2 START+9*
SDX SCRPW62+6~, QUE+6*, START+1~, START+6*, START+9, SCEL+4~, SCEL+6*, SCEL+7*, SCEL+8, SCEL+9
, SCEL+10, SCEL+12
U SCEL+7
X SCRPW62+6~, HDR+1~, HDR+7*, HDRD+2*
Y SCRPW62+6~, RPT+8, RPT+14, FMT+5, FMT+14, ENT+9, APPT+13, HDR+3
ZTQUEUED START+2, EXIT!
ZTSAVE SCRPW62+6~, QUE+7
ZTSAVE( QUE+6*
ZTSTOP EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All