Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Scheduling 7 $$RESTPT^SCAPMCU4  MAIL^SCMCCON  (AFTER,BEFORE,INVOKE)^SCMCEV3  (,DT)^SDM0  CS^SDM1A  ^SDM4  I^SDUTL  
VA FileMan 5 ^%DT  ^DIC  YN^DICN  ^DIE  DT^DIQ  
Registration 1 KVAR^VADPT  

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

External References

Name Field # of Occurrence
^%DT GETED+1
^DIC EN1, EN1+8
YN^DICN ENR, ASKC
^DIE PEND+4, PEND+6, GETED+2
DT^DIQ WRT
$$RESTPT^SCAPMCU4 EN2+5
MAIL^SCMCCON GETED+3, ASKC+1
AFTER^SCMCEV3 GETED+7
BEFORE^SCMCEV3 GETED
INVOKE^SCMCEV3 GETED+7
^SDM0 EN1+8, EN2, GETED+11, ASKC+1
DT^SDM0 EN+2, PEND+1, CHKSO+1
CS^SDM1A EN1+7
^SDM4 EN1+11
I^SDUTL EN1
KVAR^VADPT END

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
Routine Call
  • DIC
  • Line Location:
    • EN1
    • EN1+8
Routine Call
  • DIE
  • Line Location:
    • PEND+4
    • PEND+6
    • GETED+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGS(41.1 - [#41.1] EN+2
^DPT - [#2] EN1+10, EN+1, PEND, PEND+1, PEND+3, PEND+5, E+1, EN2, CHKSO, CHKSO+1
, WRT
^SC - [#44] EN1+2, EN1+5, EN1+6, PEND+1, EN2+1, EN2+2, CHKSO+2
^SD(409.1 - [#409.1] CHKSO

Label References

Name Line Occurrences
ASKC ENR+1, ASKC
CHKSO PEND+1
EN EN1+12
END EN1, EN1+6, EN1+8, EN1+10, EN1+11, EN1+12, PEND
ENR ENR
GETED GETED+1
HELP PEND
PEND HELP
SDM EN1+6, EN1+8, EN1+10, EN1+11, EN1+12, OERR
WRT EN2

Naked Globals

Name Field # of Occurrence
^( EN1+10, PEND+1, PEND+5, E+1, EN2, CHKSO+2
^("I" EN1+2
^("SDPROT" EN1+6
^("SL" EN1
^(0 EN+2, PEND+1, EN2, CHKSO, CHKSO+1, CHKSO+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENR*, ENR+1, ASKC*, ASKC+1, END!
%DT GETED+1*, END!
>> %Y ENR
ARG END+1!
ASKC END!
CCX END+1!
CCXN END+1!
COLLAT EN1+11, END+1!
COV PEND+1, CHKSO*, END!
DA PEND+1*, PEND+3*, PEND+5*, GETED+2*, END!
>> DFN EN1+8*, EN1+9*, EN1+10, EN+1, EN+2, PEND, PEND+1, PEND+3, PEND+5, E+1
, EN2, EN2+5, GETED, GETED+2, GETED+3, GETED+7, ASKC+1, CHKSO, CHKSO+1, CHKSO+2
, OERR*, WRT
DIC EN1*!, EN1+8*, GETED+2*, END!
DIC("A" EN1*
DIC("S" EN1*
DIC(0 EN1*, EN1+8*
DIE EN1+8*, PEND+4*, PEND+6*, GETED+2*, END!
DP GETED+2*, GETED+6!, END!
DR PEND+3*, PEND+4!, PEND+5*, PEND+6!, GETED+2*, GETED+6!, ASKC+1!, END!
DR(2 GETED+2*
DR(3 GETED+2*
DT EN+2, PEND, PEND+1, EN2+5, GETED+3, ASKC+1
DTIME PEND, GETED+1
>> DTOUT ENR*, ENR+1
DUZ EN1+6
HEY GETED+1*, GETED+2, END!
HSI EN1+5*, END!
HX END+1!
HY CHKSO*, CHKSO+1, CHKSO+2, CHKSO+3, END!
I EN+2*, END+1!
J CHKSO+2*, END!
>> ORACTION EN1+8
>> ORVP OERR
PXR END+1!
S END+1!
SB EN1+5*, END!
SC EN1+4, EN1+5*, EN1+6, EN2, EN2+1, END!
SCCLNM EN2+8*, GETED+3, GETED+6!, ASKC+1!
>> SCOKCONS EN2+12
SCREST EN2+5*, EN2+6, EN2+12, GETED+6!, ASKC+1!
SCRESTA EN2+4~
SCRESTA( EN2+11
SCTM EN2+7~, EN2+10*, EN2+11*
SD EN1+4!, END+1!
SD17 END!
>> SDAMERR EN1+6*, EN1+10*
SDAP16 END+1!
SDAPTYP EN1+1!, END!
>> SDAT16 PEND+1, CHKSO*
>> SDCLN EN1, EN1+1, EN1+6, EN1+8, EN1+11, EN1+12
SDDIF EN1+5*, END!
SDDIS EN2*, END+1!, WRT
SDEDT END+1!
>> SDFN EN1+8, EN1+9, EN1+10
SDIN EN1+1!, EN1+2*, EN1+3!
SDINA EN1+3!*, END+1!
SDJ CHKSO+1*, END!
SDLN PEND+1, CHKSO+2*, END!
SDMAX END!
>> SDMLT END+2
SDMLT1 EN!, PEND*, END+2!
SDMM SDM+7*, END+1!
SDPRCL EN2*!
SDRE EN1+1!, EN1+2*
SDSC END!
SDTY END+1!
SDU END!
SDW EN1+7*, E+1*, END+1!
SDXXX EN1+1!, EN1+12!, PEND+6, E+2
>> SDY ENR+1*, GETED+2
SDYC END!
SI EN1+5*, END!
SL EN1+5*, E, END!
SM END+1!
SS END+1!
SSC PEND+1, CHKSO*, CHKSO+2, END!
ST END+1!
STARTDAY EN1+5*, END!
STR EN1+5*, END!
TMPY GETED+4~, GETED+5*, GETED+8, GETED+9, GETED+10!
U EN1+2, EN1+5, EN1+6, EN1+8, EN1+10, EN, EN+2, PEND+1, PEND+3, PEND+5
, E, EN2, EN2+2, CHKSO, CHKSO+1, CHKSO+2, WRT
>> VADM(5 EN2+1
>> VADM(7 EN+1
>> VAEL(9 EN
WY EN1+7*, END+1!
X EN1+5*, EN1+8, PEND*, EN2*, EN2+1*, ENR, GETED+1*, END+1!, WRT
>> XQORQUIT OERR*
XX EN2*, END+1!, WRT
Y EN1, EN1+1*, EN1+2, EN1+4, EN1+5!, EN1+8, EN+1*, EN+2*, PEND+1*, E*
, EN2*, EN2+1*, EN2+2*, EN2+8, ENR, ENR+1, GETED+1, GETED+5, GETED+8*, GETED+9!
, GETED+11, CHKSO, CHKSO+1*, CHKSO+3*, END+1!, WRT*
Y(0 EN+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All