Routine: ASUJBTCN

Information

ASUJBTCN ; IHS/ITSC/LMH -SCREENMAN FOR DATA ENTRY ; [ 07/17/2000 9:11 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

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	ASUJBTCN+5
^ASUMSTRD	VLDF+3
^ASUMXDIO	VLDF+2
^ASUVAR	ASUJBTCN+3
^DIK	MREJ+3
^XBKVAR	ASUJBTCN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Master Add transactions" Line Location: ASUJBTCN+8
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Master Change transactions" Line Location: ASUJBTCN+18
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Station User Level Change transactions" Line Location: ASUJBTCN+27
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U),$S($E(ASUJ1,2)="T":" Transfer ",1:"")," Debit transactions" Line Location: ASUJBTCN+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: ASUJBTCN+48
Function Call: WRITE	Prompt: !,"Processing ",$P(^ASUT(ASUJ,0),U)," Master Delete transactions" Line Location: ASUJBTCN+61
Function Call: WRITE	Prompt: !!,$FN(ASUC("TOT"),",")," Total Records processed." Line Location: ASUJBTCN+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+4
Function Call: WRITE	Prompt: " EDOK" Line Location: CKFLD+6
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)
^ASUT(	ASUJBTCN+8, ASUJBTCN+10, ASUJBTCN+11, ASUJBTCN+18, ASUJBTCN+19, ASUJBTCN+20, ASUJBTCN+27, ASUJBTCN+28, ASUJBTCN+29, ASUJBTCN+37 , ASUJBTCN+38, ASUJBTCN+39, ASUJBTCN+48, ASUJBTCN+50, ASUJBTCN+51, ASUJBTCN+61, ASUJBTCN+62, ASUJBTCN+63, PTRSET+2
^ASUTR(	MREJ+1*

Label References

Name	Line Occurrences
@(	CKFLD+2
CKFLD	UPDT+8
DCOUNT	ASUJBTCN+10, ASUJBTCN+17, ASUJBTCN+19, ASUJBTCN+26, ASUJBTCN+28, ASUJBTCN+35, ASUJBTCN+38, ASUJBTCN+47, ASUJBTCN+50, ASUJBTCN+60 , ASUJBTCN+62, ASUJBTCN+69
MREJ	UPDT+26, UPDT+30
PTRSET	ASUJBTCN+9, ASUJBTCN+36
TRRD	ASUJBTCN+12, ASUJBTCN+21, ASUJBTCN+30, ASUJBTCN+40, ASUJBTCN+52, ASUJBTCN+64
UPDT	ASUJBTCN+14, ASUJBTCN+23, ASUJBTCN+32, ASUJBTCN+44, ASUJBTCN+57, ASUJBTCN+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	ASUJBTCN+71!
ASUC("TOT"	ASUJBTCN+70, DCOUNT+1*
ASUC("TRN"	ASUJBTCN+10, ASUJBTCN+11, ASUJBTCN+16, ASUJBTCN+19, ASUJBTCN+20, ASUJBTCN+25, ASUJBTCN+28, ASUJBTCN+29, ASUJBTCN+34, ASUJBTCN+38 , ASUJBTCN+39, ASUJBTCN+41, ASUJBTCN+42, ASUJBTCN+46, ASUJBTCN+50, ASUJBTCN+51, ASUJBTCN+53, ASUJBTCN+54, ASUJBTCN+55, ASUJBTCN+59 , ASUJBTCN+62, ASUJBTCN+63, ASUJBTCN+68, DCOUNT+1, UPDT+2
>> ASUF("ERR"	UPDT+27, UPDT+31!
>> ASUHDA	ASUJBTCN+12, ASUJBTCN+21, ASUJBTCN+30, ASUJBTCN+40, ASUJBTCN+52, ASUJBTCN+64, UPDT+6, UPDT+7, MREJ+1, MREJ+3 , TRRD+1
ASUJ	ASUJBTCN+8, ASUJBTCN+9, ASUJBTCN+10, ASUJBTCN+11, ASUJBTCN+18, ASUJBTCN+19, ASUJBTCN+20, ASUJBTCN+27, ASUJBTCN+28, ASUJBTCN+29 , ASUJBTCN+36, ASUJBTCN+37, ASUJBTCN+38, ASUJBTCN+39, ASUJBTCN+48, ASUJBTCN+50, ASUJBTCN+51, ASUJBTCN+61*, ASUJBTCN+62, ASUJBTCN+63 , ASUJBTCN+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+2, VLDF+2, VLDF+3
ASUJ("FILE"	UPDT+4*
ASUJ("GLOB"	UPDT+5*, MREJ+1, MREJ+3
ASUJ("RTN"	UPDT+1*
>> ASUJ1	ASUJBTCN+37, ASUJBTCN+41, ASUJBTCN+42, ASUJBTCN+48, ASUJBTCN+49, ASUJBTCN+53, ASUJBTCN+54, ASUJBTCN+55
>> ASUK	ASUJBTCN+3
>> ASUL("ST#"	VLDF+3
>> ASUL(1	ASUJBTCN+4, ASUJBTCN+5, CKFLD+1
>> ASUL(11	ASUJBTCN+41, ASUJBTCN+42, ASUJBTCN+53, ASUJBTCN+54
>> ASUL(2	ASUJBTCN+6, CKFLD+1
ASUMK	ASUJBTCN+71!
ASUMS	ASUJBTCN+71!
ASUMS("E#"	VLDF+2, VLDF+3
ASUMX	ASUJBTCN+71!
>> ASUSB	ASUJBTCN+7*, VLDF+1
ASUT	ASUJBTCN+12, ASUJBTCN+21, ASUJBTCN+30, ASUJBTCN+40, ASUJBTCN+43, ASUJBTCN+52, ASUJBTCN+55, ASUJBTCN+56, ASUJBTCN+64, ASUJBTCN+71! , UPDT+1, UPDT+2, UPDT+3, UPDT+7, CKFLD+1, VLD+2, VLD+3, VLDF+2, VLDF+3
ASUT(	ASUJBTCN+43, ASUJBTCN+55, ASUJBTCN+56, UPDT+7, CKFLD+1, VLD+2, VLD+3, VLDF+2, VLDF+3
ASUT("TRCD"	ASUJBTCN+13, ASUJBTCN+22, ASUJBTCN+31, ASUJBTCN+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	ASUJBTCN+71!
ASUV("ASUT"	UPDT+3*
ASUV("E#"	ASUJBTCN+10, ASUJBTCN+11, ASUJBTCN+12, ASUJBTCN+19, ASUJBTCN+20, ASUJBTCN+21, ASUJBTCN+28, ASUJBTCN+29, ASUJBTCN+30, ASUJBTCN+38* , ASUJBTCN+39, ASUJBTCN+40, ASUJBTCN+50, ASUJBTCN+51, ASUJBTCN+52, ASUJBTCN+62, ASUJBTCN+63*, ASUJBTCN+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+9
>> DDSSAVE	UPDT+9, UPDT+10, UPDT+26, UPDT+27, UPDT+28, UPDT+29, UPDT+31, CKFLD+4, CKFLD+6, CKFLD+8
>> DIE	UPDT+6*
>> DIK	MREJ+3*
>> DIROUT	ASUJBTCN+3
>> DTOUT	ASUJBTCN+3
>> DUOUT	ASUJBTCN+3
E	UPDT+25, UPDT+26!, UPDT+31!, CKFLD+1~, CKFLD+3, CKFLD+8, 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+9*
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+6
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+5
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	ASUJBTCN+3, ASUJBTCN+8, ASUJBTCN+18, ASUJBTCN+27, ASUJBTCN+37, ASUJBTCN+48, ASUJBTCN+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+6, VLDF+8

Customize PDF page

Package: Supply

Routine: ASUJBTCN

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: