Routine: ASUJOLIB

Package	Total	Call Graph
Supply	7	HLP^ASUJHELP (ARE,STA)^ASULARST (REQ,SSA)^ASULDIRR READ^ASUMKBIO ^ASUMSTRD READ^ASUMXDIO (DATE,DAYTIM)^ASUUDATE
VA Fileman	5	^DDS ($$GET,PUT)^DDSVALF IX^DIC (,IX)^DIK ^DIR

Package	Total	Caller Graph
Supply	2	^ASUT(8 ASUCOMOR

Entry Points

Name	Comments	DBIA/ICR reference
UCST	;EP ;CALCULATE UNIT COST FOR FORM
VAL	;EP ;CALCULATE ORDER VALUE FOR FORM
LOOPALL	;
FILE	;EP ;PLACE ORDER INTO ASUTRN ISSUE FILE
RVAL	;EP ;CALCULATE RECOMMED VALUE FOR FORM
REQS	;
VOU	;EP ;CALCULATE VOUCHER NUMBER FOR FORM
EXIT	;
ANOTHER	;
CRMSTR	;EP ; -CREATE ISSUE BOOK TRANS
CALCVOU	;
TRANS	;EP ;SCREENMAN FOR ONLINE ISSUE TRANSACTION ENTRY

External References

Name	Field # of Occurrence
HLP^ASUJHELP	UCST+8
ARE^ASULARST	ASUJOLIB+5
STA^ASULARST	REQS+2
REQ^ASULDIRR	REQS+8
SSA^ASULDIRR	REQS+23
READ^ASUMKBIO	REQS+13
^ASUMSTRD	REQS+13, REQS+18
READ^ASUMXDIO	REQS+14
DATE^ASUUDATE	ASUJOLIB+4, CRMSTR+1
DAYTIM^ASUUDATE	FILE+1
^DDS	ANOTHER+4, LOOPALL+5
$$GET^DDSVALF	VAL+2
PUT^DDSVALF	VAL+4
IX^DIC	ANOTHER+2
^DIK	REQS+6, REQS+61
IX^DIK	FILE+8, REQS+66
^DIR	ASUJOLIB+8, ASUJOLIB+13, ANOTHER+6, LOOPALL+7, CRMSTR+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No entries in Issue Book for this Requsitioner" Line Location: LOOPALL+1
Function Call: WRITE	Prompt: "Sorry, no Voucher Numbers available for Online Issues" Line Location: CALCVOU+2
Function Call: WRITE	Prompt: *7 Line Location: UCST+8
Function Call: WRITE	Prompt: !!,"CREATE ONLINE ISSUE BOOK TRANS MASTER PROGRAM",!! Line Location: CRMSTR+2
Function Call: WRITE	Prompt: !?15,"NO ENTRY IN INDEX MASTER" Line Location: REQS+15
Function Call: WRITE	Prompt: !?20,"NO INDEX ON STATION MASTER" Line Location: REQS+19
Function Call: WRITE	Prompt: !?30,"NO PRIMAR CAN AVAILABLE" Line Location: REQS+21
Function Call: WRITE	Prompt: !!,"NOT CURRENTLY AVAILABLE" Line Location: TRANS+1
Routine Call	DDS Line Location: ANOTHER+4 LOOPALL+5
Routine Call	DIR Line Location: ASUJOLIB+8 ASUJOLIB+13 ANOTHER+6 LOOPALL+7 CRMSTR+8
Routine Call	DIC Line Location: ANOTHER+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ASUT(3 - [#9002036.3]	Classic Fileman Calls
^ASUT(8 - [#9002036.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(20 - [#9002039.2]	REQS+20
^ASUMK - [#9002033]	CRMSTR+5, REQS+4, REQS+11
^ASUMS - [#9002031]	UCST+1, UCST+2, UCST+9
^ASUSITE(1	ASUJOLIB+5, CALCVOU+1, CALCVOU+3*
^ASUT(3 - [#9002036.3]	FILE+2, FILE+3, FILE+4, FILE+5*, REQS+60
^ASUT(8 - [#9002036.8]	ANOTHER+3, LOOPALL+1, LOOPALL+2, RVAL+2, VOU+3, FILE+3, FILE+6, FILE+7, REQS+6, REQS+62 , REQS+63, REQS+64, REQS+65*

Label References

Name	Line Occurrences
ANOTHER	ANOTHER+7
CALCVOU	ASUJOLIB+11, VOU+1
EXIT	ANOTHER+6, LOOPALL+2
LOOPALL	ASUJOLIB+15
REQS	CRMSTR+5, CRMSTR+12
UCST	VAL+1, RVAL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUC	CRMSTR+13!
>> ASUF("STA"	CRMSTR+3
>> ASUHDA	FILE+2, FILE+3, FILE+4, FILE+5, FILE+6, FILE+7, FILE+8, REQS+5, REQS+6, REQS+24* , REQS+25, REQS+27, REQS+60, REQS+61, REQS+62, REQS+63, REQS+64, REQS+65, REQS+66
ASUJ	ASUJOLIB+10*, LOOPALL+1, LOOPALL+2, EXIT+1!
ASUJ("ANS"	LOOPALL+2, LOOPALL+8, LOOPALL+9
ASUJ("E#"	ASUJOLIB+6, ANOTHER+3, LOOPALL+3*, UCST+1, UCST+2, UCST+9, RVAL+2, VOU+3, FILE+3
ASUJ("OH"	UCST+1, UCST+2, UCST+3, UCST+4
ASUJ("QTY"	VAL+2*, VAL+3
ASUJ("RQTY"	RVAL+2*, RVAL+3
ASUJ("RVAL"	RVAL+3*
ASUJ("UCST"	UCST+4, UCST+9, VAL+1, VAL+3, RVAL+1, RVAL+3
ASUJ("VAL"	VAL+3*, VAL+4
ASUJ("VOU"	CALCVOU+1, CALCVOU+2, CALCVOU+3, CALCVOU+4, VOU+1, VOU+2, VOU+3
>> ASUJMSG	UCST+8
>> ASUJMSG(1	UCST+6*
>> ASUJMSG(2	UCST+7*
>> ASUJMSG(3	UCST+8*
>> ASUK("DT"	ASUJOLIB+4, CRMSTR+1
>> ASUL(	REQS+7!
>> ASUL(1	ASUJOLIB+5, ASUJOLIB+6, LOOPALL+3, REQS+28, REQS+40
>> ASUL(17	REQS+23*, REQS+34, REQS+48
>> ASUL(18	REQS+35, REQS+49
>> ASUL(19	REQS+36, REQS+50
>> ASUL(2	REQS+1*, REQS+2, REQS+29, REQS+41
>> ASUL(20	REQS+9, REQS+20, REQS+22*, REQS+24, REQS+37, REQS+51
ASUMK	CRMSTR+13!
ASUMK("E#"	CRMSTR+4, CRMSTR+5, CRMSTR+11, REQS+1, REQS+3, REQS+4, REQS+5, REQS+8, REQS+10, REQS+11* , REQS+12, REQS+14, REQS+67!
ASUMK("ULQTY"	REQS+59
ASUMS	CRMSTR+13!
ASUMS("E#"	REQS+1, REQS+12, REQS+17*
ASUMS("EOQ"	REQS+38, REQS+52
ASUMX	CRMSTR+13!
ASUMX("ACC"	REQS+30, REQS+42
ASUMX("E#"	REQS+14*, REQS+17, REQS+31
ASUMX("IDX"	REQS+16, REQS+24, REQS+43
>> ASUP("LSMO"	CALCVOU+3*, CALCVOU+4
ASUT	FILE+1, FILE+4, CRMSTR+13!, REQS+26
ASUT(	FILE+4
ASUT(0	REQS+26, REQS+27, REQS+28, REQS+29, REQS+30, REQS+31, REQS+32, REQS+33, REQS+34, REQS+35 , REQS+36, REQS+37, REQS+38*, REQS+62
ASUT(1	REQS+26, REQS+39, REQS+40, REQS+41, REQS+42, REQS+43, REQS+44, REQS+45, REQS+46, REQS+47 , REQS+48, REQS+49, REQS+50, REQS+51, REQS+52, REQS+53, REQS+63
ASUT(3	REQS+26, REQS+54, REQS+55, REQS+56, REQS+57, REQS+58, REQS+59*, REQS+64
ASUT20	REQS+20*, REQS+21, REQS+22, REQS+23, REQS+68!
ASUV	CRMSTR+13!
>> D	ANOTHER+1*
DA	ANOTHER+3, LOOPALL+1, LOOPALL+2, LOOPALL+3, EXIT+1!, FILE+8, REQS+5, REQS+6, REQS+61, REQS+66
DDSFILE	ANOTHER+4, LOOPALL+4, EXIT+1!
DDSPARM	ANOTHER+4, LOOPALL+4, EXIT+1!
DIC	ANOTHER+1!*, EXIT+1!
DIC("A"	ANOTHER+1*
DIC("S"	ANOTHER+1*
DIC(0	ANOTHER+1*
>> DIK	FILE+8, REQS+5, REQS+61, REQS+66
DIR	ASUJOLIB+7!, ASUJOLIB+12!, ANOTHER+5!, LOOPALL+6!, EXIT+1!, CRMSTR+7!
DIR("A"	ASUJOLIB+7, ASUJOLIB+12, ANOTHER+5, LOOPALL+6, CRMSTR+8*
DIR("B"	ASUJOLIB+12, ANOTHER+5, LOOPALL+6*
DIR(0	ASUJOLIB+7, ASUJOLIB+12, ANOTHER+5, LOOPALL+6, CRMSTR+8*
>> DIROUT	ASUJOLIB+8, ASUJOLIB+13, ANOTHER+2
>> DIRUT	ANOTHER+6, LOOPALL+8
DR	ANOTHER+4, LOOPALL+4, EXIT+1!
>> DTOUT	ASUJOLIB+8, ASUJOLIB+13, ANOTHER+2
>> DUOUT	ASUJOLIB+8, ASUJOLIB+13, ANOTHER+2
DUZ(2	REQS+32
U	ASUJOLIB+5, ANOTHER+3, CALCVOU+1, CALCVOU+3, UCST+1, UCST+2, UCST+9, RVAL+2, VOU+3, FILE+4 , FILE+5, FILE+6, FILE+7, REQS+22, REQS+23, REQS+27, REQS+28, REQS+29, REQS+30, REQS+31 , REQS+32, REQS+33, REQS+34, REQS+35, REQS+36, REQS+37, REQS+38, REQS+39, REQS+40, REQS+41 , REQS+42, REQS+43, REQS+44, REQS+45, REQS+46, REQS+47, REQS+48, REQS+49, REQS+50, REQS+51 , REQS+52, REQS+53, REQS+54, REQS+55, REQS+56, REQS+57, REQS+58, REQS+59, REQS+65
>> X	ANOTHER+6, LOOPALL+1, LOOPALL+9, REQS+7
>> Y	ASUJOLIB+9, ASUJOLIB+10, ASUJOLIB+14, ASUJOLIB+15, ANOTHER+2, ANOTHER+3, UCST+4, UCST+9, RVAL+3, VOU+2 , CRMSTR+9, CRMSTR+10, CRMSTR+11, REQS+15, REQS+19

Customize PDF page

Package: Supply

Routine: ASUJOLIB

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: