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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDAL0

Package: Scheduling

Routine: SDAL0


Information

SDAL0 ;ALB/GRR,TMP,MJK - APPOINTMENT LIST (CONTINUED FROM SDAL) ; 29 Jun 99 04:11PM

Source Information

Source file <SDAL0.m>

Call Graph

Call Graph Total: 11

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  

Caller Graph

Caller Graph Total: 3

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

Entry Points

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

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All