Routine: ASUJBTCO

Package	Total	Call Graph
Supply	13	READ^ASU0TRRD ^ASU1DUPD ^ASU2RUPD (,RVIS,TXFIS)^ASU3IUPD ^ASU4XUPD ^ASU5SUPD ^ASU6JUPD ^ASU7DUPD STA^ASULARST ^ASUMSTRD ^ASUMXDIO PAZ^ASUURHDR ^ASUVAR
VA Fileman	2	^DDS ^DIK
IHS VA Utilities	1	^XBKVAR

Entry Points

Name	Comments	DBIA/ICR reference
CKFLD	;EP ;Validate fields for batch processing
TRRD	;EP ;Read transactions
VAL(M,F,X)	;Validate and save field
UPDT	;EP ;Update masters
1	;Due in validation
3	;Issue validation
2	;Receipt validation
5	;Station validation
4	;Index validation
7	;Direct Issue validation
6	;Adjustment validation

External References

Name	Field # of Occurrence
READ^ASU0TRRD	TRRD+1
^ASU1DUPD	UPDT+11
^ASU2RUPD	UPDT+12
^ASU3IUPD	UPDT+15, UPDT+16
RVIS^ASU3IUPD	UPDT+19
TXFIS^ASU3IUPD	UPDT+17
^ASU4XUPD	UPDT+20
^ASU5SUPD	UPDT+21
^ASU6JUPD	UPDT+22
^ASU7DUPD	UPDT+23
STA^ASULARST	ASUJBTCO+5
^ASUMSTRD	VAL+3
^ASUMXDIO	VAL+2
PAZ^ASUURHDR	ASUJBTCO+8, ASUJBTCO+14, ASUJBTCO+15, ASUJBTCO+21, ASUJBTCO+22, ASUJBTCO+28, ASUJBTCO+29, ASUJBTCO+37, ASUJBTCO+38, ASUJBTCO+48 , ASUJBTCO+49, ASUJBTCO+55, ASUJBTCO+56
^ASUVAR	ASUJBTCO+3
^DDS	UPDT+8
^DIK	UPDT+25
^XBKVAR	ASUJBTCO+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Master Add transactions" Line Location: ASUJBTCO+8
Function Call: WRITE	Prompt: !,"None entered" Line Location: ASUJBTCO+9
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Master Change transactions" Line Location: ASUJBTCO+15
Function Call: WRITE	Prompt: !,"None entered" Line Location: ASUJBTCO+16
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Station User Level Change transactions" Line Location: ASUJBTCO+22
Function Call: WRITE	Prompt: !,"None entered" Line Location: ASUJBTCO+23
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U),$S($E(ASUJ1,2)="T":" Transfer ",1:"")," Debit transactions" Line Location: ASUJBTCO+29
Function Call: WRITE	Prompt: !,"None entered" Line Location: ASUJBTCO+30
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U),$S($E(ASUJ1,2)="T":" Transfer ",$E(ASUJ1,2)="I":" Post Posted ",1:"")," Credit transactions" Line Location: ASUJBTCO+38
Function Call: WRITE	Prompt: !,"None entered" Line Location: ASUJBTCO+40
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Master Delete transactions" Line Location: ASUJBTCO+49
Function Call: WRITE	Prompt: !,"None entered" Line Location: ASUJBTCO+50
Function Call: WRITE	Prompt: !!,$FN(ASUC("TOT"),",")," Total Records processed." Line Location: ASUJBTCO+56
Routine Call	DDS Line Location: UPDT+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUT(	ASUJBTCO+8, ASUJBTCO+9, ASUJBTCO+10, ASUJBTCO+15, ASUJBTCO+16, ASUJBTCO+17, ASUJBTCO+22, ASUJBTCO+23, ASUJBTCO+24, ASUJBTCO+29 , ASUJBTCO+30, ASUJBTCO+31, ASUJBTCO+38, ASUJBTCO+40, ASUJBTCO+41, ASUJBTCO+49, ASUJBTCO+50, ASUJBTCO+51

Label References

Name	Line Occurrences
@(	CKFLD+1
TRRD	ASUJBTCO+11, ASUJBTCO+18, ASUJBTCO+25, ASUJBTCO+32, ASUJBTCO+42, ASUJBTCO+52
UPDT	ASUJBTCO+12, ASUJBTCO+19, ASUJBTCO+26, ASUJBTCO+35, ASUJBTCO+46, ASUJBTCO+53
VAL	1+2, 1+3, 1+4, 2+2, 2+3, 2+4, 2+6, 3+2, 3+4, 3+8 , 3+9, 4+2, 4+4, 4+5, 4+6, 4+8, 4+9, 5+2, 5+4, 5+5 , 5+7, 5+8, 6+2, 6+4, 6+5, 7+2, 7+4, 7+6, 7+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUC	ASUJBTCO+57!
ASUC("TOT"	ASUJBTCO+14, ASUJBTCO+21, ASUJBTCO+28, ASUJBTCO+37, ASUJBTCO+48, ASUJBTCO+55, ASUJBTCO+56
ASUC("TRN"	ASUJBTCO+10, ASUJBTCO+13, ASUJBTCO+14, ASUJBTCO+17, ASUJBTCO+20, ASUJBTCO+21, ASUJBTCO+24, ASUJBTCO+27, ASUJBTCO+28, ASUJBTCO+31* , ASUJBTCO+33, ASUJBTCO+34, ASUJBTCO+36, ASUJBTCO+37, ASUJBTCO+41, ASUJBTCO+43, ASUJBTCO+44, ASUJBTCO+45, ASUJBTCO+47, ASUJBTCO+48 , ASUJBTCO+51, ASUJBTCO+54, ASUJBTCO+55, UPDT+2*
>> ASUHDA	ASUJBTCO+11, ASUJBTCO+18, ASUJBTCO+25, ASUJBTCO+32, ASUJBTCO+42, ASUJBTCO+52, UPDT+7, UPDT+25, TRRD+1
ASUJ	ASUJBTCO+8, ASUJBTCO+9, ASUJBTCO+10, ASUJBTCO+15, ASUJBTCO+16, ASUJBTCO+17, ASUJBTCO+22, ASUJBTCO+23, ASUJBTCO+24, ASUJBTCO+29 , ASUJBTCO+30, ASUJBTCO+31, ASUJBTCO+38, ASUJBTCO+40, ASUJBTCO+41, ASUJBTCO+49, ASUJBTCO+50, ASUJBTCO+51, ASUJBTCO+57!, UPDT+1 , UPDT+2, UPDT+4, UPDT+5, UPDT+6, UPDT+7, UPDT+11, UPDT+12, UPDT+13, UPDT+20, UPDT+21 , UPDT+22, UPDT+23, TRRD+1, CKFLD+1, VAL+2, VAL+3
ASUJ("FILE"	UPDT+4*, UPDT+7
ASUJ("GLOB"	UPDT+5*, UPDT+25
ASUJ("RTN"	UPDT+1*
ASUJ("TMPL"	UPDT+6*, UPDT+7
>> ASUJ1	ASUJBTCO+29, ASUJBTCO+33, ASUJBTCO+34, ASUJBTCO+38, ASUJBTCO+39, ASUJBTCO+43, ASUJBTCO+44, ASUJBTCO+45
>> ASUK	ASUJBTCO+3
>> ASUL("ST#"	VAL+3
>> ASUL(1	ASUJBTCO+4, ASUJBTCO+5
>> ASUL(11	ASUJBTCO+33, ASUJBTCO+34, ASUJBTCO+43, ASUJBTCO+44
>> ASUL(2	ASUJBTCO+6
ASUMK	ASUJBTCO+57!
ASUMS	ASUJBTCO+57!
ASUMS("E#"	VAL+2, VAL+3
ASUMX	ASUJBTCO+57!
>> ASUSB	ASUJBTCO+7*
ASUT	ASUJBTCO+11, ASUJBTCO+18, ASUJBTCO+25, ASUJBTCO+32, ASUJBTCO+35, ASUJBTCO+42, ASUJBTCO+45, ASUJBTCO+46, ASUJBTCO+52, ASUJBTCO+57! , UPDT+1, UPDT+2, UPDT+3, UPDT+6, 1+2, 1+3, 1+4, 2+2, 2+3, 2+4 , 2+6, 3+2, 3+4, 3+8, 3+9, 4+2, 4+4, 4+5, 4+6, 4+8 , 4+9, 5+2, 5+4, 5+5, 5+7, 5+8, 6+2, 6+4, 6+5, 7+2 , 7+4, 7+6, 7+8, VAL+2, VAL+3
ASUT(	ASUJBTCO+35, ASUJBTCO+45, ASUJBTCO+46, 1+2, 1+3, 1+4, 2+2, 2+3, 2+4, 2+6 , 3+2, 3+4, 3+8, 3+9, 4+2, 4+4, 4+5, 4+6, 4+8, 4+9 , 5+2, 5+4, 5+5, 5+7, 5+8, 6+2, 6+4, 6+5, 7+2, 7+4 , 7+6, 7+8, VAL+2, VAL+3
ASUT("TRCD"	ASUJBTCO+12, ASUJBTCO+19, ASUJBTCO+26, ASUJBTCO+53, UPDT+2, UPDT+3, UPDT+14, UPDT+15, UPDT+16, VAL+2 , VAL+3
ASUV	ASUJBTCO+57!
ASUV("ASUT"	UPDT+3*
ASUV("E#"	ASUJBTCO+9, ASUJBTCO+10, ASUJBTCO+11, ASUJBTCO+16, ASUJBTCO+17, ASUJBTCO+18, ASUJBTCO+23, ASUJBTCO+24, ASUJBTCO+25, ASUJBTCO+30* , ASUJBTCO+31, ASUJBTCO+32, ASUJBTCO+40, ASUJBTCO+41, ASUJBTCO+42, ASUJBTCO+50, ASUJBTCO+51*, ASUJBTCO+52
ASUV("TRCD"	UPDT+3*
>> DA	UPDT+7, UPDT+25
>> DDSFILE	UPDT+7*
>> DDSPARM	UPDT+7*
>> DDSSAVE	UPDT+9, UPDT+10, UPDT+26
>> DIE	UPDT+7*
>> DIK	UPDT+25*
>> DIROUT	ASUJBTCO+3
>> DR	UPDT+7*
>> DTOUT	ASUJBTCO+3, ASUJBTCO+8, ASUJBTCO+14, ASUJBTCO+15, ASUJBTCO+21, ASUJBTCO+22, ASUJBTCO+28, ASUJBTCO+29, ASUJBTCO+37, ASUJBTCO+38 , ASUJBTCO+48, ASUJBTCO+49, ASUJBTCO+55
>> DUOUT	ASUJBTCO+3, ASUJBTCO+8, ASUJBTCO+14, ASUJBTCO+15, ASUJBTCO+21, ASUJBTCO+22, ASUJBTCO+28, ASUJBTCO+29, ASUJBTCO+37, ASUJBTCO+38 , ASUJBTCO+48, ASUJBTCO+49, ASUJBTCO+55
F	1+1~, 1+2, 1+3, 1+4, 2+1~, 2+2, 2+3, 2+4, 2+5, 2+6 , 3+1~, 3+2, 3+3, 3+4, 3+7, 3+8, 3+9, 4+1~, 4+2, 4+3* , 4+4, 4+5, 4+6, 4+7, 4+8, 4+9, 5+1~, 5+2, 5+3, 5+4 , 5+5, 5+6, 5+7, 5+8, 6+1~, 6+2, 6+3, 6+4, 6+5, 7+1~* , 7+2, 7+3, 7+4, 7+5, 7+6, 7+7*, 7+8, VAL~, VAL+4
M	1+1~, 1+2, 1+3, 1+4, 2+1~, 2+2, 2+3, 2+4, 2+5, 2+6 , 3+1~, 3+2, 3+3, 3+4, 3+7, 3+8, 3+9, 4+1~, 4+2, 4+3* , 4+4, 4+5, 4+6, 4+7, 4+8, 4+9, 5+1~, 5+2, 5+3, 5+4 , 5+5, 5+6, 5+7, 5+8, 6+1~, 6+2, 6+3, 6+4, 6+5, 7+1~* , 7+2, 7+3, 7+4, 7+5, 7+6, 7+7*, 7+8, VAL~, VAL+4
U	ASUJBTCO+3, ASUJBTCO+8, ASUJBTCO+15, ASUJBTCO+22, ASUJBTCO+29, ASUJBTCO+38, ASUJBTCO+49
X	1+1~, 1+2, 1+3, 1+4, 2+1~, 2+2, 2+3, 2+4, 2+6, 3+1~ , 3+2, 3+4, 3+8, 3+9, 4+1~, 4+2, 4+4, 4+5, 4+6, 4+8 , 4+9, 5+1~, 5+2, 5+4, 5+5, 5+7, 5+8, 6+1~, 6+2, 6+4 , 6+5, 7+1~, 7+2, 7+4, 7+6, 7+8*, VAL~
Z	VAL+1~, VAL+4, VAL+5

Customize PDF page

Package: Supply

Routine: ASUJBTCO

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: