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

Package: Scheduling

Routine: SDDSO


Information

SDDSO ;BSN/GRR - DELETE ANCILLARY TESTS ;5/8/91 16:23

Source Information

Source file <SDDSO.m>

Entry Points

Name Comments DBIA/ICR reference
RD
WH1
WH
NO
FLEN
CHKSO
TST
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !,*7,*7,"PATIENT NOT FOUND",*7,*7
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,ZZ,") "
  • Line Location: WH1+0
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: WH1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "DELETE TEST(S) FOR WHICH NUMBERED APPOINTMENT: "
  • Variable: APP
  • Timeout: DTIME
  • Line Location: WH+0
Function Call: WRITE
  • Prompt: !,"INVALID ENTRY, MUST BE NUMERIC"
  • Line Location: WH+0
Function Call: WRITE
  • Prompt: !,"ENTER A NUMBER BETWEEN 1 AND ",ZZ
  • Line Location: WH+1
Function Call: WRITE
  • Prompt: !,*7,"NO TEST ASSOCIATED WITH THIS APPOINTMENT"
  • Line Location: WH+3
Function Call: WRITE
  • Prompt: !,*7,"NOTHING DELETED"
  • Line Location: WH+7
Function Call: WRITE
  • Prompt: !,"NO PENDING APPOINTMENTS",*7,*7,*7
  • Line Location: NO+0
Function Call: WRITE
  • Prompt: !,"RESPOND YES OR NO"
  • Line Location: TST+0
Function Call: WRITE
  • Prompt: ?40,"DELETED"
  • Line Location: TST+1

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