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

Package: Scheduling

Routine: SDASO


Information

SDASO ;MAN/GRR - APPEND TESTS TO PENDING APPOINTMENT ; 22 DEC 83 11:02 am

Source Information

Source file <SDASO.m>

Entry Points

Name Comments DBIA/ICR reference
RD
WH
NOPE
NO
FLEN
CHKSO
END
HLP
CO(DFN,SDT,ACTION) ; -- can action be performed ; has appt been co'ed

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,*7,"PATIENT NOT FOUND",*7,*7
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,ZZ,") "
  • Line Location: RD+3
Function Call: WRITE
  • Prompt: " ",$J(X,8)," (",$P(Z(ZZ),"^",3)," MINUTES) ",$P(^SC($P(Z(ZZ),"^",2),0),"^",1)," ",$P(Z(ZZ),"^",4)
  • Line Location: RD+3
Function Call: READ
  • Formatting: !!
  • Prompt: "SCHEDULE TESTS FOR WHICH NUMBERED APPOINTMENT: "
  • Variable: APP
  • Timeout: DTIME
  • Line Location: WH+0
Function Call: WRITE
  • Prompt: !,"INVALID ENTRY, MUST BE NUMERIC"
  • Line Location: WH+1
Function Call: WRITE
  • Prompt: !,"ENTER A NUMBER BETWEEN 1 AND ",ZZ
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: !,"ENTER A NUMBER BETWEEN 1 AND ",ZZ
  • Line Location: WH+3
Function Call: WRITE
  • Prompt: !,"NO PENDING APPOINTMENTS",*7,*7,*7
  • Line Location: NO+0
Function Call: WRITE
  • Prompt: !,"Enter the number that corresponds to the appointment."
  • Line Location: HLP+0

FileMan Files Accessed Via FileMan Db Call

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