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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDMULT

Package: Scheduling

Routine: SDMULT


Information

SDMULT ;ALB/TMP - MAKE MULTI-CLINIC APPOINTMENTS ; 02 Jan 2000 6:30 PM

Source Information

Source file <SDMULT.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Scheduling 6 (EN,EN2)^SDM  L^SDM1  (END,START)^SDMULT0  DT^SDNEXT  DT^SDUTL  $$CLNCK^SDUTL2  
VA Fileman 2 C^%DTC  ^DIC  
IHS Changes To Scheduling 1 ($$INACTMSG,$$PC)^BSDU  
Kernel 1 ^%ZIS  
Registration 1 2^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Scheduling 5 SD IHS MULT CLINIC  SDM0  SDMULT0  SDMULTICLINIC  SDNEXT  

Entry Points

Name Comments DBIA/ICR reference
1
RD ;S DIC="^SC(",DIC(0)="AEMQZ",DIC("S")="I $P(^(0),""^"",3)=""C"",'$G(^(""OOS""))",DIC("A")="Select CLINIC: " D ^DIC K DIC("S"),DIC("A") I X="",SDCT>1 G START^SDMULT0 ;IHS/ANMC/LJF 8/18/2000
C ;I $D(^SC(+Y,"SDPROT")),$P(^("SDPROT"),"^",1)="Y",'$D(^SC(+Y,"SDPRIV",DUZ)) W !,*7,"Access to ",$$CNAM(+Y)," is prohibited!",!,"Only users with a special code may access this clinic.",*7 G RD
CNAM(SDCL) ;Return clinic name
LEN

External References

Name Field # of Occurrence
C^%DTC LEN+1, LEN+3
^%ZIS SDMULT+6
$$INACTMSG^BSDU RD+1
$$PC^BSDU C+1
^DIC 1, RD+1
EN^SDM 1+3
EN2^SDM C+2
L^SDM1 LEN
END^SDMULT0 1, 1+3, RD+2, RD+3, LEN
START^SDMULT0 RD+1, LEN+4
DT^SDNEXT LEN+4
DT^SDUTL SDMULT+5, 1+4
$$CLNCK^SDUTL2 RD+5
2^VADPT 1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,*7,"PATIENT HAS DIED."
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!,"YOU MAY SELECT FROM 2-4 CLINICS",!
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !,*7,"MUST HAVE MORE THAN 1 CLINIC"
  • Line Location: RD+4
Function Call: WRITE
  • Prompt: !,?5,"Clinic MUST be corrected before continuing."
  • Line Location: RD+6
Function Call: WRITE
  • Prompt: !,*7,"This clinic has already been selected"
  • Line Location: RD+7
Function Call: WRITE
  • Prompt: !,*7,"This is a PRINCIPLE clinic, please select one of its subordinate clinics"
  • Line Location: RD+10
Function Call: WRITE
  • Prompt: !,*7,"Access to ",$$CNAM(+Y)," is prohibited!",!,"Only users with a special code may access this clinic.",*7
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,*7,"Access to ",$$CNAM(+Y)," is prohibited!",!,"Only users with a special code may access this clinic.",*7
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,"CLINIC IGNORED!!"
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !,"No appt length specified - cannot book appts"
  • Line Location: C+3
Function Call: READ
  • Prompt: "// "
  • Timeout: DTIME
  • Variable: X
  • Line Location: LEN+0
Function Call: WRITE
  • Prompt: !," APPOINTMENT LENGTH DESIRED: ",+SL
  • Line Location: LEN+0
Function Call: WRITE
  • Prompt: !,*7,$P(Y,"^",2)," has max # of days for future booking undef or = 0"
  • Line Location: LEN+2
Routine Call
  • DIC
  • Line Location:
    • 1
    • RD+1
Routine Call
  • %ZIS
  • Line Location:
    • SDMULT+6

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)
^DPT - [#2] 1+2
^SC - [#44] C+1, C+2, C+3, LEN+1, LEN+3, CNAM+3
^SC("AIHSPC" RD+10

Label References

Name Line Occurrences
$$CNAM C+1
1 1+1
C RD+3
LEN LEN
RD RD+4, RD+6, RD+7, RD+10, C+1, C+2, C+3, LEN+2, LEN+4

Naked Globals

Name Field # of Occurrence
^( 1+2
^("SDP" LEN+1, LEN+3
^("SDPROT" C+1
^("SL" C+2, C+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> COLLAT 1+2*
>> DFN 1*, 1+2
>> DIC 1*, RD+1*
>> DIC("A" RD+1*!
>> DIC("S" RD+1*!
>> DIC("W" RD+1*
>> DIC(0 1*, RD+1*
DT SDMULT+5, 1+4, RD+3, LEN+1, LEN+2, LEN+3
DTIME LEN
>> DTOUT RD+2
DUZ C+1
FND 1!, 1+3!, RD+2!
ION SDMULT+6
IOP SDMULT+6*!
>> POP LEN*
>> S LEN*
>> SC C+2*
SD C+2!
SDAPTYP 1!
SDC 1+4!
SDC( LEN+3*
SDC1 SDMULT+6!
SDC1( RD+7, LEN+3*
SDCL CNAM~, CNAM+3
>> SDCT 1+4*, RD+1, LEN+3*, LEN+4
SDHY C+2*!
>> SDL C+4*, LEN*, LEN+3
>> SDMAX 1+4*, RD+3*, LEN+1*, LEN+2, LEN+3*
SDMLT 1*!
>> SDMLT1 1+3
>> SDMM 1+2*
>> SDMULT C+2*
SDNEXT SDMULT+6!, 1*, RD+3, C+2, LEN+4
SDOK C+2*, C+3!
SDRES RD+5~*, RD+6
>> SDW 1+2*
SDX CNAM+2~, CNAM+3*, CNAM+4
>> SDXXX 1+3*
>> SL C+4*, LEN
U LEN+3, CNAM+3
>> VADM(6 1+1
>> X 1, RD+1, RD+2, RD+3, RD+4, LEN*, LEN+1, LEN+3
>> X1 LEN+1*, LEN+3*
>> X2 LEN+1*, LEN+3*
>> Y 1, 1+1, RD+5, RD+7, RD+10, C+1, C+2*, C+3, LEN+1, LEN+2
, LEN+3
Info |  Source |  Call Graph |  Caller 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