Routine: AZXZSUP3

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC EN1^DIP

Entry Points

Name	Comments	DBIA/ICR reference
CONVERT	;CONVERT USER DATES TO FILEMAN DATE FORMAT
DEFAULT	;SET DEFAULT DATES TO INCLUDE ALL CURRENT LOGS
PRINTOUT	;PRINTOUT WORKING LOG LIST USING FILEMAN'S DIP ROUTINE
LBDATE
UBDATE
INITLKUP	;CHECK TO MAKE SURE USER INPUT OF INITIALS ARE ON FILE IN 'INITIALS'
MAIN	;AZXZSUP3 PROGRAM CONTROL
SELECT	;ALLOWS USER TO INPUT WHAT TO INCLUDE
WORKPRNT	;PRINTOUT WORKING LOG

External References

Name	Field # of Occurrence
^%DT	CONVERT+3
^DIC	INITLKUP+4
EN1^DIP	PRINTOUT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: WORKPRNT+3
Function Call: WRITE	Prompt: !!!,"Working Log Print..." Line Location: WORKPRNT+5
Function Call: WRITE	Prompt: !!!! Line Location: WORKPRNT+6
Function Call: WRITE	Prompt: !!,"Please enter the initials you want to print out on Working Log Print",! Line Location: SELECT+9
Function Call: WRITE	Prompt: !!,"Initials must be 2-3 Upper Case Alpha Characters.",!,*7 Line Location: SELECT+12
Function Call: WRITE	Prompt: !!,"Initials are not on file in the INITIALS file.",!,*7 Line Location: SELECT+14
Function Call: WRITE	Prompt: !!,"Give the lower boundary date for Working Log Printout",!,"OR press return to receive ALL working logs [mm/dd/yy].",! Line Location: LBDATE+10
Function Call: WRITE	Prompt: !!,"Illegal date; check format and re-enter lower boundary date.",!,*7 Line Location: LBDATE+13
Function Call: WRITE	Prompt: !!,"Illegal date; check format and re-enter upper boundary date.",!,*7 Line Location: LBDATE+19
Function Call: WRITE	Prompt: !!,"An upper boundary date must be entered when a lower limit has been given.",!,*7 Line Location: UBDATE+6
Function Call: WRITE	Prompt: !!,"Give the upper boundary date for Working Log Printout [mm/dd/yy].",! Line Location: UBDATE+9
Function Call: WRITE	Prompt: !!,"Illegal date; check format and re-enter upper boundary date.",!,*7 Line Location: UBDATE+12
Function Call: WRITE	Prompt: !!,"Illegal date; check format and re-enter upper boundary date.",!,*7 Line Location: UBDATE+18
Function Call: WRITE	Prompt: !!,"Upper boundary date must be greater than or equal to lower boundary date.",!,*7 Line Location: UBDATE+22
Routine Call	DIC Line Location: INITLKUP+4

Label References

Name	Line Occurrences
CONVERT	LBDATE+17, UBDATE+16
DEFAULT	LBDATE+7
INITLKUP	SELECT+13
LBDATE	LBDATE+10, LBDATE+13, LBDATE+19, UBDATE+3
MAIN	MAIN+10
PRINTOUT	LBDATE+7, UBDATE+25
SELECT	SELECT+9, SELECT+12, SELECT+14
UBDATE	UBDATE+6, UBDATE+9, UBDATE+12, UBDATE+18, UBDATE+22
WORKPRNT	MAIN+7, LBDATE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	MAIN+12!, CONVERT+2*
BY	MAIN+12!, PRINTOUT+4*
DA	MAIN+2*, MAIN+11!
DIC	MAIN+4, MAIN+11!, PRINTOUT+2, INITLKUP+1*
DIC(0	MAIN+12!, INITLKUP+3*
>> DIS(0	MAIN+12!, PRINTOUT+6*
>> DIS(1	MAIN+12!, PRINTOUT+8*
DR	MAIN+5*, MAIN+11!
DT	DEFAULT+2
>> FILE	MAIN+3*
FLDS	MAIN+12!, PRINTOUT+3*
FR	MAIN+12!, PRINTOUT+1*
INIT	MAIN+8, MAIN+11!, SELECT+3, SELECT+6, SELECT+9, SELECT+12, SELECT+14, INITLKUP+2, INITLKUP+5
IOF	WORKPRNT+3
L	MAIN+11!, PRINTOUT+1*
LDATE	MAIN+11!, LBDATE, LBDATE+3, LBDATE+7, LBDATE+10, LBDATE+13, LBDATE+16, LBDATE+20, UBDATE+22, DEFAULT+1*
U	INITLKUP+5
UDATE	MAIN+11!, UBDATE, UBDATE+3, UBDATE+6, UBDATE+9, UBDATE+12, UBDATE+15, UBDATE+19, UBDATE+22, DEFAULT+2*
X	MAIN+11!, LBDATE+16, UBDATE+15, INITLKUP+2*
>> Y	LBDATE+19, LBDATE+20, UBDATE+18, UBDATE+19, INITLKUP+5
YN	MAIN+8, MAIN+9, MAIN+10, MAIN+11!, SELECT+6*

Customize PDF page

Package: Phoenix Devel Center

Routine: AZXZSUP3

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: