Routine: SDAL

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

Package	Total	Caller Graph
Scheduling	4	SD IHS APPT LIST SDAL0 SDLIST SDOUTPUT
IHS Changes To Scheduling	1	ASDM

Entry Points

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

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+3
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	Prompt: "Number of copies: 1// " Formatting: ! Timeout: DTIME Variable: M 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",?44,"SSN",?53,"Lab",?62,"X-Ray",?73,"EKG" Line Location: HED+15
Function Call: WRITE	Prompt: !," Time",?53,"Time",?62,"Time",?73,"Time",!,?15,"Other Information",?40,"Ward Location",!,?41,"Room-Bed" Line Location: HED+16
Function Call: WRITE	Prompt: !,SDASH Line Location: HED+17
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
^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+28*, EXIT+2!

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+18
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+1!, BARQ+5
DT	START+4, START+8
DTIME	N, START+4*
>> DTOUT	RD1+5
>> DUOUT	RD1+5
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+18, 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+2!, HED+17, PAINT+8
SDBC	N+6, START+5, START+7*, EXIT+2!, HED+18
SDBCOFF	START+7, EXIT+2!, BARC+4
SDBCON	START+7, EXIT+2!, BARC+4
SDCC	EXIT!
SDCL	START+14~, START+25*, START+26, START+27, START+28
SDCLAR	START~
SDCLAR(	START+3*
SDCONC	EN+1, EXIT!
SDCOPY	N+3, START+5, OVER+1, EXIT+1!
SDCOUNT	START~, OVER+1, END, END+1, END+2, HED+3, HED+4
SDCP	EXIT!
SDD	RD1+2*, RD1+5!, N+1!, START+8, START+11, START+15, EXIT!, HED+18, INACT+1, INACT+2
SDDFN	START+14~, START+26*, START+27, START+28
SDDIF	EXIT!
SDDIF1	EXIT!
SDDT	START+14~, START+27*, START+28
SDEA	EXIT!
SDEC	EXIT!
SDEDT	EXIT!
SDEM	EXIT!
SDEM1	EXIT!
SDEND	EN, START+8, LOOPA+1, LOOPA+2, END+2, EXIT!, STOP+1*, HED+1, HED+2
SDERR	START+14~, START+22*
SDFLG	EXIT!, CLIN+1*
SDFS	EXIT!
SDIEN	START+10*, START+11, START+12, START+14~
SDIN	EXIT!
SDNAME	START+12*, START+14~
SDNT	START+8*, EXIT!
SDOI	EXIT+1!
SDPAGE	START+22, END+1, EXIT+1!, HED+14, HED+17*
SDPCMM	RD1+6*, EXIT+2!
SDPCT	END+1, EXIT+1!, INACT+1, INACT+2, INACT+3
SDPD	START+8*, EXIT+1!, HED+5, HED+8, HED+11, HED+12
SDPNOW	START+6*, EXIT+1!, HED+14
SDPT0	EXIT+1!
SDRESULT	START+14~, START+20*, START+22, START+24, LOOPA+1
SDREV	EXIT+1!
SDT	EXIT+1!
SDX	N!, EXIT+1!
SDX1	N!
SDXX	EXIT+1!
SDZ	EXIT+1!
SNAM	HED+9, HED+10, HED+13!
TAB	BARC~, BARC+4
TTYPE	BARQ~, BARQ+3
U	EN+1, START+3, HED+11, INACT+1, INACT+2
VADAT	EXIT+1!
VADATE	EXIT+1!
VAQK	EXIT+1!
VAUTC	RD1+1!, RD1+5!, N+1!, START+10, START+17, EXIT+1!, HED+8
VAUTC(	START+12*, START+18, LOOPA+1, CLIN+1, HED+10
VAUTD	RD1+1!, RD1+5!, N+1!, EXIT+1!
VAUTNI	EN+1*, EXIT+1!
VAUTSTR	EXIT+1!
VAUTVB	EXIT+1!
X	RD1+1!, RD1+5!, N+1!, START+8, EXIT+1!, QUE+4, BARC~, BARC+4
Y	EN, EN+2, RD1+1!, RD1+2, RD1+5!, RD1+6, N+1!, START+6, START+8, EXIT+1! , BARQ+1~, BARQ+2, BARQ+3, BARQ+5*, BARCQ
Y1	EXIT+1!
Y2	EXIT+1!
Z	EXIT+1!
ZTDESC	QUE+1~, QUE+3*
>> ZTQUEUED	STOP+1
ZTRTN	QUE+1~, QUE+3*
ZTSAVE	QUE+1~
ZTSAVE(	QUE+4*
ZTSK	N+7, QUE+2!
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SDAL

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: