- ASURQ490 ; IHS/ITSC/LMH -RPT 49 R & N ITEMS ;
- ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- ;This routine formats and prints report 49, List R & N Items
- ;from sorted extracts.
- K ^XTMP("ASUR","R49")
- S ^XTMP("ASUR","R49",0)=ASUK("DT","FM")+10000_U_ASUK("DT","FM")
- S ASUMS("E#","STA")=0,^XTMP("ASUR","R49",0)=ASUK("DT","FM")
- S (ASUC("TVAL","TOT"),ASUC("TVAL","TPA"),ASUC("TVAL","13IS"),ASUC("TVAL","XS"),ASUC("TVAL","AIV"))=0
- S (ASUC("TLI","TOT"),ASUC("TLI","13IS"),ASUC("TLI","XS"),ASUC("TLI","ZBAL"),ASUC("TLI","PSTDU"),ASUC("TLI","MOD"),ASUC("TLI","NOIS"),ASUC("TLI","NSN"),ASUC("TLI","R13"),ASUC("TLI","RPQ"),ASUC("TLI","LPP"))=0
- F S ASUMS("E#","STA")=$O(^ASUMS(ASUMS("E#","STA"))) Q:ASUMS("E#","STA")'?1N.N D
- .F ASUMS("E#","IDX")=0:0 S ASUMS("E#","IDX")=$O(^ASUMS(ASUMS("E#","STA"),1,ASUMS("E#","IDX"))) Q:ASUMS("E#","IDX")'?1N.N D
- ..D ^ASUMSTRD
- ..S X=$L(ASUMS("PMIQ")) I $E(ASUMS("PMIQ"),X)=0 D
- ...S ASUMS("PMIQ")=$FN((ASUMS("PMIQ")*.1),"",0)
- ..S ASUMX("E#","IDX")=ASUMS("E#","IDX") D READ^ASUMXDIO,ACC^ASULDIRF(ASUMX("ACC"))
- ..Q:$G(ASUF("DLIDX"))=1 Q:ASUMX("ACC")'?1N
- ..S ASUC("VAL","TOT")=$G(ASUC("VAL","TOT"))+ASUMS("VAL","O/H"),ASUC("LI","TOT")=$G(ASUC("LI","TOT"))+1
- ..I ASUMS("EOQ","TP")="A" D
- ...S ASUC("VAL","TPA")=$G(ASUC("VAL","TPA"))+ASUMS("VAL","O/H")
- ...S ASUC("VAL","AIV")=$G(ASUC("VAL","AIV"))+((ASUMS("PMIV")*ASUMS("EOQ","MO")/2))+ASUMS("PMIV")
- ..I ASUMS("SRC")?1N,ASUMS("SRC")>0,ASUMS("SRC")<4 D
- ...I ASUMS("ORD#")']"",$L(ASUMX("NSN"))'>4 D ERR0,SRTXTR Q
- ...I ASUMS("ORD#")'?4N.N S ASUX("ERR")=1 D ERR0,SRTXTR S ASUC("LI","NSN")=$G(ASUC("LI","NSN"))+1
- ..I ASUMS("LSTISS")']"" D
- ...S ASUC("LI","NOIS")=$G(ASUC("LI","NOIS"))+1
- ...I ASUMS("QTY","O/H")>0 D
- ....S ASUX("ERR")=3 D ERR0,SRTXTR
- ...E D
- ....I ASUMS("D/I","QTY-TOT")'>0 S ASUX("ERR")=2 D ERR0,SRTXTR S ASUC("LI","ZBAL")=$G(ASUC("LI","ZBAL"))+1
- ..S X1=ASUMS("LSTISS"),X2=ASUK("DT","FM") D ^%DTC S ASUMS("MOSIS")=$FN((X/30),"",0)
- ..S ASUMS("MOSUP")=$S(+ASUMS("QTY","O/H")<1:0,+ASUMS("PMIQ")<1:0,1:$FN((ASUMS("QTY","O/H")/ASUMS("PMIQ")),"",0))
- ..I ASUMS("D/I","QTY-TOT")>0 D
- ...I ASUMS("EOQ","TP")="R" S ASUX("ERR")=6 D ERR0,SRTXTR
- ...I ASUMS("QTY","O/H")>0 D
- ....I ASUMS("MOSUP")>6 S ASUX("ERR")=4 D ERR1(ASUMS("MOSUP")),SRTXTR
- ....I ASUMS("MOSIS")>13 S ASUX("ERR")=8 D ERR1(ASUMS("MOSIS")),SRTXTR S ASUC("LI","13IS")=$G(ASUC("LI","13IS"))+1,ASUC("VAL","13IS")=$G(ASUC("VAL","13IS"))+ASUMS("VAL","O/H") Q
- ....S ASUMS("QTY","NED")=(ASUMS("PMIQ")*12)+ASUMS("RPQ") S ASUMS("QTY","XS")=ASUMS("QTY","O/H")-ASUMS("QTY","NED")
- ....I ASUMS("QTY","XS")>0 S ASUX("ERR")=9 D ERR1(ASUMS("QTY","XS")),SRTXTR S ASUC("VAL","XS")=$G(ASUC("VAL","XS"))+ASUMS("VAL","O/H"),ASUC("LI","XS")=$G(ASUC("LI","XS"))+1
- ...E D
- ....I ASUMS("MOSIS")>1 S ASUX("ERR")=7 D ERR1(ASUMS("MOSIS")),SRTXTR S ASUC("LI","ZBAL")=$G(ASUC("LI","ZBAL"))+1 Q
- ..I ASUMS("MOSIS")>7 S ASUX("ERR")=5 D ERR1(ASUMS("MOSIS")),SRTXTR Q
- ..I ASUMS("EOQ","TP")="P",ASUMS("DMD","CALL")>4 S ASUX("ERR")=10 D ERR0,SRTXTR S ASUC("LI","MOD")=$G(ASUC("LI","MOD"))+1
- ..I ASUMS("EOQ","TP")="B",ASUMS("QTY","O/H")>ASUMS("EOQ","QM") S ASUX("ERR")=11 D ERR2(ASUMS("EOQ","QM"),ASUMS("QTY","O/H")),SRTXTR S ASUC("LI","MOD")=$G(ASUC("LI","MOD"))+1
- ..I ASUMS("EOQ","TP")="C",ASUMS("MOSUP")>ASUMS("EOQ","MM") S ASUX("ERR")=12 D ERR2(ASUMS("EOQ","MM"),ASUMS("MOSUP")),SRTXTR S ASUC("LI","MOD")=$G(ASUC("LI","MOD"))+1
- ..I ASUMS("R13","TIMES")>2 D
- ...I ASUMS("EOQ","MO")>1.5 S ASUX("ERR")=13 D ERR1(ASUMS("R13","TIMES")),SRTXTR S ASUC("LI","R13")=$G(ASUC("LI","R13"))+1
- ..F Y=1:1:3 S X1=ASUMS("D/I","DT",Y),X2=ASUK("DT","FM") D ^%DTC S ASUV("PSTDU")=X I ASUV("PSTDU")>60 S ASUX("ERR")=14 D ERR0,SRTXTR S ASUC("LI","PSTDU")=$G(ASUC("LI","PSTDU"))+1
- ..I ASUMS("PMIQ")>1 D
- ...Q:ASUMS("AMIQ")=0 Q:ASUMS("AMIQ")=ASUMS("PMIQ")
- ...I ASUMS("PMIQ")>ASUMS("AMIQ") D
- ....S ASUV("%")=$FN(((ASUMS("PMIQ")-ASUMS("AMIQ")*100))/ASUMS("PMIQ"),"",0)
- ...E D
- ....S ASUV("%")=$FN(((ASUMS("AMIQ")-ASUMS("PMIQ")*100))/ASUMS("AMIQ"),"",0)
- ...I ASUV("%")>25 S ASUX("ERR")=15 D ERR2(ASUMS("PMIQ"),ASUMS("AMIQ")),SRTXTR S ASUC("LI","RPQ")=$G(ASUC("LI","RPQ"))+1
- ..I ASUMS("CST/U")>1 D
- ...Q:ASUMS("LPP")=0 Q:ASUMS("CST/U")=ASUMS("LPP")
- ...I ASUMS("LPP")>ASUMS("CST/U") D
- ....S ASUV("%")=$FN(((ASUMS("LPP")-ASUMS("CST/U")*100))/ASUMS("LPP"),"",0)
- ...E D
- ....S ASUV("%")=$FN(((ASUMS("CST/U")-ASUMS("LPP")*100))/ASUMS("CST/U"),"",0)
- ...I ASUV("%")>25 S ASUX("ERR")=16 D ERR2(ASUMS("LPP"),ASUMS("CST/U")),SRTXTR S ASUC("LI","LPP")=$G(ASUC("LI","LPP"))+1
- .S ASUX("MSG")=""
- .F X="TOT","TPA","13IS","XS","AIV" S ASUC("TVAL",X)=$G(ASUC("TVAL",X))+$G(ASUC("VAL",X)) S ASUX("MSG")=$G(ASUX("MSG"))_$G(ASUC("VAL",X))_U
- .F X="TOT","13IS","XS","ZBAL","PSTDU","MOD","NOIS","NSN","R13","RPQ","LPP" S ASUC("TLI",X)=$G(ASUC("TLI",X))+$G(ASUC("LI",X)) S ASUX("MSG")=$G(ASUX("MSG"))_$G(ASUC("LI",X))_U
- .S ^XTMP("ASUR","R49",ASUMS("E#","STA"),0)=ASUX("MSG") K ASUC("VAL"),ASUC("LI")
- S ASUX("MSG")=""
- F X="TOT","TPA","13IS","XS","AIV" S ASUX("MSG")=$G(ASUX("MSG"))_$G(ASUC("TVAL",X))_U
- F X="TOT","13IS","XS","ZBAL","PSTDU","MOD","NOIS","NSN","R13","RPQ","LPP" S ASUX("MSG")=$G(ASUX("MSG"))_$G(ASUC("TLI",X))_U
- S ^XTMP("ASUR","R49",0)=^XTMP("ASUR","R49",0)_U_ASUX("MSG")
- Q
- ERR0 ;
- S ASUX("MSG")=$P($T(ERRMSG+ASUX("ERR")),";",3)_" "_$P($T(ERRMSG+ASUX("ERR")),";",4) Q
- ERR1(X) ;
- S ASUX("MSG")=$P($T(ERRMSG+ASUX("ERR")),";",3)_" "_$P($T(ERRMSG+ASUX("ERR")),";",4)_X_" "_$P($T(ERRMSG+ASUX("ERR")),";",5) Q
- ERR2(X,Y) ;
- S ASUX("MSG")=$P($T(ERRMSG+ASUX("ERR")),";",3)_" "_$P($T(ERRMSG+ASUX("ERR")),";",4)_X_" "_$P($T(ERRMSG+ASUX("ERR")),";",5)_Y_$P($T(ERRMSG+ASUX("ERR")),";",6) Q
- SRTXTR ;
- S ^XTMP("ASUR","R49",ASUMS("E#","STA"),ASUL(9,"ACG"),ASUMS("E#","IDX"),ASUX("ERR"))=ASUX("MSG")
- Q
- ERRMSG ;;MSG TO WRITE WHEN ERR FLAG IS SET TO DISPLACEMENT
- ;;01;SOURCE CODE IS 1, 3, OR 4 - NEED TO ENTER VALID STOCK NUMBER OR CHANGE SOURCE CODE
- ;;02;NEW ITEM - NONE ON HAND - NONE DUE IN - SHOULD THE ITEM BE ORDERED OR DELETED
- ;;03;NEW ITEM - NO ISSUES - DOES THE ORDERING ACTIVITY KNOW THE ITEM IS AVAILABLE
- ;;04;WHY ON ORDER - ; MONTH SUPPLY CURRENTLY ON HAND
- ;;05;WHY ON ORDER - ITEM HAS HAD NO ISSUES IN ; MONTHS
- ;;06;WHY ON ORDER - EOQ TYPE CODE IS R - OBSOLETE - DO NOT REORDER
- ;;07;NO ISSUES IN ; MONTHS - ZERO BALANCE - SHOULD THE ITEM BE DELETED OR REORDERED
- ;;08;NO ISSUES IN ; MONTHS - SHOULD THE QUANTITY ON HAND BE REPORTED TO A-PM AS UNREQUIRED TO YOUR NEEDS
- ;;09;EXCESSIVE QUANTITY ON HAND IS ;. THIS SHOULD BE REPORTED TO AREA PROPERTY MANAGEMENT
- ;;10;EOQ TYPE CODE IS P-STANDBY - ITEM HAS HAD 4 OR MORE ISSUE REQUESTS - TYPE CODE NEEDS TO BE UPDATED
- ;;11;EOQ QUANTITY MODIFIER IS ; - QUANTITY ON HAND IS ; - IS THE TYPE CODE AND/OR MODIFIER VALID
- ;;12;EOQ MONTHS OF SUPPLY MODIFIER IS ; MONTHS SUPPLY ON HAND IS ; IS THE TYPE CODE AND/OR THE MODIFIER VALID
- ;;13;;CONSECUTIVE MONTH ITEM HAS BEEN ON REQUIREMENTS REPORT - WHY -DO YOU USE REPORT #13 WHEN ORDERING
- ;;14;DUE IN IS 60 OR MORE DAYS PAST DILIVERY DATE - IS THE DUE IN VALID - DO YOU CHECK REPORT #14 EACH MONTH
- ;;15;PAMIQ IS ; - AMIQ IS ; - DOES THE PAMIQ NEED TO BE UPDATED BY CHANGING THE RPQ
- ;;16;LAST PURCHASE PRICE IS $; - AVERAGE UNIT COST IS $; - DOES THE LAST PURCHACE PRICE NEED TO BE UPDATED
- ASURQ490 ; IHS/ITSC/LMH -RPT 49 R & N ITEMS ;
- +1 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- +2 ;This routine formats and prints report 49, List R & N Items
- +3 ;from sorted extracts.
- +4 KILL ^XTMP("ASUR","R49")
- +5 SET ^XTMP("ASUR","R49",0)=ASUK("DT","FM")+10000_U_ASUK("DT","FM")
- +6 SET ASUMS("E#","STA")=0
- SET ^XTMP("ASUR","R49",0)=ASUK("DT","FM")
- +7 SET (ASUC("TVAL","TOT"),ASUC("TVAL","TPA"),ASUC("TVAL","13IS"),ASUC("TVAL","XS"),ASUC("TVAL","AIV"))=0
- +8 SET (ASUC("TLI","TOT"),ASUC("TLI","13IS"),ASUC("TLI","XS"),ASUC("TLI","ZBAL"),ASUC("TLI","PSTDU"),ASUC("TLI","MOD"),ASUC("TLI","NOIS"),ASUC("TLI","NSN"),ASUC("TLI","R13"),ASUC("TLI","RPQ"),ASUC("TLI","LPP"))=0
- +9 FOR
- SET ASUMS("E#","STA")=$ORDER(^ASUMS(ASUMS("E#","STA")))
- IF ASUMS("E#","STA")'?1N.N
- QUIT
- Begin DoDot:1
- +10 FOR ASUMS("E#","IDX")=0:0
- SET ASUMS("E#","IDX")=$ORDER(^ASUMS(ASUMS("E#","STA"),1,ASUMS("E#","IDX")))
- IF ASUMS("E#","IDX")'?1N.N
- QUIT
- Begin DoDot:2
- +11 DO ^ASUMSTRD
- +12 SET X=$LENGTH(ASUMS("PMIQ"))
- IF $EXTRACT(ASUMS("PMIQ"),X)=0
- Begin DoDot:3
- +13 SET ASUMS("PMIQ")=$FNUMBER((ASUMS("PMIQ")*.1),"",0)
- End DoDot:3
- +14 SET ASUMX("E#","IDX")=ASUMS("E#","IDX")
- DO READ^ASUMXDIO
- DO ACC^ASULDIRF(ASUMX("ACC"))
- +15 IF $GET(ASUF("DLIDX"))=1
- QUIT
- IF ASUMX("ACC")'?1N
- QUIT
- +16 SET ASUC("VAL","TOT")=$GET(ASUC("VAL","TOT"))+ASUMS("VAL","O/H")
- SET ASUC("LI","TOT")=$GET(ASUC("LI","TOT"))+1
- +17 IF ASUMS("EOQ","TP")="A"
- Begin DoDot:3
- +18 SET ASUC("VAL","TPA")=$GET(ASUC("VAL","TPA"))+ASUMS("VAL","O/H")
- +19 SET ASUC("VAL","AIV")=$GET(ASUC("VAL","AIV"))+((ASUMS("PMIV")*ASUMS("EOQ","MO")/2))+ASUMS("PMIV")
- End DoDot:3
- +20 IF ASUMS("SRC")?1N
- IF ASUMS("SRC")>0
- IF ASUMS("SRC")<4
- Begin DoDot:3
- +21 IF ASUMS("ORD#")']""
- IF $LENGTH(ASUMX("NSN"))'>4
- DO ERR0
- DO SRTXTR
- QUIT
- +22 IF ASUMS("ORD#")'?4N.N
- SET ASUX("ERR")=1
- DO ERR0
- DO SRTXTR
- SET ASUC("LI","NSN")=$GET(ASUC("LI","NSN"))+1
- End DoDot:3
- +23 IF ASUMS("LSTISS")']""
- Begin DoDot:3
- +24 SET ASUC("LI","NOIS")=$GET(ASUC("LI","NOIS"))+1
- +25 IF ASUMS("QTY","O/H")>0
- Begin DoDot:4
- +26 SET ASUX("ERR")=3
- DO ERR0
- DO SRTXTR
- End DoDot:4
- +27 IF '$TEST
- Begin DoDot:4
- +28 IF ASUMS("D/I","QTY-TOT")'>0
- SET ASUX("ERR")=2
- DO ERR0
- DO SRTXTR
- SET ASUC("LI","ZBAL")=$GET(ASUC("LI","ZBAL"))+1
- End DoDot:4
- End DoDot:3
- +29 SET X1=ASUMS("LSTISS")
- SET X2=ASUK("DT","FM")
- DO ^%DTC
- SET ASUMS("MOSIS")=$FNUMBER((X/30),"",0)
- +30 SET ASUMS("MOSUP")=$SELECT(+ASUMS("QTY","O/H")<1:0,+ASUMS("PMIQ")<1:0,1:$FNUMBER((ASUMS("QTY","O/H")/ASUMS("PMIQ")),"",0))
- +31 IF ASUMS("D/I","QTY-TOT")>0
- Begin DoDot:3
- +32 IF ASUMS("EOQ","TP")="R"
- SET ASUX("ERR")=6
- DO ERR0
- DO SRTXTR
- +33 IF ASUMS("QTY","O/H")>0
- Begin DoDot:4
- +34 IF ASUMS("MOSUP")>6
- SET ASUX("ERR")=4
- DO ERR1(ASUMS("MOSUP"))
- DO SRTXTR
- +35 IF ASUMS("MOSIS")>13
- SET ASUX("ERR")=8
- DO ERR1(ASUMS("MOSIS"))
- DO SRTXTR
- SET ASUC("LI","13IS")=$GET(ASUC("LI","13IS"))+1
- SET ASUC("VAL","13IS")=$GET(ASUC("VAL","13IS"))+ASUMS("VAL","O/H")
- QUIT
- +36 SET ASUMS("QTY","NED")=(ASUMS("PMIQ")*12)+ASUMS("RPQ")
- SET ASUMS("QTY","XS")=ASUMS("QTY","O/H")-ASUMS("QTY","NED")
- +37 IF ASUMS("QTY","XS")>0
- SET ASUX("ERR")=9
- DO ERR1(ASUMS("QTY","XS"))
- DO SRTXTR
- SET ASUC("VAL","XS")=$GET(ASUC("VAL","XS"))+ASUMS("VAL","O/H")
- SET ASUC("LI","XS")=$GET(ASUC("LI","XS"))+1
- End DoDot:4
- +38 IF '$TEST
- Begin DoDot:4
- +39 IF ASUMS("MOSIS")>1
- SET ASUX("ERR")=7
- DO ERR1(ASUMS("MOSIS"))
- DO SRTXTR
- SET ASUC("LI","ZBAL")=$GET(ASUC("LI","ZBAL"))+1
- QUIT
- End DoDot:4
- End DoDot:3
- +40 IF ASUMS("MOSIS")>7
- SET ASUX("ERR")=5
- DO ERR1(ASUMS("MOSIS"))
- DO SRTXTR
- QUIT
- +41 IF ASUMS("EOQ","TP")="P"
- IF ASUMS("DMD","CALL")>4
- SET ASUX("ERR")=10
- DO ERR0
- DO SRTXTR
- SET ASUC("LI","MOD")=$GET(ASUC("LI","MOD"))+1
- +42 IF ASUMS("EOQ","TP")="B"
- IF ASUMS("QTY","O/H")>ASUMS("EOQ","QM")
- SET ASUX("ERR")=11
- DO ERR2(ASUMS("EOQ","QM"),ASUMS("QTY","O/H"))
- DO SRTXTR
- SET ASUC("LI","MOD")=$GET(ASUC("LI","MOD"))+1
- +43 IF ASUMS("EOQ","TP")="C"
- IF ASUMS("MOSUP")>ASUMS("EOQ","MM")
- SET ASUX("ERR")=12
- DO ERR2(ASUMS("EOQ","MM"),ASUMS("MOSUP"))
- DO SRTXTR
- SET ASUC("LI","MOD")=$GET(ASUC("LI","MOD"))+1
- +44 IF ASUMS("R13","TIMES")>2
- Begin DoDot:3
- +45 IF ASUMS("EOQ","MO")>1.5
- SET ASUX("ERR")=13
- DO ERR1(ASUMS("R13","TIMES"))
- DO SRTXTR
- SET ASUC("LI","R13")=$GET(ASUC("LI","R13"))+1
- End DoDot:3
- +46 FOR Y=1:1:3
- SET X1=ASUMS("D/I","DT",Y)
- SET X2=ASUK("DT","FM")
- DO ^%DTC
- SET ASUV("PSTDU")=X
- IF ASUV("PSTDU")>60
- SET ASUX("ERR")=14
- DO ERR0
- DO SRTXTR
- SET ASUC("LI","PSTDU")=$GET(ASUC("LI","PSTDU"))+1
- +47 IF ASUMS("PMIQ")>1
- Begin DoDot:3
- +48 IF ASUMS("AMIQ")=0
- QUIT
- IF ASUMS("AMIQ")=ASUMS("PMIQ")
- QUIT
- +49 IF ASUMS("PMIQ")>ASUMS("AMIQ")
- Begin DoDot:4
- +50 SET ASUV("%")=$FNUMBER(((ASUMS("PMIQ")-ASUMS("AMIQ")*100))/ASUMS("PMIQ"),"",0)
- End DoDot:4
- +51 IF '$TEST
- Begin DoDot:4
- +52 SET ASUV("%")=$FNUMBER(((ASUMS("AMIQ")-ASUMS("PMIQ")*100))/ASUMS("AMIQ"),"",0)
- End DoDot:4
- +53 IF ASUV("%")>25
- SET ASUX("ERR")=15
- DO ERR2(ASUMS("PMIQ"),ASUMS("AMIQ"))
- DO SRTXTR
- SET ASUC("LI","RPQ")=$GET(ASUC("LI","RPQ"))+1
- End DoDot:3
- +54 IF ASUMS("CST/U")>1
- Begin DoDot:3
- +55 IF ASUMS("LPP")=0
- QUIT
- IF ASUMS("CST/U")=ASUMS("LPP")
- QUIT
- +56 IF ASUMS("LPP")>ASUMS("CST/U")
- Begin DoDot:4
- +57 SET ASUV("%")=$FNUMBER(((ASUMS("LPP")-ASUMS("CST/U")*100))/ASUMS("LPP"),"",0)
- End DoDot:4
- +58 IF '$TEST
- Begin DoDot:4
- +59 SET ASUV("%")=$FNUMBER(((ASUMS("CST/U")-ASUMS("LPP")*100))/ASUMS("CST/U"),"",0)
- End DoDot:4
- +60 IF ASUV("%")>25
- SET ASUX("ERR")=16
- DO ERR2(ASUMS("LPP"),ASUMS("CST/U"))
- DO SRTXTR
- SET ASUC("LI","LPP")=$GET(ASUC("LI","LPP"))+1
- End DoDot:3
- End DoDot:2
- +61 SET ASUX("MSG")=""
- +62 FOR X="TOT","TPA","13IS","XS","AIV"
- SET ASUC("TVAL",X)=$GET(ASUC("TVAL",X))+$GET(ASUC("VAL",X))
- SET ASUX("MSG")=$GET(ASUX("MSG"))_$GET(ASUC("VAL",X))_U
- +63 FOR X="TOT","13IS","XS","ZBAL","PSTDU","MOD","NOIS","NSN","R13","RPQ","LPP"
- SET ASUC("TLI",X)=$GET(ASUC("TLI",X))+$GET(ASUC("LI",X))
- SET ASUX("MSG")=$GET(ASUX("MSG"))_$GET(ASUC("LI",X))_U
- +64 SET ^XTMP("ASUR","R49",ASUMS("E#","STA"),0)=ASUX("MSG")
- KILL ASUC("VAL"),ASUC("LI")
- End DoDot:1
- +65 SET ASUX("MSG")=""
- +66 FOR X="TOT","TPA","13IS","XS","AIV"
- SET ASUX("MSG")=$GET(ASUX("MSG"))_$GET(ASUC("TVAL",X))_U
- +67 FOR X="TOT","13IS","XS","ZBAL","PSTDU","MOD","NOIS","NSN","R13","RPQ","LPP"
- SET ASUX("MSG")=$GET(ASUX("MSG"))_$GET(ASUC("TLI",X))_U
- +68 SET ^XTMP("ASUR","R49",0)=^XTMP("ASUR","R49",0)_U_ASUX("MSG")
- +69 QUIT
- ERR0 ;
- +1 SET ASUX("MSG")=$PIECE($TEXT(ERRMSG+ASUX("ERR")),";",3)_" "_$PIECE($TEXT(ERRMSG+ASUX("ERR")),";",4)
- QUIT
- ERR1(X) ;
- +1 SET ASUX("MSG")=$PIECE($TEXT(ERRMSG+ASUX("ERR")),";",3)_" "_$PIECE($TEXT(ERRMSG+ASUX("ERR")),";",4)_X_" "_$PIECE($TEXT(ERRMSG+ASUX("ERR")),";",5)
- QUIT
- ERR2(X,Y) ;
- +1 SET ASUX("MSG")=$PIECE($TEXT(ERRMSG+ASUX("ERR")),";",3)_" "_$PIECE($TEXT(ERRMSG+ASUX("ERR")),";",4)_X_" "_$PIECE($TEXT(ERRMSG+ASUX("ERR")),";",5)_Y_$PIECE($TEXT(ERRMSG+ASUX("ERR")),";",6)
- QUIT
- SRTXTR ;
- +1 SET ^XTMP("ASUR","R49",ASUMS("E#","STA"),ASUL(9,"ACG"),ASUMS("E#","IDX"),ASUX("ERR"))=ASUX("MSG")
- +2 QUIT
- ERRMSG ;;MSG TO WRITE WHEN ERR FLAG IS SET TO DISPLACEMENT
- +1 ;;01;SOURCE CODE IS 1, 3, OR 4 - NEED TO ENTER VALID STOCK NUMBER OR CHANGE SOURCE CODE
- +2 ;;02;NEW ITEM - NONE ON HAND - NONE DUE IN - SHOULD THE ITEM BE ORDERED OR DELETED
- +3 ;;03;NEW ITEM - NO ISSUES - DOES THE ORDERING ACTIVITY KNOW THE ITEM IS AVAILABLE
- +4 ;;04;WHY ON ORDER - ; MONTH SUPPLY CURRENTLY ON HAND
- +5 ;;05;WHY ON ORDER - ITEM HAS HAD NO ISSUES IN ; MONTHS
- +6 ;;06;WHY ON ORDER - EOQ TYPE CODE IS R - OBSOLETE - DO NOT REORDER
- +7 ;;07;NO ISSUES IN ; MONTHS - ZERO BALANCE - SHOULD THE ITEM BE DELETED OR REORDERED
- +8 ;;08;NO ISSUES IN ; MONTHS - SHOULD THE QUANTITY ON HAND BE REPORTED TO A-PM AS UNREQUIRED TO YOUR NEEDS
- +9 ;;09;EXCESSIVE QUANTITY ON HAND IS ;. THIS SHOULD BE REPORTED TO AREA PROPERTY MANAGEMENT
- +10 ;;10;EOQ TYPE CODE IS P-STANDBY - ITEM HAS HAD 4 OR MORE ISSUE REQUESTS - TYPE CODE NEEDS TO BE UPDATED
- +11 ;;11;EOQ QUANTITY MODIFIER IS ; - QUANTITY ON HAND IS ; - IS THE TYPE CODE AND/OR MODIFIER VALID
- +12 ;;12;EOQ MONTHS OF SUPPLY MODIFIER IS ; MONTHS SUPPLY ON HAND IS ; IS THE TYPE CODE AND/OR THE MODIFIER VALID
- +13 ;;13;;CONSECUTIVE MONTH ITEM HAS BEEN ON REQUIREMENTS REPORT - WHY -DO YOU USE REPORT #13 WHEN ORDERING
- +14 ;;14;DUE IN IS 60 OR MORE DAYS PAST DILIVERY DATE - IS THE DUE IN VALID - DO YOU CHECK REPORT #14 EACH MONTH
- +15 ;;15;PAMIQ IS ; - AMIQ IS ; - DOES THE PAMIQ NEED TO BE UPDATED BY CHANGING THE RPQ
- +16 ;;16;LAST PURCHASE PRICE IS $; - AVERAGE UNIT COST IS $; - DOES THE LAST PURCHACE PRICE NEED TO BE UPDATED
