Routine: ASUW2STO

Package	Total	Call Graph
Supply	5	SETAREA^ASULARST (DATE,TIME)^ASUUDATE ^ASUUPLOG (LOGNTRY,UPDTHIST)^ASUW2SAM (,ASUW2ST7,ASUW2ST9)^ASUW2ST1
IHS VA Utilities	1	^XBKVAR
Kernel	1	^%ZIS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Supply	2	ASUCOMOR ASUW2ST1

Name	Comments	DBIA/ICR reference
BEGIN	;EP;FOR RE-EXTRACT
DATE	;FORMAT FROM VA FILEMAN DATE
VALUE	;REMOVE DECIMAL PAD WITH ZEROS
ASUWXT3	;Determine field Type
NUM	;FILL WITH ZEROS
MO(X)	;EP;
OPNHFS	;EP;FOR RE-EXTRACT
ALPHA	;FILL WITH SPACES
ASUWXT1	;Conversion sub-routine
DESC	;DESCRIPTIONS

Name	Field # of Occurrence
^%ZIS	BEGIN+2
SETAREA^ASULARST	OPNHFS+35
DATE^ASUUDATE	BEGIN+6
TIME^ASUUDATE	OPNHFS+1, OPNHFS+43
^ASUUPLOG	OPNHFS+2, OPNHFS+16, OPNHFS+26, OPNHFS+27, OPNHFS+28, OPNHFS+31, OPNHFS+44, ASUWXT1+32
LOGNTRY^ASUW2SAM	OPNHFS+38, OPNHFS+40
UPDTHIST^ASUW2SAM	ASUWXT1+24
^ASUW2ST1	OPNHFS+8
ASUW2ST7^ASUW2ST1	OPNHFS+17
ASUW2ST9^ASUW2ST1	OPNHFS+41
^DIR	OPNHFS+42
^XBKVAR	BEGIN+1

FileNo	Call Tags
^ASUH - [#9002036]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ASUL(30 - [#9002039.3]	OPNHFS+23, OPNHFS+24, OPNHFS+26, ASUWXT1+15, ASUWXT1+16
^ASUPDATA	BEGIN+8!, ASUWXT1+26*
^ASUPDATA(0	OPNHFS+36*
^ASUSITE(1	BEGIN+4, OPNHFS+3, OPNHFS+38, OPNHFS+40
^ASUT(	OPNHFS+13
^ASUW(4	OPNHFS+47!
^ASUW(5	OPNHFS+47!

Name	Line Occurrences
ALPHA	ASUWXT3+5, ASUWXT3+9, ASUWXT3+16, ASUWXT3+17
ASUWXT1	OPNHFS+20
ASUWXT3	ASUWXT1+23
BEGIN	ASUW2STO+3
DATE	ASUWXT3+6
DESC	ASUWXT3+7
NUM	ASUWXT3+10, ASUWXT3+15
VALUE	ASUWXT3+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUC	OPNHFS+45!
ASUC(	OPNHFS+22*, OPNHFS+23
ASUC("REC"	OPNHFS+10, OPNHFS+22, OPNHFS+25
ASUC("RECTOT"	OPNHFS+10, OPNHFS+22, OPNHFS+25, OPNHFS+29, OPNHFS+34, OPNHFS+36, ASUWXT1+25, ASUWXT1+26, ASUWXT1+29, ASUWXT1+31
ASUC("TOTPRC"	OPNHFS+10, OPNHFS+21, OPNHFS+28
ASUC(0	OPNHFS+10, OPNHFS+12
>> ASUF("TAPE"	OPNHFS+45!
ASUG	OPNHFS+45!
ASUG("E#"	OPNHFS+18
ASUG("FL#"	OPNHFS+11*, OPNHFS+13, OPNHFS+22, OPNHFS+23, OPNHFS+24, OPNHFS+26, ASUWXT1+3, ASUWXT1+6, ASUWXT1+15, ASUWXT1+16 , NUM+2
ASUG("FLD"	ASUWXT1+14, ASUWXT1+15, ASUWXT1+16
ASUG("PC#"	OPNHFS+13*, ASUWXT1+9
ASUG("TRGBL"	OPNHFS+13*, ASUWXT1+2, DATE+4, ALPHA+1, ALPHA+2, NUM+18
ASUG("TRN"	ASUWXT1+2, ASUWXT1+3, ASUWXT1+4, ASUWXT1+5, ASUWXT1+6, ASUWXT1+7, ASUWXT1+8
>> ASUHDA	OPNHFS+18*, OPNHFS+19, ASUWXT1+2
>> ASUK("ASUFAC"	OPNHFS+36
>> ASUK("DT"	BEGIN+6, BEGIN+7, OPNHFS+2, OPNHFS+44
>> ASUK("PTR-Q"	OPNHFS+42, ASUWXT1+28
>> ASUL(1	OPNHFS+7*, OPNHFS+8, OPNHFS+20, OPNHFS+26, OPNHFS+36, OPNHFS+37, ASUWXT1+9
>> ASULA("X"	OPNHFS+45!
>> ASUP("MO"	MO+1*, OPNHFS+38, OPNHFS+40
>> ASUP("TYP"	BEGIN+3*, OPNHFS+38, OPNHFS+48
>> ASURX	OPNHFS+2, OPNHFS+15, OPNHFS+26, OPNHFS+27, OPNHFS+28, OPNHFS+30, OPNHFS+34, OPNHFS+44, ASUWXT1+32*
ASUT	OPNHFS+45!
ASUT(	ASUWXT1+6*, ASUWXT3+2
ASUT("CAT"	NUM+4*, NUM+5, NUM+6!
ASUT("OUT"	ASUWXT1+1, ASUWXT1+26, ASUWXT1+27, DATE+14, ALPHA+11, ALPHA+14, VALUE+20, NUM+19, NUM+20
ASUT("TRCDE"	ASUWXT1+10, ASUWXT1+11, ASUWXT1+12, ASUWXT1+13, ASUWXT3+12, ASUWXT3+14, DATE+8, DATE+9, DATE+10, VALUE+1 , VALUE+3, NUM+2
ASUT(0	ASUWXT1+1, ASUWXT1+7, ASUWXT1+9
ASUT(1	ASUWXT1+8, ASUWXT1+10, ASUWXT1+13
ASUT(4	NUM+3, NUM+4, NUM+5
ASUU	OPNHFS+45!
ASUU(10	NUM+11*, NUM+13
ASUU(12	NUM+10*, NUM+11, NUM+13
ASUV	OPNHFS+48!
ASUV("PADLN"	OPNHFS+9*
ASUW	OPNHFS+48!
ASUW("DT EXT"	, BEGIN+7*, OPNHFS+24, OPNHFS+36, OPNHFS+38, OPNHFS+40
ASUW("DT"	DATE+3, DATE+4, DATE+5, DATE+6, DATE+12, DATE+13, DATE+14, DATE+15!
ASUW("FIL"	ASUWXT1+1, ALPHA+8, ALPHA+10, ALPHA+11, ALPHA+13, ALPHA+14
ASUW("FL"	OPNHFS+13*, OPNHFS+15, OPNHFS+26
ASUW("FLD"	ASUWXT1+16, ASUWXT1+17, ASUWXT1+18, ASUWXT1+19, ASUWXT1+20, ASUWXT1+21, ASUWXT1+22, ASUWXT3+5, ASUWXT3+6, ASUWXT3+7 , ASUWXT3+8, ASUWXT3+9, ASUWXT3+10, ASUWXT3+11, ASUWXT3+13, DATE+1, DATE+3, DESC+1, DESC+2, ALPHA+1 , ALPHA+2, ALPHA+3, ALPHA+4, ALPHA+5, ALPHA+6, ALPHA+7, ALPHA+8, ALPHA+10, ALPHA+13, VALUE+2 , VALUE+4, VALUE+10, NUM+1, NUM+2, NUM+8*, NUM+9, NUM+10, NUM+15, NUM+17, NUM+18 , NUM+19
ASUW("NODE"	ASUWXT1+22*, ASUWXT3+1, ASUWXT3+2
ASUW("PC#"	ASUWXT1+20*, ASUWXT3+2
ASUW("PCIN"	ASUWXT3+2, ASUWXT3+4, ASUWXT3+14, ASUWXT3+15, DATE+2, DATE+3, DATE+4, DATE+5, DATE+9, DATE+10* , DATE+11, DATE+12, DESC+3, DESC+5, ALPHA+1, ALPHA+2, ALPHA+3, ALPHA+5, ALPHA+8, ALPHA+11 , ALPHA+13, VALUE+3, VALUE+5, VALUE+8, VALUE+11, VALUE+14, VALUE+16, VALUE+19, NUM+1, NUM+3 , NUM+8, NUM+13, NUM+15, NUM+17, NUM+18, NUM+19, NUM+20
ASUW("SV DIR"	, OPNHFS+5*
ASUW("SV MED"	, OPNHFS+4, OPNHFS+5, OPNHFS+6, OPNHFS+41
ASUW("TY RUN"	, BEGIN+4, OPNHFS+3, OPNHFS+4
ASUW("VAL"	VALUE+6, VALUE+8, VALUE+12, VALUE+14, VALUE+17, VALUE+19, VALUE+20, VALUE+21!
ASUW("XTR-F"	OPNHFS+19, ASUWXT1+9
ASUW("ZROS"	NUM+7, NUM+12, NUM+13, NUM+19, NUM+20*
ASUX	OPNHFS+45!
DA	OPNHFS+19*, OPNHFS+46!
DIE	OPNHFS+14*, OPNHFS+46!
DIR	OPNHFS+42!
DIR(0	OPNHFS+42*
DIROUT	OPNHFS+46!
DR	OPNHFS+46!
DTOUT	OPNHFS+46!
DUOUT	OPNHFS+46!
IO(0	BEGIN+2
>> IOP	BEGIN+2*
IOST	OPNHFS+42
U	BEGIN+1, OPNHFS+4, OPNHFS+13, OPNHFS+23, OPNHFS+24, OPNHFS+26, OPNHFS+36, OPNHFS+38, OPNHFS+40, ASUWXT1+9 , ASUWXT1+10, ASUWXT1+13, ASUWXT1+17, ASUWXT1+18, ASUWXT1+19, ASUWXT1+20, ASUWXT1+21, ASUWXT1+22, ASUWXT1+26, ASUWXT3+2 , NUM+3, NUM+4, NUM+5
X	MO~, MO+1, ASUWXT1+29, ASUWXT1+30, ASUWXT1+31, ASUWXT1+32, VALUE+8, VALUE+14, VALUE+19*
XBGL	OPNHFS+45!
XBMED	OPNHFS+41*, OPNHFS+45!
XBUF	OPNHFS+45!

Customize PDF page

Package: Supply

Routine: ASUW2STO

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: