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

Package: IHS Changes To Scheduling

Routine: BSDC


Information

BSDC ;MAN/GRR,ALB/LDB - CANCEL A CLINIC'S AVAILABILITY BY DATE RANGE ; [ 01/09/2003 1:52 PM ]

Source Information

Source file <BSDC.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Scheduling 8 ($$HANDLE,BEFORE,CANCEL)^SDAMEVT  (ASKL,CHKEND,END)^SDC0  ^SDC1  (,TC)^SDC2  $$COED^SDC4  DOW^SDM0  $$EXAE^SDOE  (DTS,RT)^SDUTL  
VA Fileman 4 ^%DT  NOW^%DTC  ^DIC  YN^DICN  
IHS Changes To ADT 1 ($$READ,MSG)^BDGF  
IHS Changes To Scheduling 1 ($$INACTMSG,$$OWNER)^BSDU  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Registration 1 LO^DGUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Scheduling 1 BSDAVAIL  

Entry Points

Name Comments DBIA/ICR reference
ROPT
ALL ;D S S ^(1)=" "_$E(SD,6,7)_" **CANCELLED**",FR=SD,TO=SD+.9 ;NAKED REFERENCE - ^SC(IFN,"ST",Date,1)
B
F
C
SDC1
S
N
ASKQUIT ;-- ask if they want to quit cancelling
SKIP
CK1
T
W
WP
EVT ; -- separate tag if need to NEW vars
; -- cancel event
GETDATES(CLNE) ;-- get date range to cancel availability
MORE

External References

Name Field # of Occurrence
^%DT GETDATES+1, GETDATES+4
NOW^%DTC SDC1+22
$$READ^BDGF SDC1+12, ALL+1, ASKQUIT+2
MSG^BDGF SDC1+4
$$INACTMSG^BSDU SDC1+2
$$OWNER^BSDU SDC1+4
LO^DGUTL SDC1
^DIC SDC1+2
YN^DICN W, WP
$$HANDLE^SDAMEVT C+2
BEFORE^SDAMEVT C+3
CANCEL^SDAMEVT EVT+3
ASKL^SDC0 SDC1+26
CHKEND^SDC0 C
END^SDC0 SDC1+2, N+3
^SDC1 N+3
^SDC2 N+4
TC^SDC2 F, T
$$COED^SDC4 W+1, T+1
DOW^SDM0 B
$$EXAE^SDOE CK1+2
DTS^SDUTL SDC1+23, SDC1+24
RT^SDUTL MORE+3
$$FMADD^XLFDT SDC1+16
$$FMTE^XLFDT SDC1+12, SDC1+20, N

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Cancelling clinic for date: "_$$FMTE^XLFDT(SD)
  • Line Location: SDC1+20
Function Call: WRITE
  • Prompt: Y,SDRE1
  • Line Location: SDC1+24
Function Call: WRITE
  • Prompt: !,"APPOINTMENTS HAVE ALREADY BEEN CANCELLED",!,*7
  • Line Location: SDC1+26
Function Call: WRITE
  • Prompt: !,*7,"CLINIC DOES NOT MEET ON "_$$FMTE^XLFDT(SD)
  • Line Location: N+0
Function Call: WRITE
  • Prompt: *7,!?5,"NO APPOINTMENTS SCHEDULED"
  • Line Location: N+1
Function Call: WRITE
  • Prompt: !,"FIRST, I'LL LIST THE EXISTING APPOINTMENTS",!
  • Line Location: N+2
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"REPLY YES (Y) OR NO (N)"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"REPLY YES (Y) OR NO (N)"
  • Line Location: WP+0
Function Call: READ
  • Prompt: "STARTING TIME: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: F+0
Function Call: READ
  • Prompt: "ENDING TIME: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !,"Ending time must be greater than starting time",*7
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !
  • Line Location: T+1
Function Call: READ
  • Prompt: "(OPTIONAL) MESSAGE: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: I
  • Line Location: ROPT+0
Function Call: WRITE
  • Prompt: !,"YOU MAY ENTER A MESSAGE CONCERNING THE CANCELLATION HERE"
  • Line Location: ROPT+0
Function Call: WRITE
  • Prompt: !!,"CANCELLED! "
  • Line Location: C+0
Routine Call
  • DIC
  • Line Location:
    • SDC1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] SDC1+26, MORE+2
^DPT - [#2] C+5, MORE+1*, CK1
^DPT("ASDPSD" MORE+2, CK1+3!
^SC - [#44] SDC1+2, SDC1+5, SDC1+9, SDC1+23, SDC1+25*, SDC1+26, N!, N+1, N+4, ROPT+1*
, ROPT+3*, SKIP*, SKIP+1, SKIP+2*, S, ALL+2*, C, C+1, C+2, C+4*
, B, MORE+2
^SC("AAS" CK1+1
^SC("ARAD" MORE
^SCE - [#409.68] CK1+2

Label References

Name Line Occurrences
ALL W+1
B SDC1+25
C SKIP+5, C+6
CK1 MORE+4
EVT MORE+4
F F, T+1
GETDATES SDC1+10
MORE C+5
N SDC1+25
ROPT ROPT
S SKIP+2, ALL+2
SDC1 SDC1+4
SKIP ROPT+1
T T
W N+1, W
WP W+1, WP

Naked Globals

Name Field # of Occurrence
^( B, MORE*, MORE+2!, CK1
^("CAN" S*
^("I" SDC1+23
^("MES" SKIP+2*
^("SL" SDC1+8
^(0 SDC1+25*, SDC1+26, C+5*, MORE+2, CK1
^(1 SDC1+26, N, SKIP+2, SKIP+5*, B

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SDC1+22*, W*, W+1, W+2, WP*, WP+1, F, SKIP+2, SKIP+3
%DT GETDATES+1*!, GETDATES+4*!
%DT("A" GETDATES+1*, GETDATES+4*
>> A ROPT+3*
>> ANS SDC1+26*
BSDBDT SDC1+11, SDC1+12, SDC1+15, SDC1+16, GETDATES+2!, GETDATES+3*, GETDATES+5!
BSDCLN SDC1+6~, SDC1+9*, SDC1+18
BSDEDT SDC1+12, SDC1+17, GETDATES+5!, GETDATES+6*
>> BSDI SDC1+15*, SDC1+16*, SDC1+17, SDC1+19
BSDII SDC1+13~, SDC1+14*, SDC1+15, SDC1+16
BSDMSG ROPT+2~*, ALL+1~*, ALL+2, MORE+1
BSDQ SDC1+6~, SDC1+7*, SDC1+14, SDC1+17*, N+3*, W+2*, WP+1*
BSDQUIT ASKQUIT+1~, ASKQUIT+2*, ASKQUIT+3
BSDSL SDC1+6~, SDC1+9*, SDC1+18
>> CDATE SDC1+19*
CLNE GETDATES~, GETDATES+1, GETDATES+4
>> DA(1 B*
>> DFN C+2*, C+3, C+5, MORE, MORE+1, MORE+2, CK1, CK1+1, CK1+2, CK1+3
, EVT+3
DH SDC1+25*, W*, SKIP+3*, SKIP+5*, C+5*, B*, MORE+3, MORE+4*, EVT+2~
>> DIC SDC1+2*
>> DIC("A" SDC1+2*!
>> DIC("S" SDC1+2*!
>> DIC("W" SDC1+2*
>> DIC(0 SDC1+2*
>> DO B*
>> DOW SDC1+25, B*
DTIME F, T, ROPT
DTOUT N+3!
DUOUT N+3!
DUZ SDC1+4, C+5
FR F*, T, T+1!, ROPT+1, ROPT+3, SKIP, SKIP+1, SKIP+2, SKIP+5*, ALL+2*
, C*, C+1, C+2, C+3, C+4, C+5, MORE, MORE+1, MORE+2, MORE+3
, CK1, CK1+1, CK1+2, CK1+3, EVT+2~
I ROPT*, ROPT+1, ROPT+2, SKIP+2*, SKIP+3*, SKIP+4*, SKIP+5, C+1*, C+2, C+3
, C+4, MORE+3, EVT+2~
I5 SKIP+4*!
>> NOAP SDC1*, N+1*, SKIP+1*
>> P SKIP+3*
SC SDC1+8*, SDC1+9, SDC1+18*, SDC1+23, SDC1+25, SDC1+26, N, N+1, N+4, W+1
, T+1, ROPT+1, ROPT+3, SKIP, SKIP+1, SKIP+2, S, ALL+2, C, C+1
, C+2, C+3, C+4, B, MORE, MORE+2, MORE+3, EVT+2~
>> SD SDC1+19*, SDC1+20, SDC1+24, SDC1+25, N, N+1, N+4, W+1, S, ALL+2
, B
SD1 MORE+5!, CK1*, CK1+1*
SDATA BSDC+8~, C+3, EVT+3!
SDCNHDL BSDC+8~, C+2*, C+3, EVT+3!
>> SDCNT ROPT+3*
SDCP SDC1!
SDH MORE+3*, MORE+4!
SDHTO T*, T+1!, SKIP
SDIN SDC1+23!*, SDC1+24
SDIV MORE+2*, MORE+5!, CK1+3
SDLT SDC1!
SDPL MORE+3*, MORE+5!, EVT+3
SDRE SDC1+23!*, SDC1+24
SDRE1 SDC1+23!*, SDC1+24
SDRT MORE+3*, MORE+5!
SDSC MORE+3*, MORE+5!, EVT+3
SDTIME SDC1+22*, SDC1+26*, C+5, EVT+2~
SDTTM MORE+3*, MORE+5!, EVT+3
>> SDV1 SDC1+26*, MORE+2*
SDX SDC1+26!, C!, MORE+5!, CK1*, CK1+1*, CK1+2*, CK1+3
>> SI SDC1+22*, SDC1+25, SKIP+3
>> SL SDC1+8*, SDC1+18*, SDC1+22
>> SS B*
ST F*, T+1!, SKIP+3
>> STARTDAY SDC1+22*
TO T*, T+1!, SKIP+1, ALL+2*, C
U SDC1+10, SDC1+22, SDC1+25, F, T
>> X F*, T*, SKIP+2, SKIP+3*, B*
>> Y SDC1+2, SDC1+4, SDC1+5, SDC1+8, SDC1+10, SDC1+23*, SDC1+24*, F, T, SKIP+2*
, SKIP+3*, B, GETDATES+2, GETDATES+3, GETDATES+5, GETDATES+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All