Routine: SDAMOWB

Information

SDAMOWB ;ALB/CAW - Waiting Times Build Arrays; 8-NOV-93

Source Information

Source file <SDAMOWB.m>

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
VA Fileman	1	^%DTC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SDAMOW1

Entry Points

Name	Comments	DBIA/ICR reference
EXTERN(SORTV,X)	;returns the external value of sort variables ; SORTV: 1=CLINIC,2=STOP CODE,3=DAY OF WEEK ; X: Internal value
QTRJ
AUGMENT(WAIT,WAIT1,TOT,NODE)	;increment summary node
SET(HOW,CLIN,STOP,DATE,PAT)	; Set how the sort goes ; Input: HOW = which sort was selected ; CLIN = clinic ifn ; STOP = stop code ifn ; DATE = date in fm format ; PAT = patient ifn ; Output: LEVE1-LEVEL4 in external format
REJECT()	;set x conditions for rejection ; returns: 1\|reject or 0\|meets selection criteria
STORE(HOW,DIV,CLIN,STOP,DATE,PAT)	;save data in tmp variable
MIN(X,X1)	;difference between x & x1 in minutes ; for positive result, x is BEFORE x1

External References

Name	Field # of Occurrence
^%DTC	MIN+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	EXTERN+6
^DPT - [#2]	EXTERN+7
^SC - [#44]	EXTERN+5
^TMP("SDWAIT"	STORE+9, STORE+11
^TMP("SDWTTOT"	STORE+12
^TMP("SDWTTOTD"	STORE+14
^TMP("SDWTTOTG"	STORE+13

Label References

Name	Line Occurrences
$$AUGMENT	STORE+12, STORE+13, STORE+14
$$EXTERN	SET+8, SET+9, SET+10, SET+11, SET+12
$$MIN	STORE+4, STORE+5, STORE+6
QTRJ	REJECT+3, REJECT+5, REJECT+6
SET	STORE+7

Naked Globals

Name	Field # of Occurrence
^("DIV"	STORE+14*
^("GRAND"	STORE+13*
^("PRIM"	STORE+12*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLIN	STORE~, STORE+7, SET~, SET+8, SET+9, SET+10, SET+11, SET+12
DATE	STORE~, STORE+7, SET~, SET+8, SET+9, SET+10, SET+11, SET+12
>> DFN	EXTERN+7, SET+12
DIV	STORE~, STORE+9, STORE+11, STORE+12
HOW	STORE~, STORE+7, STORE+8, STORE+10, SET~, SET+8, SET+9, SET+10, SET+11, SET+12
>> LEVEL1	STORE+9, STORE+11, STORE+12, SET+8, SET+9, SET+10, SET+11, SET+12*
>> LEVEL2	STORE+9, STORE+11, SET+8, SET+9, SET+10, SET+11, SET+12*
>> LEVEL3	STORE+9, STORE+11, SET+8, SET+9, SET+10, SET+11, SET+12*
>> LEVEL4	STORE+11, SET+10, SET+11
NODE	AUGMENT~, AUGMENT+3, AUGMENT+4, AUGMENT+5, AUGMENT+6, AUGMENT+7
PAT	STORE~, STORE+7, SET~, SET+8, SET+9, SET+10, SET+11
>> SDCHKIN	STORE+4, STORE+6
>> SDCHKOUT	STORE+5, STORE+6
>> SDCLIN	REJECT+6
>> SDDATA	STORE+9, STORE+11
>> SDDIV	STORE+14, REJECT+3
>> SDOTTIME	STORE+5*, STORE+9, STORE+11, STORE+12, STORE+13, STORE+14
>> SDSTOP	REJECT+6
>> SDT	STORE+4, STORE+5
>> SDTTTIME	STORE+6*, STORE+9, STORE+11, STORE+12, STORE+13, STORE+14
>> SDWTTIME	STORE+4*, STORE+9, STORE+11, STORE+12, STORE+13, STORE+14
>> SDX	STORE+12, STORE+13, STORE+14*
SORTV	EXTERN~, EXTERN+5, EXTERN+6, EXTERN+7
STOP	STORE~, STORE+7, SET~, SET+10, SET+11
TOT	AUGMENT~, AUGMENT+6
U	STORE+8, STORE+9, STORE+10, STORE+11, AUGMENT+3, AUGMENT+4, AUGMENT+5, AUGMENT+6, EXTERN+5, EXTERN+6 , EXTERN+7
>> VAUTC	REJECT+5
>> VAUTC(	REJECT+6
>> VAUTD	REJECT+3
>> VAUTD(	REJECT+3
>> VAUTS	REJECT+5
>> VAUTS(	REJECT+6
WAIT	AUGMENT~, AUGMENT+4
WAIT1	AUGMENT~, AUGMENT+5
X	MIN~, MIN+4, REJECT+2~, REJECT+3, REJECT+4, REJECT+5, REJECT+6, QTRJ, EXTERN~, EXTERN+5 , EXTERN+6
X1	MIN~, MIN+4
>> X2	MIN+4*
Y	MIN+3~, MIN+4, MIN+5, EXTERN+3~, EXTERN+5, EXTERN+6, EXTERN+7, EXTERN+8

Customize PDF page

Package: Scheduling

Routine: SDAMOWB

Call Graph Total: 1

Caller Graph Total: 1