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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDB0

Package: Scheduling

Routine: SDB0


Information

SDB0 ;FLA/RF,BSN/GRR,ALB/LDB - PATTERN VALIDATION FOR CLINIC; 11 FEB 88@1200

Source Information

Source file <SDB0.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Scheduling 2 (C,G1)^SDB  (D,DEL1)^SDB1  
IHS Changes To Scheduling 1 ASK^BSDB0  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Scheduling 3 SDB  SDNACT1  SDREACT  

Entry Points

Name Comments DBIA/ICR reference
G4A
G5
G4
G3 ;R " NO. SLOTS: 1// ",NSL:DTIME S:NSL="" NSL=1 G:NSL["^" G2 I NSL'?1N.N W *7," ??" G G3 ;IHS/ANMC/LJF 12/08/2000
G2 ;R !!?2,"TIME: ",X:DTIME G:X="" G5 G:X["^"&('CNT) G1^SDB I X'?4N1"-"4N W " [ LIKE 0800-1200 ]" G G2 ;IHS/ANMC/LJF 12/08/2000
G3A
EN1
W5
CKSI1 ;F SDJJ=$N(Y(-1)):$S(HSI=1:4,1:2) Q:SDJJ>41 S:$D(Y(SDJJ)) HY(SDJJ)="" I '$D(Y(SDJJ)) Q:$N(Y(SDJJ))'>0 S SDJJ=$N(Y(SDJJ-1))-$S(HSI=1:4,1:2) ;IHS/ANMC/LJF 11/30/2000
WMIL

External References

Name Field # of Occurrence
ASK^BSDB0 G2+2
C^SDB G5
G1^SDB G2+4
D^SDB1 G5+7, G5+13
DEL1^SDB1 G5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?37,$P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR",U,DOW+1),"DAY",!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: " [ LIKE 0800-1200 ]"
  • Line Location: G2+0
Function Call: WRITE
  • Prompt: " [ CANNOT BE EARLIER THAN CLINIC START TIME ]"
  • Line Location: G2+11
Function Call: WRITE
  • Prompt: " [ MUST BEGIN AFTER LAST ENDING TIME ]"
  • Line Location: G2+12
Function Call: WRITE
  • Prompt: " [ MUST END AFTER BEGIN TIME ]"
  • Line Location: G2+13
Function Call: WRITE
  • Prompt: " [ TIME SPAN ENTERED NOT CONSISTENT WITH ",SLT," MIN APPT LENGTH ]"
  • Line Location: G2+15
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: G3+0
Function Call: READ
  • Prompt: " NO. SLOTS: 1// "
  • Timeout: DTIME
  • Variable: NSL
  • Line Location: G3+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: G3+1
Function Call: WRITE
  • Prompt: *7,!,"DELETE "
  • Line Location: G5+7
Function Call: WRITE
  • Prompt: !,X,!,"...PATTERN "
  • Line Location: G5+11
Function Call: WRITE
  • Prompt: *7,"TOO WIDE TO FIT ON 80-CHAR SCREEN!"
  • Line Location: G5+11
Function Call: WRITE
  • Prompt: !,X,!,"...PATTERN "
  • Line Location: G5+12
Function Call: WRITE
  • Prompt: *7,"TOO WIDE TO FIT ON THE SCREEN!"
  • Line Location: G5+12
Function Call: WRITE
  • Prompt: "OK FOR "
  • Line Location: G5+13
Function Call: WRITE
  • Prompt: " [ MUST SCHEDULE APPTS ON 5 MIN BOUNDARIES ]"
  • Line Location: W5+0
Function Call: WRITE
  • Prompt: " [ MUST ENTER VALID MILITARY TIME FORMATS ]"
  • Line Location: WMIL+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] G4*, G5*, G5+1, G5+4!, G5+6, G5+12!

Label References

Name Line Occurrences
CKSI1 G5+8
G2 G2+7, G2+8, G2+9, G2+10, G2+11, G2+12, G2+13, G2+15, G3+1, G4A+2
, G5+12
G3 G3+1
G3A G3A
G4 G4A+3
G4A G4A
G5 G2+1, G2+4
W5 G2+8, G2+10
WMIL G2+7, G2+9

Naked Globals

Name Field # of Occurrence
^( G5+6
^(0 G5+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BSDSLOT EN1+3~, G3+1, G3+2*
BSDTIME EN1+3~, G2+1, G2+2*, G2+3*
>> CNT EN1+2*, G2+4, G4*, G5, G5+4, G5+12*
>> D G5+6*
>> D0 EN1+2*, G4, G5, G5+1, G5+4, G5+6, G5+12
>> DA G4, G5, G5+1, G5+4, G5+6, G5+12
>> DH G5+2*, G5+6, G5+7*, G5+10*
>> DO G5+7*, G5+10*
>> DOW EN1+2
DTIME G3+1
>> H1 G2+14*, G2+15*, G3+3*, G4, G4A*, G4A+1*, G4A+2
>> H2 G2+14*, G2+15*, G3+3*, G3A*, G3A+1*, G4A+2
>> HHY CKSI1+5*
>> HSI EN1*, EN1+1*, G5+8, CKSI1+3
>> HY( CKSI1+3*, CKSI1+5
>> LT EN1+2*, G2+12, G3+3*, G5+12*
>> M1 G2+14*, G2+15, G3+3*, G4, G4+1*, G4A*, G4A+1*, G4A+2
>> M2 G2+14*, G2+15, G3+3*, G3+4*, G3A*, G3A+1*, G4A+2
>> NSL G3+1*, G3+2*, G4
>> SD EN1+2
SD1 G2+7*, G2+8, G2+9*, G2+10, G2+15*, G2+16!
>> SDCL G2+14*
>> SDEL G5+7*, G5+12*
>> SDJJ CKSI1+3*
>> SDL G2+15*
>> SDREACT G5
>> SDTOP G5
>> SI EN1, EN1+1*, G5+2, G5+6, G5+10, G5+12
>> SL EN1, G5+2
>> SLT EN1*, G2+15, G3+4, G4+1
>> STARTDAY EN1+2, G5+6
>> STIME EN1+2*, G2+11, G5+12
>> T1 G2+6*, G2+7, G2+11, G2+12, G2+13, G2+14, G3+3
>> T2 G2+6*, G2+9, G2+13, G2+14, G3+3
U EN1+2, G2+3, G2+4, G3+2, G5+6
>> X G2+3*, G2+4, G2+6, G5+1*, G5+6*, G5+7*, G5+10*, G5+12
Y G5+6*, G5+7, G5+10*, G5+12!
Y( G5+6*, G5+10, CKSI1+3, CKSI1+5!
>> ZDX G5+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All