Routine: SDAL0

Package	Total	Call Graph
Scheduling	6	(BARC,HED)^SDAL CL^SDCO21 TDATA^SDPPTEM TM^SDROUT0 $$FDATE^SDUL1 ($$COLLAT,$$MHCLIN,$$NEWGAF)^SDUTL2
Registration	5	$$CVEDT^DGCV $$LST^DGMTU ELIG^VADPT ^VAUQWK FIRST^VAUTOMA

Package	Total	Caller Graph
Scheduling	2	SDAL SDLTP
IHS Changes To Scheduling	1	BSDLTP

Entry Points

External References

Name	Field # of Occurrence
$$CVEDT^DGCV	PTL+11
$$LST^DGMTU	PTL+42, PTL+43
BARC^SDAL	PTL+8
HED^SDAL	LOOP+1, LOOP+5, PTL+4, CCLK+1
CL^SDCO21	PTL+6
TDATA^SDPPTEM	PTL+20
TM^SDROUT0	PTL+5, PTL+14
$$FDATE^SDUL1	PTL+42, PTL+43
$$COLLAT^SDUTL2	PTL+24
$$MHCLIN^SDUTL2	PTL+24
$$NEWGAF^SDUTL2	PTL+25
ELIG^VADPT	PTL+37
^VAUQWK	PTL+3
FIRST^VAUTOMA	NCLINIC+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(IOM-$L(SDPCT)\2),SDPCT Line Location: LOOP+13
Function Call: WRITE	Prompt: !,$J(X,8) Line Location: PTL+5
Function Call: WRITE	Prompt: ! Line Location: PTL+8
Function Call: WRITE	Prompt: !?3,$S($G(SDCV)=1:"(CV)",1:""),?9,$S($P(SDDATA,"^",7)="Y":"*",1:""),?10,$S(VAQK(1)]"":VAQK(1),1:"UNKNOWN PATIENT"),?41,$S(VAQK(2)]"":$E(VAQK(2),1,9),1:"") Line Location: PTL+13
Function Call: WRITE	Prompt: ?48+INC,$J(X,8) Line Location: PTL+14
Function Call: WRITE	Prompt: " " Condition for execution: INC<16 Line Location: PTL+14
Function Call: WRITE	Prompt: !,?41,VAQK(12) Line Location: PTL+15
Function Call: WRITE	Prompt: !,?41,VAQK(13) Condition for execution: VAQK(13)]"" Line Location: PTL+15
Function Call: WRITE	Prompt: !,?10,"Phone #: ",$P($G(^DPT(DFN,.13)),"^",1) Line Location: PTL+17
Function Call: WRITE	Prompt: " ",SDCLAR(PCL)," " Line Location: PTL+33
Function Call: WRITE	Prompt: $P(SDELAR(3),"^",2),"% " Line Location: PTL+39
Function Call: WRITE	Prompt: !,?15,"Means Test: ",$P(VAQK(11),"^",2)," " Line Location: PTL+42
Function Call: WRITE	Prompt: " Last Test: ",$$FDATE^SDUL1($P($$LST^DGMTU(DFN),U,2)) Line Location: PTL+42
Function Call: WRITE	Prompt: !,?15,"Co-Pay Status: ",""_$P(SDCOPS,U,3)_""," Last Test: ",$$FDATE^SDUL1($P(SDCOPS,U,2)) Line Location: PTL+43
Function Call: WRITE	Prompt: !,?15," COLLATERAL " Line Location: PTL+44
Function Call: WRITE	Prompt: !,?15," COLLATERAL " Line Location: PTL+45
Function Call: WRITE	Prompt: !,?15," COLLATERAL VISIT " Line Location: PTL+48
Function Call: WRITE	Prompt: ! Line Location: Q+0
Function Call: WRITE	Prompt: !?9,$E(SDASH,9,255) Line Location: Q+1
Function Call: WRITE	Prompt: ! Line Location: CCLK+1
Function Call: WRITE	Prompt: !,"Count, Non Count, or Both: C//" Line Location: NCOUNT+1
Function Call: WRITE	Prompt: !,"Type C, N or B" Line Location: NCOUNT+4
Function Call: WRITE	Prompt: !!,"Choosing ""C"" will limit the selection to COUNT clinics." Line Location: NCOUNT+6
Function Call: WRITE	Prompt: !," ""N"" will limit the selection to NON COUNT clinics." Line Location: NCOUNT+7
Function Call: WRITE	Prompt: !," ""B"" will give BOTH count and non count clinics.",! Line Location: NCOUNT+8
Function Call: WRITE	Prompt: !,"C, N or B" Line Location: NCOUNT+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CHECK
^DIC(8 - [#8]	PTL+44, PTL+46, GETA+2
^DPT - [#2]	PTL+17, PTL+34, GETA+4, CCLK, CKCED, ENR+1
^SC - [#44]	LOOP, PTL+16, GETA+3, CCLK, CHECK, CHECK+1, NCHECK+1, ACTIVE+3
^TMP($J	LOOP+7, LOOP+8, LOOP+10, ACTIVE+5

Label References

Name	Line Occurrences
$$ACTIVE	LOOP+4
$$CHECK	LOOP+4
$$NCHECK	LOOP+4
CCLK	LOOP+12
CKCED	GETA+4
ENR	CKCED
GETA	PTL+3
MORE	LOOP+11
NCOUNT	NCOUNT+4, NCOUNT+5, NCOUNT+10
PTL	MORE
Q	PTL+44, PTL+45

Naked Globals

Name	Field # of Occurrence
^(	LOOP+10, CCLK
^("I"	CHECK+1
^("SL"	GETA+3
^(0	PTL+44, PTL+46, GETA+2, GETA+4, ENR, CHECK
^(1	GETA+4, CHECK+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	CKCED*, ENR+1
>> DFN	PTL+1*, PTL+6, PTL+11, PTL+17, PTL+20, PTL+25, PTL+34, PTL+42, PTL+43, GETA+4 , CKCED, ENR+1
>> DIC	NCLINIC+5*
>> DIC("S"	NCLINIC+5*
DT	PTL+43, ENR
DTIME	NCOUNT+1
>> I	PTL+18, Q
>> INC	PTL+14*
IOM	LOOP+3, LOOP+13
IOSL	PTL+4, CCLK+1
NOC	NCHECK+1~*, NCHECK+3, NCHECK+4
NOCC	NCLINIC+1~, NCLINIC+2, NCLINIC+3, NCLINIC+4*, NCLINIC+5
PCL	PTL+29~, PTL+30, PTL+32, PTL+33, PTL+34
>> PT	PTL+5, MORE*
>> SC	LOOP, LOOP+7, LOOP+8, LOOP+10, PTL+16, PTL+24, GETA+3, GETA+4, CCLK, CHECK , CHECK+1, NCHECK+1, ACTIVE+3, ACTIVE+5
SDAPPT	PTL~, PTL+2*
>> SDASH	Q+1
>> SDBC	PTL+8, Q, Q+1
>> SDCC	CCLK*
>> SDCLAR(	PTL+33, PTL+34
SDCLY	PTL+6~
SDCLY(	PTL+32
SDCLY(0	PTL+28
>> SDCONC	NCOUNT+1, NCOUNT+2, NCOUNT+3, NCOUNT+4, NCOUNT+5, NCOUNT+9*, NCOUNT+10, NCHECK+2, NCHECK+3, NCHECK+4 , NCLINIC+2, NCLINIC+3, NCLINIC+4
SDCOPS	PTL+43*!
SDCP	PTL+16, GETA!, GETA+3, GETA+4
SDCV	PTL+10~, PTL+11, PTL+12, PTL+13
>> SDD	LOOP, PTL+11, PTL+20, CCLK, CHECK+1, ACTIVE+3
SDDATA	LOOP+7~, LOOP+10*, PTL+1, PTL+13, PTL+24, PTL+45, PTL+46, PTL+48, PTL+49, GETA
SDDATAC	LOOP+7~, LOOP+10*, PTL+1
SDDFN	LOOP+7~, LOOP+8*, LOOP+10
>> SDDIF	ENR*, ENR+1
>> SDDIF1	ENR*, ENR+1
>> SDEA	GETA+4*, CKCED, ENR+1
>> SDEC	GETA+1*, GETA+2
>> SDEDT	ENR*
SDELAR	PTL+35!, PTL+40!
SDELAR(3	PTL+38, PTL+39
>> SDEM	PTL+16, GETA+1, ENR+1
>> SDEM1	PTL+16, ENR+1*
>> SDEND	LOOP+5, LOOP+8, LOOP+12, PTL+4, CCLK, CCLK+1
>> SDFLG	LOOP+5*
SDFS	PTL+5*, MORE!
SDGAF	PTL+22~, PTL+25*
SDGAFST	PTL+22~, PTL+25*, PTL+26
SDMT	Q+2!
>> SDOI	PTL+1*, PTL+16
>> SDPAGE	LOOP+1, LOOP+5, LOOP+14*
>> SDPCMM	PTL+20
>> SDPCT	LOOP+2, LOOP+3, LOOP+5, LOOP+13, Q+2
>> SDPT0	CCLK*, CCLK+2
>> SDREV	ENR*
SDT	LOOP+7~*, LOOP+8, LOOP+10, PTL+6, MORE
SDX	PTL+18, Q+2!, ACTIVE+5, ACTIVE+6
>> SDXX	GETA+2*
SDY	PTL+7~*, Q
>> SDZ	PTL+14*
>> SDZ(	PTL+14
>> SDZ(3	GETA*
>> SDZ(4	GETA*
>> SDZ(5	GETA*
U	PTL+12, PTL+42, PTL+43, PTL+44, GETA+3, NCOUNT+3, NCHECK+1
V	PTL+45, PTL+46, PTL+49, Q+2!
VAQK	Q+2!
VAQK(	PTL+18
VAQK(1	PTL+13
VAQK(11	PTL+42
VAQK(12	PTL+15, GETA+4
VAQK(13	PTL+15
VAQK(2	PTL+8, PTL+13
VAQK(6	PTL+24, PTL+44, GETA+1
VAROOT	PTL+36*, PTL+40!
>> VAUTC	LOOP, ACTIVE+2
>> VAUTD	CHECK
>> VAUTD(	CHECK
>> VAUTSTR	NCLINIC+5*
>> VAUTVB	NCLINIC+5*
>> X	PTL+5, PTL+14

Customize PDF page

Package: Scheduling

Routine: SDAL0

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
NCLINIC	;SCREEN CLINICS
PTL
NCHECK()	;EXTEND $T LOGIC COUNT, NO COUNT,or BOTH
GETA
NCOUNT	;COUNT, NON-COUNT, or BOTH FOR CLINIC SELECTION
CHECK()
Q
ENR
ACTIVE()	;Determine if clinic has activity to print
CCLK
CKCED
LOOP
MORE