Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ASURD132

Package: Supply

Routine: ASURD132


Information

ASURD132 ; IHS/ITSC/LMH -RPT 13 REQ-ANAL DETAIL LINES ;

Source Information

Source file <ASURD132.m>

Caller Graph

Caller Graph Total: 1

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

Label References

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

Local Variables

Legend:

>> 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~*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Label References |  Local Variables |  All