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

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

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
Info |  Source |  Entry Points |  Interaction Calls