Routine: ASUJBTCH

Information

ASUJBTCH ; IHS/ITSC/LMH -SCREENMAN FOR DATA ENTRY ; [ 07/17/2000 9:10 AM ]

Call Graph

Call Graph Total: 15

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

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Supply	2	ASUJVALD ASUJVALF

Entry Points

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

External References

Name	Field # of Occurrence
READ^ASU0TRRD	TRRD+1, PTRSET+3
WRITE^ASU0TRWR	PTRSET+4
^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	ASUJBTCH+5
^ASUMSTRD	VLDF+3
^ASUMXDIO	VLDF+2
^ASUVAR	ASUJBTCH+3
^DIK	MREJ+3
^XBKVAR	ASUJBTCH+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Master Add transactions" Line Location: ASUJBTCH+8
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Master Change transactions" Line Location: ASUJBTCH+18
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Station User Level Change transactions" Line Location: ASUJBTCH+27
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U),$S($E(ASUJ1,2)="T":" Transfer ",1:"")," Debit transactions" Line Location: ASUJBTCH+37
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: ASUJBTCH+48
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Master Delete transactions" Line Location: ASUJBTCH+61
Function Call: WRITE	Prompt: !!,$FN(ASUC("TOT"),",")," Total Records processed." Line Location: ASUJBTCH+70
Function Call: WRITE	Prompt: !?15," Count=",$J($FN(ASUC("TRN"),","),10) Line Location: DCOUNT+1
Function Call: WRITE	Prompt: !?5,ASUHDA," ",ASUT("TRCD"),$J($G(ASUT(ASUT,"IDX")),8),$J($G(ASUT(ASUT,"VOU")),12),!," Editing:" Line Location: UPDT+7
Function Call: WRITE	Prompt: " UDOK" Line Location: UPDT+29
Function Call: WRITE	Prompt: " NOUD" Line Location: UPDT+30
Function Call: WRITE	Prompt: !?5,"Reject/move to ^ASUTR ERR=",$G(DDSERROR) Line Location: MREJ+2
Function Call: WRITE	Prompt: " EDBD" Line Location: CKFLD+5
Function Call: WRITE	Prompt: " EDOK" Line Location: CKFLD+7
Function Call: WRITE	Prompt: " #",$P(E,U,2),! Line Location: VLD+5
Function Call: WRITE	Prompt: " ",F Line Location: VLDF+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ASUMX - [#9002032]	VLDF+3
^ASUT(	ASUJBTCH+8, ASUJBTCH+10, ASUJBTCH+11, ASUJBTCH+18, ASUJBTCH+19, ASUJBTCH+20, ASUJBTCH+27, ASUJBTCH+28, ASUJBTCH+29, ASUJBTCH+37 , ASUJBTCH+38, ASUJBTCH+39, ASUJBTCH+48, ASUJBTCH+50, ASUJBTCH+51, ASUJBTCH+61, ASUJBTCH+62, ASUJBTCH+63, PTRSET+2
^ASUTR(	MREJ+1*

Label References

Name	Line Occurrences
@(	CKFLD+3
CKFLD	UPDT+8
DCOUNT	ASUJBTCH+10, ASUJBTCH+17, ASUJBTCH+19, ASUJBTCH+26, ASUJBTCH+28, ASUJBTCH+35, ASUJBTCH+38, ASUJBTCH+47, ASUJBTCH+50, ASUJBTCH+60 , ASUJBTCH+62, ASUJBTCH+69
MREJ	UPDT+26, UPDT+30
PTRSET	ASUJBTCH+9, ASUJBTCH+36
TRRD	ASUJBTCH+12, ASUJBTCH+21, ASUJBTCH+30, ASUJBTCH+40, ASUJBTCH+52, ASUJBTCH+64
UPDT	ASUJBTCH+14, ASUJBTCH+23, ASUJBTCH+32, ASUJBTCH+44, ASUJBTCH+57, ASUJBTCH+66
VLD	1+2, 1+4, 1+5, 2+2, 2+4, 2+5, 2+6, 3+2, 3+4, 3+6 , 3+8, 4+2, 4+4, 4+6, 4+7, 4+8, 4+9, 5+2, 5+4, 5+5 , 5+7, 5+8, 5+9, 5+10, 5+12, 6+2, 6+4, 6+6, 7+2, 7+4 , 7+6, 7+8, 7+10
VLDF	VLD+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUC	ASUJBTCH+71!
ASUC("TOT"	ASUJBTCH+70, DCOUNT+1*
ASUC("TRN"	ASUJBTCH+10, ASUJBTCH+11, ASUJBTCH+16, ASUJBTCH+19, ASUJBTCH+20, ASUJBTCH+25, ASUJBTCH+28, ASUJBTCH+29, ASUJBTCH+34, ASUJBTCH+38 , ASUJBTCH+39, ASUJBTCH+41, ASUJBTCH+42, ASUJBTCH+46, ASUJBTCH+50, ASUJBTCH+51, ASUJBTCH+53, ASUJBTCH+54, ASUJBTCH+55, ASUJBTCH+59 , ASUJBTCH+62, ASUJBTCH+63, ASUJBTCH+68, DCOUNT+1, UPDT+2
>> ASUF("ERR"	UPDT+27, UPDT+31!
>> ASUHDA	ASUJBTCH+12, ASUJBTCH+21, ASUJBTCH+30, ASUJBTCH+40, ASUJBTCH+52, ASUJBTCH+64, UPDT+6, UPDT+7, MREJ+1, MREJ+3 , TRRD+1
ASUJ	ASUJBTCH+8, ASUJBTCH+9, ASUJBTCH+10, ASUJBTCH+11, ASUJBTCH+18, ASUJBTCH+19, ASUJBTCH+20, ASUJBTCH+27, ASUJBTCH+28, ASUJBTCH+29 , ASUJBTCH+36, ASUJBTCH+37, ASUJBTCH+38, ASUJBTCH+39, ASUJBTCH+48, ASUJBTCH+50, ASUJBTCH+51, ASUJBTCH+61*, ASUJBTCH+62, ASUJBTCH+63 , ASUJBTCH+71!, UPDT+1, UPDT+2, UPDT+4, UPDT+5, UPDT+6, UPDT+11, UPDT+12, UPDT+13, UPDT+20 , UPDT+21, UPDT+22, UPDT+23, MREJ+1, TRRD+1, CKFLD+3, VLDF+2, VLDF+3
ASUJ("FILE"	UPDT+4*
ASUJ("GLOB"	UPDT+5*, MREJ+1, MREJ+3
ASUJ("RTN"	UPDT+1*
>> ASUJ1	ASUJBTCH+37, ASUJBTCH+41, ASUJBTCH+42, ASUJBTCH+48, ASUJBTCH+49, ASUJBTCH+53, ASUJBTCH+54, ASUJBTCH+55
>> ASUK	ASUJBTCH+3
>> ASUL("ST#"	VLDF+3
>> ASUL(1	ASUJBTCH+4, ASUJBTCH+5, CKFLD+2
>> ASUL(11	ASUJBTCH+41, ASUJBTCH+42, ASUJBTCH+53, ASUJBTCH+54
>> ASUL(2	ASUJBTCH+6
ASUMK	ASUJBTCH+71!
ASUMS	ASUJBTCH+71!
ASUMS("E#"	VLDF+2, VLDF+3
ASUMX	ASUJBTCH+71!
>> ASUSB	ASUJBTCH+7*, VLDF+1
ASUT	ASUJBTCH+12, ASUJBTCH+21, ASUJBTCH+30, ASUJBTCH+40, ASUJBTCH+43, ASUJBTCH+52, ASUJBTCH+55, ASUJBTCH+56, ASUJBTCH+64, ASUJBTCH+71! , UPDT+1, UPDT+2, UPDT+3, UPDT+7, CKFLD+2, VLD+2, VLD+3, VLDF+2, VLDF+3
ASUT(	ASUJBTCH+43, ASUJBTCH+55, ASUJBTCH+56, UPDT+7, CKFLD+2, VLD+2, VLD+3, VLDF+2, VLDF+3
ASUT("TRCD"	ASUJBTCH+13, ASUJBTCH+22, ASUJBTCH+31, ASUJBTCH+65, UPDT+2, UPDT+3, UPDT+7, UPDT+14, UPDT+15, UPDT+16 , 2+2, 3+2, 5+6, VLD+1, VLDF+2, VLDF+3
ASUV	ASUJBTCH+71!
ASUV("ASUT"	UPDT+3*
ASUV("E#"	ASUJBTCH+10, ASUJBTCH+11, ASUJBTCH+12, ASUJBTCH+19, ASUJBTCH+20, ASUJBTCH+21, ASUJBTCH+28, ASUJBTCH+29, ASUJBTCH+30, ASUJBTCH+38* , ASUJBTCH+39, ASUJBTCH+40, ASUJBTCH+50, ASUJBTCH+51, ASUJBTCH+52, ASUJBTCH+62, ASUJBTCH+63*, ASUJBTCH+64
ASUV("TRCD"	UPDT+3*
C	PTRSET+1~, PTRSET+2*
>> DA	UPDT+6, MREJ+3
DDSERROR	UPDT+26!, UPDT+27, UPDT+30, UPDT+31!, MREJ+2, VLDF+4*, VLDF+10
>> DDSSAVE	UPDT+9, UPDT+10, UPDT+26, UPDT+27, UPDT+28, UPDT+29, UPDT+31, CKFLD+5, CKFLD+7, CKFLD+9
>> DIE	UPDT+6*
>> DIK	MREJ+3*
>> DIROUT	ASUJBTCH+3
>> DTOUT	ASUJBTCH+3
>> DUOUT	ASUJBTCH+3
E	UPDT+25, UPDT+26!, UPDT+31!, CKFLD+2~, CKFLD+4, CKFLD+9, 1+2, 1+3, 1+4, 2+2 , 2+3, 2+4, 2+5, 2+6, 3+2, 3+3, 3+4, 3+5, 3+6, 3+7 , 4+2, 4+3, 4+4, 4+5, 4+6, 4+7, 4+8, 5+2, 5+3, 5+4 , 5+5, 5+6, 5+7, 5+9, 5+10, 5+11, 6+2, 6+3, 6+4, 6+5 , 7+2, 7+3, 7+4, 7+5, 7+6, 7+7, 7+8, 7+9, VLD+5, VLDF+10*
F	PTRSET~, PTRSET+2, PTRSET+3, PTRSET+4, 1+1~, 2+1~, 3+1~, 3+6, 4+1~, 5+1~ , 6+1~, 7+1~, VLD+1, VLD+2, VLD+3, VLD+5, VLD+6, VLD+7, VLDF~, VLDF+1 , VLDF+7
M	1+1~, 1+2, 1+4, 1+5, 2+1~, 2+2, 2+4, 2+5, 2+6, 3+1~ , 3+2, 3+4, 3+6, 3+8, 4+1~, 4+2, 4+4, 4+6, 4+7, 4+8 , 4+9, 5+1~, 5+2, 5+4, 5+5, 5+7, 5+8, 5+9, 5+10, 5+12* , 6+1~, 6+2, 6+4, 6+6, 7+1~, 7+2, 7+4, 7+6, 7+8, 7+10 , VLD+7, VLDF~, VLDF+6
P	1+1~, 1+2, 1+4, 1+5, 2+1~, 2+2, 2+4, 2+5, 2+6, 3+1~ , 3+2, 3+4, 3+6, 3+8, 4+1~, 4+2, 4+4, 4+6, 4+7, 4+8* , 4+9, 5+1~, 5+2, 5+4, 5+5, 5+7, 5+8, 5+9, 5+10, 5+12* , 6+1~, 6+2, 6+4, 6+6, 7+1~, 7+2, 7+4, 7+6, 7+8, 7+10 , VLD~, VLD+1
R	PTRSET+1~, PTRSET+2, PTRSET+3, PTRSET+4, 1+1~, 2+1~, 3+1~, 4+1~, 5+1~, 6+1~ , 7+1~, VLD+1, VLD+5
U	ASUJBTCH+3, ASUJBTCH+8, ASUJBTCH+18, ASUJBTCH+27, ASUJBTCH+37, ASUJBTCH+48, ASUJBTCH+61, VLD+1, VLD+5
X	MREJ+1, 1+1~, 2+1~, 3+1~, 4+1~, 5+1~, 6+1~, 7+1~, VLD+2, VLD+3* , VLD+4, VLD+7, VLDF~
Z	UPDT+31!, VLDF+1~, VLDF+7, VLDF+9

Customize PDF page

Package: Supply

Routine: ASUJBTCH

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: