Routine: ASURD132

Package	Total	Caller Graph
Supply	1	ASURD13P

Entry Points

Name	Comments	DBIA/ICR reference
P3	;1-12 PRINT
P6	;MONS 1-12 SET
AMIQ	;FIND OAMIQ AND LAMIQ
P7	;MONS 1-12 PRINT
DMCMPT	;EP; -COMPUTE SUB DISPLACEMENT TO CORRECT MONTH

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: 7,7,"ERROR IN REPORT 13 MONTH COMPUTATION" Line Location: ASURD132+5
Function Call: WRITE	Prompt: ?76,"C-RPQ",?83,$J(ASUMS("RPQ"),5),?91,"STKST",?97,$J(ASUV("STKST"),5),?105,"TYPE CODE",?116,ASUMS("EOQ","TP") Line Location: P3+2
Function Call: WRITE	Prompt: ?118,"SUI",?128,ASUMS("VENUI") Line Location: P3+2
Function Call: WRITE	Prompt: !?2,ASUMX("DESC",2) Line Location: P3+3
Function Call: WRITE	Prompt: ?76,"O-AMIQ",?83,$J(ASUV("PMIQ-O"),5),?91,"OH QTY",?97,$J(ASUMS("QTY","O/H"),5) Line Location: P3+6
Function Call: WRITE	Prompt: ?118,"SUI",?128,ASUMS("VENUI"),!?2,ASUMX("DESC",2) Line Location: P3+11
Function Call: WRITE	Prompt: ?76,"L-AMIQ",?83,$J(ASUV("PMIQ-L"),5),?91,"DI QTY",?97,$J(ASUMS("D/I","QTY-TOT"),5),?105,"EOQ MOS",?113,ASUMS("EOQ","MO"),?119,$S($G(ASUS("QTYAJ"))]"":"EOQ*",1:"EOQ "),?124,$J(ASUMS("EOQ","QTY"),7) Line Location: P3+14
Function Call: WRITE	Prompt: !?3,"DATE EST",?12,$E(X,2,3),"-",$E(X,4,5) Line Location: P3+15
Function Call: WRITE	Prompt: ?18,"SUBOBJECT",?28,$E(X,1,2),".",$E(X,3,4) Line Location: P3+17
Function Call: WRITE	Prompt: ?76,"PAMIQ",?83,$J(ASUMS("PMIQ"),5),?91,"DO QTY",?97,$J(ASUMS("D/O","QTY"),5),?105,"LUPP" Line Location: P3+19
Function Call: WRITE	Prompt: ?110,$J($FN(ASUMS("LPP"),",",2),12),?123,"T13",$J(ASUMS("R13","TIMES"),5) Line Location: P3+19
Function Call: WRITE	Prompt: ?34,$E(ASUD("R13","MO",ASUV("OFS")),1,2),?37,$J(ASUMS("DMD","QTY",ASUV("OFS")),4),?43,$J(ASUMS("DMD","CALL",ASUV("OFS")),4) Line Location: P6+1
Function Call: WRITE	Prompt: ?48,$E(ASUD("R13","MO",ASUV("OFS")),1,2),?51,$J(ASUMS("DMD","QTY",ASUV("OFS")),4),?57,$J(ASUMS("DMD","CALL",ASUV("OFS")),4) Line Location: P6+2
Function Call: WRITE	Prompt: ?62,$E(ASUD("R13","MO",ASUV("OFS")),1,2),?65,$J(ASUMS("DMD","QTY",ASUV("OFS")),4),?71,$J(ASUMS("DMD","CALL",ASUV("OFS")),4) Line Location: P6+3
Function Call: WRITE	Prompt: !?29,"TOTALS",?36,$J((ASUMS("DMD","QTY",ASUV("OFS",1))+ASUMS("DMD","QTY",ASUV("OFS",2))+ASUMS("DMD","QTY",ASUV("OFS",3))+ASUMS("DMD","QTY",ASUV("SEL MO"))),5) Line Location: P7+4
Function Call: WRITE	Prompt: ?42,$J((ASUMS("DMD","CALL",ASUV("OFS",1))+ASUMS("DMD","CALL",ASUV("OFS",2))+ASUMS("DMD","CALL",ASUV("OFS",3))+ASUMS("DMD","CALL",ASUV("SEL MO"))),5) Line Location: P7+6
Function Call: WRITE	Prompt: ?50,$J((ASUMS("DMD","QTY",ASUV("OFS"))+ASUMS("DMD","QTY",ASUV("OFS",1))+ASUMS("DMD","QTY",ASUV("OFS",2))+ASUMS("DMD","QTY",ASUV("OFS",3))),5) Line Location: P7+11
Function Call: WRITE	Prompt: ?56,$J((ASUMS("DMD","CALL",ASUV("OFS"))+ASUMS("DMD","CALL",ASUV("OFS",1))+ASUMS("DMD","CALL",ASUV("OFS",2))+ASUMS("DMD","CALL",ASUV("OFS",3))),5) Line Location: P7+12
Function Call: WRITE	Prompt: ?64,$J((ASUMS("DMD","QTY",ASUV("OFS"))+ASUMS("DMD","QTY",ASUV("OFS",1))+ASUMS("DMD","QTY",ASUV("OFS",2))+ASUMS("DMD","QTY",ASUV("OFS",3))),5) Line Location: P7+17
Function Call: WRITE	Prompt: ?70,$J((ASUMS("DMD","CALL",ASUV("OFS"))+ASUMS("DMD","CALL",ASUV("OFS",1))+ASUMS("DMD","CALL",ASUV("OFS",2))+ASUMS("DMD","CALL",ASUV("OFS",3))),5) Line Location: P7+18
Function Call: WRITE	Prompt: ?77,"RPM",?82,$FN(ASUV("RPM"),",",1),?91,"LTM",?96,$FN(ASUMS("LTM"),",",1),?104,"SOURCE CD",?114,ASUMS("SRC") Line Location: P7+19
Function Call: WRITE	Prompt: ?117,"EOV",?121,$J($FN(ASUL("EOQVAL"),",",2),12) Line Location: P7+21

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ASUC("EOQVAL"	P7+20*
>> ASUC("LN"	P3+4, P3+12, P3+16, P7+5
>> ASUD("R13"	ASURD132+4, AMIQ+1, AMIQ+3, P6+1, P6+2, P6+3
>> ASUL("EOQVAL"	P7+20*, P7+21
>> ASUMS("D/I"	P3+14
>> ASUMS("D/O"	P3+19
>> ASUMS("DMD"	AMIQ+2, AMIQ+4, P6+1, P6+2, P6+3, P7+4, P7+6, P7+11, P7+12, P7+17 , P7+18
>> ASUMS("EOQ"	P3+2, P3+8, P3+9, P3+10, P3+14, P7+20
>> ASUMS("LPP"	P3+19, P7+20
>> ASUMS("LTM"	ASURD132+4, P7+19
>> ASUMS("PMIQ"	P3+19
>> ASUMS("QTY"	P3+6
>> ASUMS("R13"	P3+19
>> ASUMS("RPQ"	P3+2
>> ASUMS("SFSKM"	ASURD132+4
>> ASUMS("SRC"	P7+19
>> ASUMS("VENUI"	P3+2, P3+11
>> ASUMX("DESC"	P3+3, P3+11
>> ASUMX("ESTB"	P3+15
>> ASUMX("SOBJ"	P3+17
>> ASUQ	AMIQ+1, AMIQ+2, AMIQ+3, AMIQ+4
>> ASUS("QTYAJ"	P3+14
>> ASUU(19	AMIQ+2, AMIQ+4
>> ASUV("MO"	AMIQ+1, AMIQ+2, AMIQ+3*, AMIQ+4
>> ASUV("OFS"	P3+1, P3+5, P3+13, P3+18, P6+1, P6+2, P6+3, DMCMPT+1, P7+1, P7+2 , P7+3, P7+4, P7+6, P7+7, P7+8, P7+9, P7+10, P7+11, P7+12, P7+13 , P7+14, P7+15, P7+16*, P7+17, P7+18
>> ASUV("PMIQ-L"	AMIQ+1, AMIQ+4, AMIQ+5, AMIQ+10, AMIQ+11, AMIQ+13*, P3+14
>> ASUV("PMIQ-O"	AMIQ+1, AMIQ+2, AMIQ+5, AMIQ+6, AMIQ+7, AMIQ+9*, P3+6
>> ASUV("RPM"	ASURD132+4*, P7+19
>> ASUV("SEL MO"	, ASURD132+4*, ASURD132+5, DMCMPT+1, P7+4, P7+6
>> ASUV("STKST"	ASURD132+4*, P3+2
>> ASUX(0	ASURD132+4
U	ASURD132+4, P3+1, P3+5, P3+13, P3+18, P6+1, P6+2, P6+3
X	P3+15~, P3+17~

Customize PDF page

Package: Supply

Routine: ASURD132

Information

Source Information

Caller Graph

Caller Graph Total: 1

Entry Points

Interaction Calls

Label References

Local Variables

Legend:

Name	Line Occurrences
AMIQ	ASURD132+6
DMCMPT	P6+1, P6+2, P6+3, P7+1, P7+2, P7+3, P7+7, P7+8, P7+9, P7+10 , P7+13, P7+14, P7+15, P7+16
P3	ASURD132+6
P6	P3+1, P3+5, P3+13, P3+18
P7	P3+20