Routine: SDUL1

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Scheduling	4	($$CAPTION,HDR,LIST)^SDUL TERM^SDUL0 $$SETSTR^SDUL1 $$GET^SDUL4
VA Fileman	3	(,DD)^%DT (C,NOW)^%DTC ^DIR

Package	Total	Caller Graph
Scheduling	9	SDAL0 SDMHNS1 SDPPMT2 SDUL SDUL0 SDUL1 SDUL2 SDUL4 SDUL40

Entry Points

Name	Comments	DBIA/ICR reference
RANGEQ
FTR	; -- footer to print
FLDUPD(STR,FLD,ENTRY)	; -- update entry and field on screen ; STR := string to insert ; FLD := col name ; ENTRY := entry # in list
PRTQ
FDTTM(Y)	; -- return formatted date/time ; input: Y := internal date/time ; output: [returned] := formatted date and time
SETFLD(STR,VAR,FLD)	; -- set field in var ; input: STR := string to insert ; VAR := destination string ; FLD := col name
LOWER(X)	;
PRT	; -- prt screen (PS)
ERASE	;
PRTL	; -- prt list (PL)
FTIME(Y)	; -- return formatted date/time ; input: Y := internal date/time ; output: [returned] := formatted date and time
INSTR(STR,X,Y,LENGTH,ERASE)	; -- insert text ; STR := string to insert ; X := X coordinate ; Y := Y coordinate ; LENGTH := clear # of characters ; ERASE := erase chars first
PRTS	;
FULL	; set full scrolling region
CLEAR	; -- clear screen	ICR #661 Status: Retired Usage: Private
RANGE	; -- change date range ; input: ^TMP("SDUL DATA",$J SDULEVL,"DAYS") := number of days allowed ; SDB := default beginning date {optional}
PRTLS	;
PRTLQ
UPPER(X)	; -- convert to uppercase
PAUSE	;
NOW()	; -- return now
SETSTR(S,V,X,L)	; -- insert text(S) into variable(V) ; S := string to insert ; V := destination string ; X := insert @ col X ; L := clear # of chars (length)	ICR #661 Status: Retired Usage: Private
FDATE(Y)	; -- return formatted date ; input: Y := field name ; output: [returned] := formatted date only	ICR #661 Status: Retired Usage: Private
SAVE	; -- save to queue

External References

Name	Field # of Occurrence
^%DT	RANGE+5
DD^%DT	FTIME+3, FDTTM+5, RANGE+4, RANGE+8
C^%DTC	RANGE+6
NOW^%DTC	NOW+1
^%ZIS	PRT+3, PRTL+3
^%ZISC	PRTQ, PRTLQ
^%ZTLOAD	PRT+7, PRTL+7
^DIR	RANGE+13, PAUSE+1
$$CAPTION^SDUL	PRTS+2, PRTLS+3
HDR^SDUL	PRTS+3, PRTLS+4, PRTLS+5
LIST^SDUL	PRTS+3
TERM^SDUL0	FULL+1, PRTQ, PRTLQ
$$SETSTR^SDUL1	SETFLD+4
$$GET^SDUL4	PRTLS+5
$$FMTE^XLFDT	FDATE+3, FDTTM+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IOSC Line Location: INSTR+7
Function Call: WRITE	Prompt: $J("",LENGTH) Line Location: INSTR+8
Function Call: WRITE	Prompt: STR Line Location: INSTR+9
Function Call: WRITE	Prompt: IORC Line Location: INSTR+10
Function Call: WRITE	Prompt: IOSC Line Location: FULL+2
Function Call: WRITE	Prompt: @IOSTBM Line Location: FULL+2
Function Call: WRITE	Prompt: @IOSTBM Line Location: FULL+2
Function Call: WRITE	Prompt: @IOF Line Location: CLEAR+1
Function Call: WRITE	Prompt: $G(@X) Line Location: ERASE+1
Function Call: WRITE	Prompt: ! Line Location: RANGE+5
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: !,X Line Location: PRTLS+5
Routine Call	DIR Line Location: RANGE+13 PAUSE+1
Routine Call	%ZIS Line Location: PRT+3 PRTL+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("SDUL DATA"	RANGE+6, RANGE+11

Label References

Name	Line Occurrences
$$FDATE	RANGE+12
$$FTIME	NOW+2
CLEAR	PRT+4, PRTL+4
ERASE	CLEAR+1
FTR	PRTS+3, PRTLS+5, PRTLS+6
FULL	CLEAR+1
INSTR	FLDUPD+5
PAUSE	FTR+2
PRTLQ	PRTL+7, PRTLS+5
PRTLS	PRTL+5
PRTQ	PRT+3, PRT+7, PRTL+3
PRTS	PRT+5
RANGEQ	RANGE+6, RANGE+13
SAVE	PRT+7, PRTL+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NOW+2
%DT	RANGE+5*!
%DT("A"	RANGE+5*
%DT("B"	RANGE+4*
%DT(0	RANGE+5*
>> %ZIS	PRT+3, PRTL+3
C	LOWER+1~, LOWER+3*
DIR	RANGE+13!, PAUSE+1!
DIR("?"	RANGE+11, RANGE+12
DIR("A"	RANGE+10*
DIR("B"	RANGE+9*
DIR(0	RANGE+10, PAUSE+1
DT	RANGE+7
>> DX	INSTR+8, INSTR+9
>> DY	INSTR+8, INSTR+9
ENTRY	FLDUPD~, FLDUPD+5
ERASE	INSTR~, INSTR+8
FLD	FLDUPD~, FLDUPD+5, SETFLD~, SETFLD+4
I	LOWER+1~, LOWER+3*
IO	PRT+4, PRTS+3, PRTL+4, PRTLS+4
IO("Q"	PRT+4, PRT+5, PRTL+4, PRTL+5
IO(0	PRT+4, PRTL+4
>> IOBM	FULL+2*
IOF	CLEAR+1
ION	PRT+6, PRTL+6
>> IORC	INSTR+10, FULL+2
>> IOSC	INSTR+7, FULL+2
IOSL	FULL+2, PRTLS+3, PRTLS+5
IOST	FTR+2
>> IOSTBM	FULL+1, FULL+2
>> IOTM	FULL+2*
>> IOXY	INSTR+8, INSTR+9
L	SETSTR~, SETSTR+6
LENGTH	INSTR~, INSTR+8
>> POP	PRT+3, PRTL+3
S	SETSTR~, SETSTR+6
>> SDB	RANGE+4
>> SDBEG	RANGE+13*
>> SDEND	RANGE+13*
SDESC	PRT+1~, FTR+1, FTR+2, PRTL+1~, PRTLS+1~, PRTLS+5
SDI	PRTLS+1~, PRTLS+5*
SDLINES	PRTLS+1~, PRTLS+2*, PRTLQ+1
>> SDMIN	RANGE+5
>> SDUL("LINES"	PRTLS+2, PRTLS+3, PRTLQ+1
>> SDUL("TM"	FLDUPD+5
>> SDULAR	SAVE+1, PRTLS+5
>> SDULBCK	PRT+2, PRT+4, PRTL+2, PRTL+4
>> SDULBG	FLDUPD+5
SDULCAP	PRTS+1~, PRTS+2, PRTLS+1~, PRTLS+3
SDULCC	PRT+2, PRTS+1~, PRTS+2, PRTL+2, PRTLS+1~, PRTLS+3
>> SDULCNT	PRTLS+5
>> SDULDDF(	FLDUPD+5, SETFLD+4
>> SDULEVL	RANGE+6, RANGE+11
SDULPGE	PRTLS+1~, PRTLS+3, PRTLS+5
SDX	RANGE+6*, RANGE+7, RANGE+8, RANGE+10, RANGE+12, RANGE+13, RANGEQ!
SDX1	RANGE+6*, RANGE+7, RANGE+10, RANGE+12, RANGEQ!
SDY	FDTTM+3~, FDTTM+4*, FDTTM+6
STR	INSTR~, INSTR+9, FLDUPD~, FLDUPD+5, SETFLD~, SETFLD+4
U	FLDUPD+5, SETFLD+4, RANGE+10
V	SETSTR~, SETSTR+6
VAR	SETFLD~, SETFLD+4
X	INSTR~, INSTR+8, INSTR+9, SETSTR~, SETSTR+6, ERASE+1, RANGE+6, RANGE+7, RANGE+8, RANGE+9 , SAVE+1, PRTLS+5, UPPER~, UPPER+1, LOWER~, LOWER+2
>> X1	RANGE+6*
>> X2	RANGE+6*
Y	INSTR~, INSTR+8, INSTR+9, FDATE~, FDATE+3, FTIME~, FTIME+4, FDTTM~, FDTTM+4, FDTTM+6 , RANGE+4, RANGE+6, RANGE+8, RANGE+13, FTR+2, LOWER+1~, LOWER+2, LOWER+3, LOWER+4
Z	LOWER+1~, LOWER+3*
>> ZTDESC	PRT+6, PRTL+6
>> ZTIO	PRT+6, PRTL+6
>> ZTQUEUED	PRTQ, PRTLQ
>> ZTRTN	PRT+6, PRTL+6
>> ZTSAVE(	SAVE+1*

Customize PDF page

Package: Scheduling

Routine: SDUL1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: