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

Package: Scheduling

Routine: SCMSPX1


Information

SCMSPX1 ;ALB/JRP - EXPORTED ROUTINE SDM WITH PATCH 41 APPLIED TO IT;03-JUL-96

Source Information

Source file <SCMSPX1.m>

Entry Points

Name Comments DBIA/ICR reference
SDM ;SF/GFT,ALB/BOK - MAKE AN APPOINTMENT ; 14 SEP 84 9:38 am
EN1
EN
PEND
E
EN2
ENR
GETED
ASKC
CHKSO
END
OERR
HELP
WRT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !,*7,"Access to this clinic is prohibited!!",!,"Only users with a special code may access this clinic",*7
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !?10,*7,"PATIENT HAS DIED."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !?3,*7,VADM(7)
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"SCHEDULED FOR ADMISSION ON "
  • Line Location: EN+2
Function Call: READ
  • Formatting: !
  • Prompt: "DISPLAY PENDING APPOINTMENTS: NO//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: PEND+0
Function Call: WRITE
  • Prompt: I
  • Condition for execution: $N(^DPT(DFN,"S",DT))'>DT !,"NO PENDING APPOINTMENTS" I $N(^DPT(DFN,"S",DT))>DT R !,"DISPLAY PENDING APPOINTMENTS: NO//",X:DTIME S:X="^" SDMLT1=1 G END:X["^",HELP:"YN"'[X
  • Line Location: PEND+0
Function Call: WRITE
  • Prompt: $P("YES",X,2)
  • Line Location: PEND+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>9
  • Line Location: PEND+1
Function Call: WRITE
  • Prompt: ?11
  • Line Location: PEND+1
Function Call: WRITE
  • Prompt: ?32
  • Line Location: PEND+1
Function Call: WRITE
  • Prompt: ?32
  • Line Location: PEND+1
Function Call: WRITE
  • Prompt: !,"NOTE - PATIENT IS NOW IN WARD "_SDW
  • Line Location: E+1
Function Call: WRITE
  • Prompt: !,?5,"Patient has restricted consults due to team assignment(s):"
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: !,?10,SCRESTA(SCTM)
  • Line Location: EN2+11
Function Call: WRITE
  • Prompt: !,"RESPOND YES (Y) OR NO (N)"
  • Line Location: ENR+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: GETED+1
Function Call: WRITE
  • Prompt: !,"REPLY YES (Y) OR NO (N)"
  • Line Location: ASKC+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>9
  • Line Location: CHKSO+1
Function Call: WRITE
  • Prompt: ?10,"*"
  • Line Location: CHKSO+1
Function Call: WRITE
  • Prompt: ?32,$S(SDJ=3:"LAB",SDJ=4:"XRAY",1:"EKG")
  • Line Location: CHKSO+1
Function Call: WRITE
  • Prompt: !,"YES - TO DISPLAY FUTURE APPOINTMENTS",!,"NO - FUTURE APPOINTMENTS NOT DISPLAYED"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: ?41,"DISCHARGED FROM CLINIC: "
  • Line Location: WRT+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