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

Package: Scheduling

Routine: SDCLK


Information

SDCLK ;ALB/MJB/MLI - LOOK UP CLERK WHO MADE APPOINTMENT ; 22 FEB 88

Source Information

Source file <SDCLK.m>

Entry Points

Name Comments DBIA/ICR reference
EN
C
A
P
STATUS
Q
ON
QA
H
L
P5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !,"No appointments scheduled for this patient."
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: "There are no appointments for this patient to this clinic."
  • Line Location: C+4
Function Call: READ
  • Formatting: !
  • Prompt: "Enter APPOINTMENT DATE/TIME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"Patient Name",?32,": ",$P(^(0),U),?60,"SSN: ",$E(SDS,1,3),"-",$E(SDS,4,5),"-",$E(SDS,6,10),!,"Clinic Name",?32,": ",$S($D(^SC(SDIFN,0)):$P(^(0),U),1:""),!,"Appointment Date/Time",?32,": "
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !!,"Appointment Made By",?32,": "
  • Line Location: P+4
Function Call: WRITE
  • Prompt: $S($D(^VA(200,SDC,0)):$P(^(0),U),1:"")
  • Condition for execution: SDC
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !,"Date Appointment Made",?32,": "
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !,"Date Appointment Made",?32,": "
  • Line Location: P+4
Function Call: WRITE
  • Prompt: $S(SDPP=1:"C&P",SDPP=2:"10-10",SDPP=3:"SCHEDULED VISIT",SDPP=4:"UNSCHED. VISIT",1:"")
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !,"Appointment Type",?32,": "
  • Line Location: P+6
Function Call: WRITE
  • Prompt: SDAP1
  • Line Location: P+6
Function Call: WRITE
  • Prompt: !,"Appt. Cancelled to make ",!,"this appt.",?32,": ",$P(^SC($P(SDP,U,17),0),U)
  • Line Location: P+7
Function Call: WRITE
  • Prompt: !!,"Appointment Status",?32,": "
  • Line Location: STATUS+0
Function Call: WRITE
  • Prompt: $P($P($P(SDSTAT,"^",3),";",SD9),":",2)
  • Line Location: STATUS+0
Function Call: WRITE
  • Prompt: !,"No-show/Cancelled By",?32,": ",SDP1
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: !,"No-show/Cancel Date/Time"
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: !,"No-show/Cancel Date/Time"
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: !,"Cancellation Reason",?32,": ",$P(^SD(409.2,SDP2,0),U)
  • Line Location: STATUS+2
Function Call: WRITE
  • Prompt: !,"Cancellation Remarks",?32,": "
  • Line Location: STATUS+2
Function Call: WRITE
  • Prompt: !,"Cancellation Remarks",?32,": "
  • Line Location: STATUS+2
Function Call: WRITE
  • Prompt: !,"Rescheduled for",?32,": "
  • Line Location: STATUS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: STATUS+4
Function Call: WRITE
  • Prompt: !,"No appointments on date selected."
  • Line Location: ON+2
Function Call: WRITE
  • Prompt: @IOF,"Choose from: "
  • Line Location: ON+3
Function Call: WRITE
  • Prompt: !,?5,I,")",?9
  • Line Location: ON+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: QA+0
Function Call: WRITE
  • Prompt: !!,"Enter:",!,"(1) '??' to see a list of appointments.",!,"(2) Date alone to see appointments for this patient to this clinic on a date.",!,"(3) A valid appointment date after JAN 1, 1982.",!!
  • Line Location: H+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P5+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call