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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDAL0

Package: Scheduling

Routine: SDAL0


Information

SDAL0 ;ALB/GRR,TMP,MJK,GXT - APPOINTMENT LIST (CONTINUED FROM SDAL) ;13 Jun 18 08:18AM

Source Information

Source file <SDAL0.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDPCT)\2),SDPCT
  • Line Location: LOOP+14
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),6,9),1:"")
  • Line Location: PTL+15
Function Call: WRITE
  • Prompt: ?48+INC,$J(X,8)
  • Line Location: PTL+16
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: INC<16
  • Line Location: PTL+16
Function Call: WRITE
  • Prompt: !,?41,VAQK(12)
  • Line Location: PTL+17
Function Call: WRITE
  • Prompt: !,?41,VAQK(13)
  • Condition for execution: VAQK(13)]""
  • Line Location: PTL+17
Function Call: WRITE
  • Prompt: !,?10,"Phone #: ",$P($G(^DPT(DFN,.13)),"^",1)
  • Line Location: PTL+19
Function Call: WRITE
  • Prompt: " ",SDCLAR(PCL)," "
  • Line Location: PTL+35
Function Call: WRITE
  • Prompt: $P(SDELAR(3),"^",2),"% "
  • Line Location: PTL+41
Function Call: WRITE
  • Prompt: !,?15,"Means Test: ** ",$P(VAQK(11),"^",2)," **"
  • Line Location: PTL+44
Function Call: WRITE
  • Prompt: " Last Test: ",$$FDATE^SDUL1($P($$LST^DGMTU(DFN),U,2))
  • Line Location: PTL+44
Function Call: WRITE
  • Prompt: !,?15,"Co-Pay Status: ","**"_$P(SDCOPS,U,3)_"**"," Last Test: ",$$FDATE^SDUL1($P(SDCOPS,U,2))
  • Line Location: PTL+45
Function Call: WRITE
  • Prompt: !,?15,"** COLLATERAL **"
  • Line Location: PTL+46
Function Call: WRITE
  • Prompt: !,?15,"** COLLATERAL **"
  • Line Location: PTL+47
Function Call: WRITE
  • Prompt: !,?15,"** COLLATERAL VISIT **"
  • Line Location: PTL+50
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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call