Routine: ASUCOHKP

Package	Total	Call Graph
Supply	8	READ^ASU0TRRD (SETSP,SETST)^ASUCOSTS ^ASUMCUPD (,READ)^ASUMSTRD (,IDX,READ,WRITE)^ASUMXDIO (DATE,TIME)^ASUUDATE ^ASUUPLOG (,RANGE)^ASUURANG
IHS VA Utilities	1	^XBKVAR

Package	Total	Caller Graph
Supply	2	ASUCOUTP ASUMCUPD

Entry Points

Name	Comments	DBIA/ICR reference
SELSTA	;
IBMCLR	;CLEAR ISSUE BOOK MASTERS FOR PREVIOUSLY DELETED RECORDS
LOADDAY	;
LOAD(Y)	;EP; LOAD BEGINNING BALANCES
MSTLOOP	;
RPTCLR	;UPDATE CLEAR REPORT GLOBALS
BALANCE	;UPDATE ACTIVE/INACTIVE OPENING BALANCE FILE AND REPORT 1 BALANCES
VOUCHER	;RESET VOUCHER NUMBER

External References

Name	Field # of Occurrence
READ^ASU0TRRD	LOAD+19
SETSP^ASUCOSTS	ASUCOHKP+15, ASUCOHKP+17, ASUCOHKP+19
SETST^ASUCOSTS	ASUCOHKP+9
^ASUMCUPD	BALANCE+2
^ASUMSTRD	MSTLOOP+7
READ^ASUMSTRD	LOAD+31
^ASUMXDIO	MSTLOOP+7
IDX^ASUMXDIO	LOAD+31
READ^ASUMXDIO	IBMCLR+36
WRITE^ASUMXDIO	IBMCLR+36
DATE^ASUUDATE	ASUCOHKP+10, ASUCOHKP+20
TIME^ASUUDATE	ASUCOHKP+10, ASUCOHKP+20
^ASUUPLOG	ASUCOHKP+11, ASUCOHKP+21, IBMCLR+2, IBMCLR+27, IBMCLR+28, IBMCLR+29, RPTCLR+3, SELSTA+3, MSTLOOP+2, LOADDAY+1
^ASUURANG	ASUCOHKP+12
RANGE^ASUURANG	LOADDAY+3
^XBKVAR	IBMCLR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUH - [#9002036]	LOAD+18
^ASUH("I"	LOAD+7, LOAD+8, LOAD+13
^ASUMK - [#9002033]	IBMCLR+11!, IBMCLR+12!, IBMCLR+14, IBMCLR+16, IBMCLR+18, IBMCLR+21!, IBMCLR+22!, IBMCLR+23, IBMCLR+25
^ASUMK("C"	IBMCLR+5, IBMCLR+8, IBMCLR+9, IBMCLR+13!
^ASUMS - [#9002031]	SELSTA+5, MSTLOOP+4, MSTLOOP+5
^ASUMX - [#9002032]	IBMCLR+35
^ASUMX("B"	IBMCLR+4
^ASUMX("D"	IBMCLR+33, IBMCLR+34
^ASUSITE(1	VOUCHER+1*
^TMP("ASUMC"	MSTLOOP+9, LOAD+37
^XTMP("ASUMA"	RPTCLR+4!, RPTCLR+5, MSTLOOP+1!, MSTLOOP+8, LOAD+2, LOAD+4, LOAD+5, LOAD+35*
^XTMP("ASUR"	RPTCLR+7!*

Label References

Name	Line Occurrences
BALANCE	ASUCOHKP+19
IBMCLR	ASUCOHKP+15
LOAD	LOADDAY+4
LOADDAY	BALANCE+1
MSTLOOP	SELSTA+4, SELSTA+5
RPTCLR	ASUCOHKP+17
SELSTA	BALANCE+1
VOUCHER	RPTCLR+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASUC("ACT"	SELSTA+1*
>> ASUC("CLRU"	IBMCLR+20*, IBMCLR+29
>> ASUC("CLRX"	IBMCLR+10*, IBMCLR+28, IBMCLR+30!
>> ASUC("IDX"	IBMCLR+14, IBMCLR+15, IBMCLR+16, IBMCLR+17, IBMCLR+30!
>> ASUC("REQ"	IBMCLR+23, IBMCLR+24, IBMCLR+25, IBMCLR+26
>> ASUC("STA"	SELSTA+1*
>> ASUFB	LOAD+15, LOAD+16, LOAD+25, LOAD+34
>> ASUK("DT"	ASUCOHKP+11, ASUCOHKP+21, IBMCLR+36, RPTCLR+5
>> ASUK("HDG"	ASUCOHKP+8
>> ASUL(2	SELSTA+4, LOADDAY+2, LOAD+18
>> ASUL(9	MSTLOOP+8, MSTLOOP+9, LOAD+35, LOAD+37
ASUMK	IBMCLR+30!
ASUMK("REQ"	IBMCLR+9*, IBMCLR+11, IBMCLR+12, IBMCLR+13, IBMCLR+14, IBMCLR+16, IBMCLR+18, IBMCLR+21, IBMCLR+22
ASUMK("SST"	IBMCLR+5, IBMCLR+6, IBMCLR+7, IBMCLR+8*, IBMCLR+9, IBMCLR+11, IBMCLR+12, IBMCLR+13, IBMCLR+14, IBMCLR+16 , IBMCLR+18, IBMCLR+21, IBMCLR+22, IBMCLR+23, IBMCLR+25, IBMCLR+27
ASUMS	LOAD+31!
ASUMS("D/I"	LOAD+32
ASUMS("E#"	SELSTA+2, SELSTA+4, SELSTA+5, MSTLOOP+3, MSTLOOP+4, MSTLOOP+5, MSTLOOP+6, MSTLOOP+8, MSTLOOP+9, LOADDAY+2 , LOAD+2, LOAD+4, LOAD+5, LOAD+35
ASUMS("QTY"	LOAD+32
ASUMS("VAL"	LOAD+32
ASUMX	IBMCLR+3!, LOAD+31!
ASUMX("ACC"	LOAD+32
ASUMX("DELDT"	IBMCLR+36*
ASUMX("E#"	IBMCLR+34, IBMCLR+35, SELSTA+2, MSTLOOP+6*
ASUMX("IDX"	IBMCLR+3, IBMCLR+4, IBMCLR+5, IBMCLR+8, IBMCLR+9, IBMCLR+11, IBMCLR+12, IBMCLR+13
>> ASUN	LOADDAY+4
>> ASUN("TYP"	ASUCOHKP+12, LOADDAY+3
>> ASUP("CKP"	ASUCOHKP+13, ASUCOHKP+14, ASUCOHKP+15, ASUCOHKP+16, ASUCOHKP+17, ASUCOHKP+18, ASUCOHKP+19
>> ASUP("CKT"	ASUCOHKP+4, ASUCOHKP+7, ASUCOHKP+8*
>> ASUP("HLT"	ASUCOHKP+15, ASUCOHKP+17, ASUCOHKP+19
>> ASUP("OLIB"	RPTCLR+8
>> ASUP("TYP"	RPTCLR+8
ASURX	ASUCOHKP+11, ASUCOHKP+21, IBMCLR+2, IBMCLR+27, IBMCLR+28, IBMCLR+29, IBMCLR+30!, RPTCLR+3, SELSTA+3, MSTLOOP+2* , LOADDAY+1*
>> ASUT	LOAD+21, LOAD+22, LOAD+23, LOAD+24, LOAD+27, LOAD+28, LOAD+29
>> ASUT(	LOAD+21, LOAD+22, LOAD+23, LOAD+24, LOAD+27, LOAD+28, LOAD+29
>> ASUT("TYPE"	LOAD+20, LOAD+26, LOAD+27, LOAD+28
>> ASUV("IDX"	IBMCLR+32, IBMCLR+33, IBMCLR+34
>> ASUV("RDT"	RPTCLR+5*, RPTCLR+7
U	IBMCLR+1, IBMCLR+14, IBMCLR+16, IBMCLR+23, IBMCLR+25, IBMCLR+35, RPTCLR+5, VOUCHER+1, MSTLOOP+5, LOAD+18 , LOAD+34
X	IBMCLR+11, IBMCLR+18, IBMCLR+19, IBMCLR+27, RPTCLR+6~, RPTCLR+7, LOAD+5~, LOAD+10, LOAD+11, LOAD+16 , LOAD+34, LOAD+35
X("ACC"	LOAD+24, LOAD+32, LOAD+34
X("D/I"	LOAD+23, LOAD+27, LOAD+32*, LOAD+34
X("DA"	LOAD+10*, LOAD+16, LOAD+34
X("QTY"	LOAD+22, LOAD+28, LOAD+29, LOAD+32, LOAD+34
X("VAL"	LOAD+21, LOAD+28, LOAD+29, LOAD+32, LOAD+34, LOAD+37
Y	LOAD~, LOAD+7, LOAD+8, LOAD+9, LOAD+10, LOAD+13, LOAD+14, LOAD+15, LOAD+16, LOAD+17 , LOAD+18, LOAD+19
Y("ACC"	LOAD+1, LOAD+2, LOAD+4, LOAD+5, LOAD+34
Y("B#"	LOAD+6, LOAD+7, LOAD+8, LOAD+12, LOAD+13
Y("E#"	LOAD+10
Y("IDX"	LOAD+3, LOAD+4, LOAD+5, LOAD+7, LOAD+8, LOAD+13, LOAD+31, LOAD+35, LOAD+37
Y("TYP"	LOAD+33

Customize PDF page

Package: Supply

Routine: ASUCOHKP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: