Routine: ASUAUVOU

Information

ASUAUVOU ;DSD/DFM - UTILITY ENTER VOUCHER NUMBER; [ 04/15/98 2:57 PM ]

Source file <ASUAUVOU.m>

Package	Total	Call Graph
Supply	1	DAYTIM^ASUAUTL1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Supply	2	ASUAPCOR ASUAPNTR

Name	Comments	DBIA/ICR reference
EDIT	;EP ;VOUCHER EDIT SUB ROUTINE
EXIT	;RETURN TO CALLING ROUTINE
RDVOU	;
HELP	;EP ;EXECUTABLE HELP FOR VOUCHER NUMBER

Name	Field # of Occurrence
DAYTIM^ASUAUTL1	EDIT+1
^DIR	RDVOU+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Voucher Number must be 8 numeric digits, not all zeros in format FYMMSER#" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"Fiscal Year (FY) must be current fiscal year or previous fiscal year," Line Location: HELP+2
Function Call: WRITE	Prompt: !,"Month (MM) must be 01 through 12," Line Location: HELP+3
Function Call: WRITE	Prompt: !,"and Serial number (SER#) must be 0001 through 9999." Line Location: HELP+4
Routine Call	DIR Line Location: RDVOU+4

Name	Field # of Occurrence
>> ASUF("DATE"	EDIT+1*, EDIT+22
>> ASUK("DATE"	EDIT+1, EDIT+8, EDIT+13, EDIT+22!
>> ASUTRNS	RDVOU+6
>> ASUTRNS(	RDVOU+6*
>> ASUV("ITEM #"	, RDVOU+1
DIR	EXIT+1!
DIR("?"	RDVOU+3*
DIR("A"	RDVOU+1*
DIR(0	RDVOU+2*
>> DIROUT	RDVOU+5
DN	EDIT+1~
>> DTOUT	RDVOU+5
>> DUOUT	RDVOU+5
X	RDVOU+6, EXIT+1!, EDIT+2, EDIT+3, EDIT+4, EDIT+11!, EDIT+15!, EDIT+18!, EDIT+21!
Y	EXIT+1!, EDIT+23!
Y("DIF"	EDIT+13*, EDIT+14
Y("EM"	EDIT+3*, EDIT+10
Y("ES"	EDIT+4*, EDIT+17, EDIT+20
Y("EY"	EDIT+2*, EDIT+13
Y("M1"	EDIT+5*, EDIT+15
Y("M2"	EDIT+6, EDIT+9, EDIT+15
Y("M3"	EDIT+7*, EDIT+15
Y("SB"	EDIT+4, EDIT+9, EDIT+14