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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SDAL

Package: Scheduling

Routine: SDAL


Information

SDAL ;ALB/GRR,MJK,SCM/GXT - APPOINTMENT LIST ;29 Jun 99 04:11PM ; Compiled JUNE 27, 2018 2:54 PM

Source Information

Source file <SDAL.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Scheduling 7 $$XY^SCRPW50  (LOOP,NCLINIC,NCOUNT)^SDAL0  $$SDAPI^SDAMA301  $$BARC^SDAMU  $$SDAPIERR^SDAMUTDT  ASK2^SDDIV  (DT,OUT)^SDUTL  
VA FileMan 4 ^%DT  (DW,NOW)^%DTC  D^DIQ  ^DIR  
Kernel 2 ^%ZIS  (,$$S)^%ZTLOAD  
Registration 1 CLOSE^DGUTQ  

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

Package Total Caller Graph
Scheduling 3 SDAL0  SDLIST  SDOUTPUT  

Entry Points

Name Comments DBIA/ICR reference
EN
RD1
N
START
LOOPA ;if no error returned from SDAPI, start looping through clinics in VAUTC (sorted by name)
OVER ;S PCNT=PCNT+1 I PCNT<SDCOPY,SDCOUNT S VAUTC=0 G LOOPA
END
EXIT
CLIN ;process each clinic IEN from VAUTC array
BARQ(TTYPE,MARGIN) ;
BARCQ
QUE ;Queue output
STOP ;Check for stop task request
HED ;Print report header
PAINT(CLINIC,DATE) ; -- paint header barcodes
; input: CLINIC := clinic ifn
; DATE := appt date only
BARC(TAB,X) ; --print barcode
; input: TAB := tab position
; X := string to print
INACT ;SD*572 if single clinic selected check if inactive on selected date

External References

Name Field # of Occurrence
^%DT RD1
DW^%DTC START+8
NOW^%DTC START+6
^%ZIS N+5
^%ZTLOAD QUE+5
$$S^%ZTLOAD STOP+1
CLOSE^DGUTQ EXIT+7
D^DIQ START+8
^DIR RD1+5, BARQ+5
$$XY^SCRPW50 HED+4
LOOP^SDAL0 CLIN+1
NCLINIC^SDAL0 EN+2
NCOUNT^SDAL0 EN+1
$$SDAPI^SDAMA301 START+20
$$BARC^SDAMU START+7, BARQ+3
$$SDAPIERR^SDAMUTDT START+22
ASK2^SDDIV EN
DT^SDUTL START+4
OUT^SDUTL START+22, END+2, HED+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RD1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RD1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RD1+6
Function Call: READ
  • Formatting: !
  • Prompt: "Number of copies: 1// "
  • Variable: M
  • Timeout: DTIME
  • Line Location: N+0
Function Call: WRITE
  • Prompt: !,"ENTER A WHOLE NUMBER TO SELECT THE # OF COPIES OF THE APPOINTMENT LIST THAT ARE NEEDED- (1-999)"
  • Line Location: N+2
Function Call: WRITE
  • Prompt: !
  • Line Location: N+5
Function Call: WRITE
  • Prompt: !!,SDERR,!
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !!?$L(SDPCT)\2,SDPCT,!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: "Appointments for ALL clinics for ",SDPD
  • Line Location: HED+8
Function Call: WRITE
  • Prompt: "Appointments for ",$P(^SC(SC,0),U,1)," clinic on ",SDPD
  • Line Location: HED+11
Function Call: WRITE
  • Prompt: "Appointments for Selected clinics for ",SDPD
  • Line Location: HED+12
Function Call: WRITE
  • Prompt: !,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!
  • Line Location: HED+14
Function Call: WRITE
  • Prompt: !," Appt.",?11,"Patient Name",?41,"SSN",?53,"Lab",?62,"X-Ray",?73,"EKG"
  • Line Location: HED+16
Function Call: WRITE
  • Prompt: !," Time",?53,"Time",?62,"Time",?73,"Time",!,?15,"Other Information",?40,"Ward Location",!,?41,"Room-Bed"
  • Line Location: HED+17
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: HED+18
Function Call: WRITE
  • Prompt: !?10,"Date",?45,"Clinic#",?85,"No",?110,"Yes",!
  • Line Location: PAINT+4
Function Call: WRITE
  • Prompt: !!!!,SDASH
  • Line Location: PAINT+8
Function Call: WRITE
  • Prompt: *13,?TAB
  • Line Location: BARC+4
Function Call: WRITE
  • Prompt: @SDBCON,X,@SDBCOFF
  • Line Location: BARC+4
Routine Call
  • DIR
  • Line Location:
    • RD1+5
    • BARQ+5
Routine Call
  • %ZIS
  • Line Location:
    • N+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+6
^DPT - [#2] START+29
^SC - [#44] START+10, START+11, START+12, CLIN+1, HED+5, HED+11, INACT+1, INACT+2
^SD(409.41 - [#409.41] START+2, START+3
^TMP($J START+14!, START+25, START+26, START+27, START+30*, EXIT+6!

Label References

Name Line Occurrences
$$BARQ N+6
BARC PAINT+5, PAINT+6, PAINT+7
BARCQ BARQ+2, BARQ+3
CLIN LOOPA+1
END EN, EN+1, EN+2, N+5, N+6, N+7, LOOPA+2
EXIT START+22, END
HED START+22, END+1
INACT HED+11
LOOPA OVER+1
N N+2
PAINT HED+19
QUE N+7
STOP HED+2

Naked Globals

Name Field # of Occurrence
^("I" INACT+1, INACT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RD1+1!, START+6, EXIT!
%DT RD1~*
%DT("A" RD1*
%H EXIT!
%ZIS N+5~*
A EXIT!
ALL EXIT!
CLINIC PAINT~, PAINT+6
CNT START~*, START+2*, START+3
CT HED+9*, HED+10*, HED+11, HED+12, HED+13!
DATE PAINT~, PAINT+5
DFN EXIT!
DIC EXIT!
DIC("S" RD1!
DIR RD1+3~, BARQ+5!
DIR("A" RD1+4*, BARQ+4*
DIR("B" RD1+3*, BARQ+4*
DIR(0 RD1+3*, BARQ+4*
DIRUT EXIT+3!, BARQ+5
DT START+4, START+8
DTIME N, START+4*
DTOUT RD1+5, EXIT+2!
DUOUT RD1+5, EXIT+2!
I EXIT!
INC EXIT!
IO START
IO("Q" N+5!, N+7, QUE+2!
IOF END+2, HED+4
IOM N+6, START+5, START+7, HED+14
IOST START+22, END+2, HED+1, HED+4
IOST(0 N+6, START+7
K EXIT!
M N*, N+1!, N+2, N+3, START+5, EXIT!
MARGIN BARQ~, BARQ+2
OFF BARQ+1~, BARQ+3
ON BARQ+1~, BARQ+3
PCNT START+8*, OVER+1*, EXIT!
POP N+5, EXIT!
PT EXIT!
SC START+18*, START+22*, END+1*, EXIT!, CLIN+1*, HED+5, HED+7, HED+10*, HED+11, HED+13!
, HED+19, INACT+1, INACT+2
SD START+18*, LOOPA+1*, EXIT!, CLIN+1
SD1 START+8*, EXIT!, HED+1, HED+3*
SDARRAY START+14~, START+20
SDARRAY("FLDS" START+15*
SDARRAY(1 START+15*
SDARRAY(2 START+17*, START+18*
SDARRAY(3 START+15*
SDASH START+5*, EXIT+6!, HED+18, PAINT+8
SDBC N+6*, START+5*, START+7*, EXIT+6!, HED+19
SDBCOFF START+7, EXIT+6!, BARC+4
SDBCON START+7, EXIT+6!, BARC+4
SDCC EXIT+1!
SDCL START+14~, START+25*, START+26, START+27, START+30
SDCLAR START~, EXIT+5!
SDCLAR( START+3*
SDCONC EN+1, EXIT+1!
SDCOPY N+3*, START+5*, OVER+1, EXIT+3!
SDCOUNT START~*, OVER+1, END, END+1, END+2, HED+3*, HED+4
SDCP EXIT+1!
SDD RD1+2*, RD1+5!, N+1!, START+8, START+11, START+15, EXIT+1!, HED+19, INACT+1, INACT+2
SDDFN START+14~, START+26*, START+27, START+29, START+30
SDDIF EXIT+1!
SDDIF1 EXIT+1!
SDDT START+14~, START+27*, START+30
SDEA EXIT+1!
SDEC EXIT+1!
SDEDT EXIT+1!
SDEM EXIT+2!
SDEM1 EXIT+1!
SDEND EN*, START+8*, LOOPA+1, LOOPA+2, END+2, EXIT+2!, STOP+1*, HED+1, HED+2
SDERR START+14~, START+22*
SDFLG EXIT+2!, CLIN+1*
SDFS EXIT+2!
SDIEN START+10*, START+11, START+12, START+14~
SDIN EXIT+2!
SDNAME START+12*, START+14~
SDNT START+8*, EXIT+2!
SDOI EXIT+3!
SDPAGE START+22*, END+1*, EXIT+3!, HED+14, HED+18*
SDPCMM RD1+6*, EXIT+6!
SDPCT END+1*, EXIT+3!, INACT+1*, INACT+2*, INACT+3*
SDPD START+8*, EXIT+3!, HED+5, HED+8, HED+11, HED+12
SDPNDFN START+29*, START+30, EXIT+5!
SDPNOW START+6*, EXIT+3!, HED+14
SDPT0 EXIT+3!
SDRESULT START+14~, START+20*, START+22, START+24, LOOPA+1
SDREV EXIT+3!
SDT EXIT+4!
SDX N!, EXIT+4!
SDX1 N!
SDXX EXIT+4!
SDZ EXIT+4!
SDZDFN EXIT+5!
SNAM HED+9*, HED+10*, HED+13!
TAB BARC~, BARC+4
TTYPE BARQ~, BARQ+3
U EN+1, START+3, START+29, HED+11, INACT+1, INACT+2
VADAT EXIT+4!
VADATE EXIT+4!
VAQK EXIT+5!
VAUTC RD1+1!, RD1+5!, N+1!, START+10, START+17, EXIT+4!, HED+8
VAUTC( START+12*, START+18, LOOPA+1, CLIN+1, HED+10
VAUTD RD1+1!, RD1+5!, N+1!, EXIT+5!
VAUTNI EN+1*, EXIT+4!
VAUTSTR EXIT+4!
VAUTVB EXIT+4!
X RD1+1!, RD1+5!, N+1!, START+8*, EXIT+5!, QUE+4*, BARC~, BARC+4
Y EN, EN+2, RD1+1!, RD1+2, RD1+5!, RD1+6, N+1!, START+6*, START+8*, EXIT+5!
, BARQ+1~, BARQ+2*, BARQ+3*, BARQ+5*, BARCQ
Y1 EXIT+5!
Y2 EXIT+5!
Z EXIT+5!
ZTDESC QUE+1~, QUE+3*
ZTQUEUED EXIT+2!, STOP+1
ZTRTN QUE+1~, QUE+3*
ZTSAVE QUE+1~
ZTSAVE( QUE+4*
ZTSK N+7, QUE+2!
ZTSTOP EXIT+2!, STOP+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All