Routine: ASUMSOLR

Package	Total	Call Graph
Supply	4	^ASUMSTRD ^ASUMXDIO QUE^ASUUTIL ^ASUVAR
Kernel	2	HOME^%ZIS ^%ZISC
VA Fileman	2	^DIE ^DIR
IHS VA Utilities	1	^XBKVAR

Package	Total	Caller Graph
Supply	2	ASU121SOLR ASU123POLR

Name	Field # of Occurrence
HOME^%ZIS	START+7
^%ZISC	QUIT+3
^ASUMSTRD	SEGS+5
^ASUMXDIO	SEGS+5
QUE^ASUUTIL	START+16
^ASUVAR	SETUP+5, DISP+4
^DIE	EDIT+19
^DIR	GET+7, WRITE+6, EDIT+12, EDIT+23
^XBKVAR	START+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SETUP+3
Function Call: WRITE	Prompt: !?5,"S.A.M.S S.T.A.T.I.O.N M.A.S.T.E.R O.N.L.I.N.E R.E.V.I.E.W",!! Line Location: SETUP+4
Function Call: WRITE	Prompt: !,"UNABLE TO FIND ACCOUNTING POINT" Line Location: SETUP+6
Function Call: WRITE	Prompt: !!,"You have not selected any valid items for this station.",! Line Location: IDX+11
Function Call: WRITE	Prompt: @(IOF) Line Location: SEGS+5
Function Call: WRITE	Prompt: !,"INDEX ",$G(ASUMX("DELIX"))," FOR ",$G(ASUMX("DELDS"))," DELETED ",$E($G(ASUMX("DELDT")),2,3),"-",$E($G(ASUMS("DELDT")),4,5) Line Location: SEGS+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,"*****" Line Location: HDR+6
Function Call: WRITE	Prompt: ?(IOM-$L(ASUTXT))/2,ASUTXT Line Location: HDR+8
Function Call: WRITE	Prompt: ?IOM-5,"*****" Line Location: HDR+9
Function Call: WRITE	Prompt: !,"*****" Line Location: HDR+10
Function Call: WRITE	Prompt: ?(IOM-$L(ASUTXT))/2,ASUTXT Line Location: HDR+12
Function Call: WRITE	Prompt: ?IOM-5,"*****" Line Location: HDR+13
Function Call: WRITE	Prompt: !?(IOM-46)/2,"************ INDEX ITEM DATA *************" Line Location: ID+3
Function Call: WRITE	Prompt: !,"DESCR:",?9,$G(ASUMX("DESC",1)),?41,$G(ASUMX("DESC",2)) Line Location: ID+4
Function Call: WRITE	Prompt: !,"INDEX:" Line Location: ID+5
Function Call: WRITE	Prompt: ?9,$E(ASUMX("IDX"),1,5)_"."_$E(ASUMX("IDX"),6) Line Location: ID+5
Function Call: WRITE	Prompt: ?19,"ACCOUNT:",?29,$G(ASUMX("ACC")) Line Location: ID+6
Function Call: WRITE	Prompt: ?34,"DTESTB:" Line Location: ID+7
Function Call: WRITE	Prompt: ?42,$E(ASUMX("ESTB"),2,3)_"/"_$E(ASUMX("ESTB"),4,5) Line Location: ID+7
Function Call: WRITE	Prompt: ?49,"OBJSUB:" Line Location: ID+8
Function Call: WRITE	Prompt: ?57,$S(ASUMX("SOBJ")[".":ASUMX("SOBJ"),1:$E(ASUMX("SOBJ"),1,2)_"."_$E(ASUMX("SOBJ"),3,4)) Line Location: ID+8
Function Call: WRITE	Prompt: ?64,"CATGRY:",?74,$G(ASUMX("CAT")) Line Location: ID+9
Function Call: WRITE	Prompt: !,"NSN:" Line Location: ID+10
Function Call: WRITE	Prompt: ?9,$S($L(ASUMX("NSN"))=13:$E(ASUMX("NSN"),1,4)_"-"_$E(ASUMX("NSN"),5,6)_"-"_$E(ASUMX("NSN"),7,9)_"-"_$E(ASUMX("NSN"),10,13),1:ASUMX("NSN")) Line Location: ID+10
Function Call: WRITE	Prompt: ?34,"STA U/I:",?44,$G(ASUMX("AR U/I")) Line Location: ID+11
Function Call: WRITE	Prompt: !?(IOM-46)/2,"*********** STATION STATISTICS ***********" Line Location: SS+4
Function Call: WRITE	Prompt: !,"QTY OH:" Line Location: SS+5
Function Call: WRITE	Prompt: ?8,$J(ASUMS("QTY","O/H"),7) Line Location: SS+5
Function Call: WRITE	Prompt: ?19,"VALUE:" Line Location: SS+6
Function Call: WRITE	Prompt: ?25,$J(ASUMS("VAL","O/H"),12,2) Line Location: SS+6
Function Call: WRITE	Prompt: ?39,"LSTISS:" Line Location: SS+7
Function Call: WRITE	Prompt: ?47,$E(ASUMS("LSTISS"),2,3)_"/"_$E(ASUMS("LSTISS"),4,5) Line Location: SS+7
Function Call: WRITE	Prompt: ?54,"DUEOUT:" Line Location: SS+8
Function Call: WRITE	Prompt: ?64,$J(ASUMS("D/O","QTY"),7) Line Location: SS+8
Function Call: WRITE	Prompt: ?72,"SLC:",?78,$G(ASUMS("SLC")) Line Location: SS+9
Function Call: WRITE	Prompt: !?(IOM-46)/2,"********** ORDER / VENDOR DATA ***********" Line Location: OV+4
Function Call: WRITE	Prompt: !,"VENDOR:",?9,$G(ASUMS("VENAM")) Line Location: OV+5
Function Call: WRITE	Prompt: ?39,"ORDER#:",?49,$G(ASUMS("ORD#")) Line Location: OV+6
Function Call: WRITE	Prompt: !,"PAMIQ:" Line Location: OV+7
Function Call: WRITE	Prompt: ?8,$J(ASUMS("PMIQ"),7) Line Location: OV+7
Function Call: WRITE	Prompt: ?19,"CUR RPQ:" Line Location: OV+8
Function Call: WRITE	Prompt: ?29,$J(ASUMS("RPQ"),7) Line Location: OV+8
Function Call: WRITE	Prompt: ?39,"OLD RPQ:" Line Location: OV+9
Function Call: WRITE	Prompt: ?49,$J(ASUMS("RPQ-O"),7) Line Location: OV+9
Function Call: WRITE	Prompt: ?61,"SOURCE:",?69,$G(ASUMS("SRC")) Line Location: OV+10
Function Call: WRITE	Prompt: !,"LASTPP:" Line Location: OV+11
Function Call: WRITE	Prompt: ?7,$J(ASUMS("LPP"),10,2) Line Location: OV+11
Function Call: WRITE	Prompt: ?19,"LEADTIM:",?29,$J($G(ASUMS("LTM")),3,1) Line Location: OV+12
Function Call: WRITE	Prompt: ?39,"STDPACK:" Line Location: OV+13
Function Call: WRITE	Prompt: ?49,$J(ASUMS("SPQ"),7) Line Location: OV+13
Function Call: WRITE	Prompt: ?61,"VEN U/I:",?71,$G(ASUMS("VENUI")) Line Location: OV+14
Function Call: WRITE	Prompt: !,"EOQ TYP:",?9,$G(ASUMS("EOQ","TP")) Line Location: OV+15
Function Call: WRITE	Prompt: ?11,"EOQ TBL:" Line Location: OV+16
Function Call: WRITE	Prompt: ?19,$J(ASUMS("EOQ","TB"),4) Line Location: OV+16
Function Call: WRITE	Prompt: ?24,"MOS MOD:",?34,$G(ASUMS("EOQ","MM")) Line Location: OV+17
Function Call: WRITE	Prompt: ?39,"QTY MOD:" Line Location: OV+18
Function Call: WRITE	Prompt: ?48,$J(ASUMS("EOQ","QM"),7) Line Location: OV+18
Function Call: WRITE	Prompt: ?61,"ACT MOD:" Line Location: OV+19
Function Call: WRITE	Prompt: ?69,$J(ASUMS("EOQ","AM"),7) Line Location: OV+19
Function Call: WRITE	Prompt: !?(IOM-46)/2,"************** DUE IN DATA ***************" Line Location: DI+4
Function Call: WRITE	Prompt: !,"DUEIN "_I_" PO:",?12,$G(ASUMS("D/I","PO#",I)) Line Location: DI+6
Function Call: WRITE	Prompt: ?21,"DT:" Line Location: DI+7
Function Call: WRITE	Prompt: ?26,$E(ASUMS("D/I","DT",I),4,7),$E(ASUMS("D/I","DT",I),2,3) Line Location: DI+7
Function Call: WRITE	Prompt: ?34,"QTY:" Line Location: DI+8
Function Call: WRITE	Prompt: ?39,$J(ASUMS("D/I","QTY",I),7) Line Location: DI+8
Function Call: WRITE	Prompt: ?49,"VAL:" Line Location: DI+9
Function Call: WRITE	Prompt: ?54,$J(ASUMS("D/I","VAL",I),10,2) Line Location: DI+9
Function Call: WRITE	Prompt: ?67,"ON72:" Line Location: DI+10
Function Call: WRITE	Prompt: ?73,$E(ASUMS("D/I","DTR72",I),4,7),$E(ASUMS("D/I","DTR72",I),2,3) Line Location: DI+10
Function Call: WRITE	Prompt: !?((IOM-46)/2),"*** DEMAND DATA (CALLS & QTY BY MONTH) ***" Line Location: DD+5
Function Call: WRITE	Prompt: !?5,"JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC TOT" Line Location: DD+6
Function Call: WRITE	Prompt: !,"CA" Line Location: DD+7
Function Call: WRITE	Prompt: ?J,$J($G(ASUMS("DMD","CALL",I)),6,0) Line Location: DD+9
Function Call: WRITE	Prompt: ?74,$J(ASUTOT,6,0) Line Location: DD+10
Function Call: WRITE	Prompt: !,"QT" Line Location: DD+11
Function Call: WRITE	Prompt: ?J,$J($G(ASUMS("DMD","QTY",I)),6,0) Line Location: DD+13
Function Call: WRITE	Prompt: ?74,$J(ASUTOT,6,0),! Line Location: DD+14
Function Call: WRITE	Prompt: !!,"NO PURCHASE ORDER IN THIS FIELD",! Line Location: EDIT+14
Routine Call	%ZIS Line Location: START+7
Routine Call	DIE Line Location: EDIT+19
Routine Call	DIR Line Location: GET+7 WRITE+6 EDIT+12 EDIT+23

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS - [#9002031]	BLD+12, RANGE+12, EDIT+8
^ASUMX - [#9002032]	BLD+12, RANGE+11
^TMP("ASU"	START+8!, START+11, IDX+6!, IDX+10, BLD+12, RANGE+12, DISP+5, QUIT+2!

Name	Line Occurrences
$$PAD	BLD+9, RANGE+7
BLD	IDX+9
DD	SEGS+6
DI	SEGS+6
DISP	START+13, DQ+2
EDIT	WRITE+5
GET	IDX+7
HDR	SEGS+6
ID	SEGS+6
IDX	START+10
OV	SEGS+6
QUIT	EN1+5, EN2+5, DQ+3
RANGE	BLD+8
SEGS	WRITE+4, EDIT+7
SETUP	START+9
SS	SEGS+6
START	EN1+4, EN2+4
WRITE	DISP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASUAR	START+5~, START+9, START+10, SETUP~, SETUP+7*, IDX~, IDX+9, BLD~, BLD+8, BLD+10 , BLD+11, RANGE~, RANGE+8, RANGE+9, RANGE+10, RANGE+11
ASUDATA	EDIT+4~, EDIT+8*, EDIT+9, EDIT+14
ASUDTFLD	EDIT+4~, EDIT+6*, EDIT+18
ASUEP	EN1+2~, EN1+3, EN1+4, EN2+2~, EN2+3, EN2+4, START~, START+12, START+13, DQ+2 , DISP~, DISP+5, WRITE~, WRITE+4, WRITE+5, SEGS~, SEGS+6, SS~, SS+3, OV~ , OV+3, DD~, DD+3, EDIT~, EDIT+3, EDIT+7
ASUF	START+5~
ASUIDX	DISP+3~, DISP+5*, WRITE~, WRITE+4, WRITE+5, SEGS~, SEGS+4, EDIT~, EDIT+7, EDIT+8 , EDIT+16
ASUK	START+5~
ASUL	START+9, SETUP~
ASUL(1	SETUP+5, SETUP+6, SETUP+7
ASUL(2	START+6, HDR+11
ASUMS	START+5~, DISP+3~, DISP+5, WRITE~, WRITE+5, SEGS+6, SS~, OV~, DI~, DD~ , EDIT~
ASUMS("D/I"	DI+6, DI+7, DI+8, DI+9, DI+10
ASUMS("D/O"	SS+8
ASUMS("DELDT"	SEGS+5
ASUMS("DMD"	DD+9, DD+13
ASUMS("E#"	SEGS+3, SEGS+4, SEGS+5
ASUMS("EOQ"	OV+15, OV+16, OV+17, OV+18, OV+19
ASUMS("LPP"	OV+11
ASUMS("LSTISS"	SS+7
ASUMS("LTM"	OV+12
ASUMS("ORD#"	OV+6
ASUMS("PMIQ"	OV+7
ASUMS("QTY"	SS+5
ASUMS("RPQ"	OV+8
ASUMS("RPQ-O"	OV+9
ASUMS("SLC"	SS+9
ASUMS("SPQ"	OV+13
ASUMS("SRC"	OV+10
ASUMS("VAL"	SS+6
ASUMS("VENAM"	OV+5
ASUMS("VENUI"	OV+14
ASUMX	START+5~, DISP+3~, SEGS+6, ID~
ASUMX("ACC"	ID+6
ASUMX("AR U/I	" , ID+11
ASUMX("CAT"	ID+9
ASUMX("DELDS"	SEGS+5
ASUMX("DELDT"	SEGS+5
ASUMX("DELIX"	SEGS+5
ASUMX("DESC"	ID+4
ASUMX("E#"	SEGS+4*
ASUMX("ESTB"	ID+7
ASUMX("IDX"	ID+5
ASUMX("NSN"	ID+10
ASUMX("SOBJ"	ID+8
ASUOUT	START+3~, START+4, START+9, START+11, SETUP~, SETUP+6, IDX+3~, IDX+4, IDX+7, IDX+8 , IDX+10, GET~, GET+8, DISP+3~, DISP+5, WRITE~, WRITE+6, EDIT+4~, EDIT+7, EDIT+9 , EDIT+13, EDIT+24
ASUPOFLD	EDIT+4~, EDIT+5*, EDIT+14
ASUS	START+5~
ASUSTA	START+5~, START+6*, START+10, START+13, IDX~, IDX+9, BLD~, BLD+8, BLD+12, RANGE~ , RANGE+12, DQ+2, DISP~, DISP+5, WRITE~, WRITE+4, WRITE+5, SEGS~, SEGS+3, SEGS+6 , HDR~, EDIT~, EDIT+7, EDIT+8, EDIT+15, EDIT+17
ASUTOT	DD+4~, DD+8, DD+9, DD+10, DD+12, DD+13, DD+14
ASUTXT	HDR+4~, HDR+7, HDR+8, HDR+11, HDR+12
ASUV	START+5~
ASUX	BLD+5~, BLD+7, BLD+8, BLD+9, BLD+10*, BLD+11, BLD+12
ASUY	IDX+5~, IDX+7, IDX+9, GET~, GET+9*, BLD~, BLD+6, BLD+7
DA	EDIT+4~, EDIT+16*, EDIT+19!
DA(1	EDIT+17*
DIE	EDIT+4~, EDIT+15*, EDIT+19!
DIR	GET+3~, WRITE+3~, EDIT+4~, EDIT+12!, EDIT+23!
DIR("?"	GET+6*
DIR("A"	GET+5, EDIT+11, EDIT+21*
DIR("B"	EDIT+22*
DIR(0	GET+4, WRITE+6, EDIT+10, EDIT+20
>> DIROUT	SETUP+5, DISP+4
DR	EDIT+4~, EDIT+18*, EDIT+19!
>> DTOUT	SETUP+5, GET+8, DISP+4, EDIT+13
>> DUOUT	SETUP+5, GET+8, DISP+4, EDIT+13
I	BLD+5~, BLD+6, BLD+7, DI+3~, DI+5, DI+6, DI+7, DI+8, DI+9, DI+10 , DD+4~, DD+9, DD+13
IOF	SETUP+3, SEGS+5, HDR+3
IOM	HDR+8, HDR+9, HDR+12, HDR+13, ID+3, SS+4, OV+4, DI+4, DD+5
IOST	WRITE+6
J	DD+4~, DD+9, DD+13
U	EDIT+9, EDIT+14, EDIT+18
X	START+5~, GET+3~, RANGE~, RANGE+6, RANGE+7, RANGE+8, RANGE+10, RANGE+11, RANGE+12, WRITE+3~ , EDIT+4~, PAD~, PAD+5, PAD+6
Y	START+5~, GET+3~, GET+8, GET+9, RANGE~, RANGE+6, RANGE+7, RANGE+9, RANGE+11, WRITE+3~ , WRITE+6, EDIT+4~, EDIT+13, EDIT+14, EDIT+18, EDIT+24, PAD~, PAD+5
ZTSAVE	START+5~, START+16
ZTSAVE("ASUEP"	START+15*
ZTSAVE("ASUSTA"	START+15*
ZTSAVE("^TMP(""ASU"",$J,""IDX"","	START+15*

Name	Comments	DBIA/ICR reference
WRITE(ASUSTA,ASUIDX,ASUMS,ASUEP,ASUOUT)
QUIT	;----- CLEAN UP VARIABLES, CLOSE DEVICES, QUIT
IDX(ASUAR,ASUSTA)
HDR(ASUSTA)
ID(ASUMX)
EDIT(ASUSTA,ASUIDX,ASUMS,ASUEP)
DISP(ASUSTA,ASUEP)	;
START(ASUEP)
DI(ASUMS)
PAD(X,Y)	;----- EXTRINSIC FUNCTION TO PAD NUMBER WITH LEADING ZEROS
GET(ASUY,ASUOUT)
EN1	;EP -- MAIN ENTRY POINT FOR DATA DISPLAY
EN2	;EP -- ENTRY POINT TO EDIT PURCHASE ORDER DUE IN DATES
DD(ASUMS,ASUEP)
BLD(ASUY,ASUAR,ASUSTA)
SETUP(ASUL,ASUAR,ASUOUT)
SEGS(ASUSTA,ASUIDX,ASUEP)
OV(ASUMS,ASUEP)
RANGE(X,Y,ASUAR,ASUSTA)
SS(ASUMS,ASUEP)
DQ	;EP -- QUEUED JOB STARTS HERE

Customize PDF page

Package: Supply

Routine: ASUMSOLR

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: