ASUJHELP ; IHS/ITSC/LMH -FIELD HELP ;
;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
;;NOTE all calls to DDSULT preceeded with W *7 IN P1 9/1/98
;;This routine is a utility to be called to display field help
HLP(Z) ;EP
W *7
S Y=-1
I $G(ASUSB)=1 D
.W !?20,Z
E D
.D HLP^DDSUTL(.Z)
.S DDSERROR=1
Q
HLPONLY(Z) ;No error switch set
W *7
D HLP^DDSUTL(.Z)
Q
MSG(Z) ;EP
I $G(ASUSB)=1 D
.W !?5,$G(Z) S Z("C")=0 F S Z("C")=$O(Z(Z("C"))) Q:Z("C")']"" W !,Z(Z("C"))
E D
.D MSG^DDSUTL(.Z)
Q
ACC ;EP;Account
N Z S Z=X_" is not a valid account code in the ACCOUNT table"
D HLP(Z) Q
ARE ;EP;Area
S Z="Invalid Area Code - must be in table" D HLP(Z) Q
AUI N Z S Z="Area Unit of Issue - such as CS (case), BX (box) etc."
D HLP(Z) Q
BOIDX ;EP;Backorder index
N Z S Z="There are no BackOrders on file for this index #" D HLP(Z) Q
BCD ;EP;Bar Code
N Z S Z="Bar Code may be 1 - 15 numeric characters" D HLP(Z) Q
CAN ;EP;Common Accounting #
N Z S Z="CAN "_X_" not valid for Requsitioner "
S Z=Z_$G(ASUL(20,"REQ","NM"))
D HLP(Z) S Y=-4 Q
CANSS ;EP;Can/ no Sub Sta
N Z
S Z="Sub Station must be entered before Common Accounting Number."
D HLP(Z) Q
CANUS ;EP;Can/ no User
S Z="User must be entered before Common Accounting Number."
D HLP(Z) S Y=-2 Q
CATAC ;EP;Cat/ No Account
N Z S Z="Account must be entered before Category" D HLP(Z) S Y=-2 Q
CATSO ;EP;Cat/ No Sub Object
N Z S Z="Object Sub Object must be entered before Category"
D HLP(Z) S Y=-3 Q
CAT ;EP;Category Invalid
I +$G(DDSERROR)=0 D
.N Z S Z="Category "_X_" not valid for Account "_ASUT(ASUT,"ACC")
.S Z=Z_" and Object-Sub-Object "_ASUT(ASUT,"SOBJ") D HLP(Z)
Q
CTG ;EP;CTR GRANT #
N Z S Z="Enter appropriate data to identify Contract/Grant" D HLP(Z) Q
DTD ;EP;Date Due
D DTE Q
DTE ;EP;Date Established
N Z S Z="Invalid date. Must follow today" D HLP(Z) Q
DTR ;EP;Date of Request
N Z S Z="Invalid date." D HLP(Z) Q
FPNTR ;EP;FPN/ no Tran
N Z S Z="Cannot determine F, P or N code without transaction type"
D HLP(Z) Q
FPNQT ;EP; FPN/ no N with qty
S Z="Quantity entered - F, P or N code must be F (Full) or P (Part)"
D HLP(Z) S Y=-2 Q
DESC ;EP;Description
N Z
S Z("Q")="""",Z(1)="Description must start with an alphabetic"
S Z(1)=Z(1)_"character, and contain no '"_Z("Q")_"'s."
S Z(2)="The first character may be followed by up to 59 characters."
D HLP(Z) Q
DSO ;EP;Direct Sub Object
D XDSO Q
EOQ ;EP;Eoq Type
N Z S Z="EOQ Type must be contained in EOQ Type table" D HLP(Z) Q
EOQZR ;EP;Eoq type P or N if qty 0
N Z S Z="Review Point Quantity = 0, EOQ Type must be 'P' or 'Y'"
D HLP(Z) Q
EQAM(X) ;EP;Eoq Action Modifier
D:X=0 Q
.N Z S Z="One action month quarter must be set to other than zero"
.D HLP(Z) S Y=-3
D EQAM1:Y=1,EQAM2:Y=2,EQAM3:Y=3,EQAM4:Y=4
Q
EQAM1 ;
N Z S Z="First quarter action month must be 0, 1, 2, 3 or blank"
D HLP(Z) Q
EQAM2 ;
N Z S Z="Second quarter action month must be 0, 4, 5, 6 or blank"
D HLP(Z) Q
EQAM3 ;
N Z S Z="First quarter action month must be 1, 2, 3 or blank"
D HLP(Z) Q
EQAM4 ;
N Z S Z="Fourth quarter action month must be 00 ,10, 11, 12 or blank"
D HLP(Z) Q
EQMM ;EP;Eoq Month Modifier
N Z S Z="Enter Month to modify (01-12)" D HLP(Z) Q
EQQM ;EP;Eoq Qty Modifier
N Z S Z="Enter Quantity to modify" D HLP(Z) Q
IDX ;EP;Index #
N Z S Z="Index number may not be blank and must pass the mod11 test"
D HLP(Z) Q
IDX11 ;EP;Index # mod11
N Z S Z="Index "_X_" failed mod11 test - invalid" D HLP(Z) Q
IDXDL ;EP;Index was deleted
N Z S Z="Index "_X_", has already been deleted" D HLP(Z)
I ASUT="STD" S ASUPOP=1 ;WAR4/30/99 called by ASUMDIRM
Q
IDXFS ;EP;Index needed first
N Z S Z="Index must be selected so Qty and Value can be validated"
D HLP(Z) Q
IDXNF ;EP;Index not found
N Z S Z="Index not on file" D HLP(Z) Q
IDXOF ;EP;Index On file
N Z S Z="Can't ADD "_$E(X,3,8)_" - already in the Master"
D HLP(Z),IDX^ASUJCLER Q
KEY ;EP;.01 Key
Q
LTM ;EP;Lead time months
N Z S Z(1)="Lead Time mos. must be :"
S Z(2)="A minimum of .5"
S Z(3)="Divisable by .5"
S Z(4)="Not greater than 9.5"
D HLP(.Z) Q
NSN ;EP;National Stock #
N Z S Z(1)="National Stock Number format:"
S Z(2)="1. FSC 4 numeric digits (not all zero - required)"
S Z(3)="2. NATO/FIIN 9 numeric digits (not all zero - optional)"
S Z(4)="3. SUFFIX 1 alpha character (optional)"
S Z(5)="May be blank on a 'Change' (4C) record"
D HLP(.Z) S Y=-2 Q
OBJ ;EP;Sub Object
N Z S Z="Invalid Sub Sub Object" D HLP(Z) Q
ORD ;EP;Order Number
N Z S Z="Order number must be an 'M' followd by any characters "
S Z=Z_"or 13 numeric + one alpha" D HLP(Z) Q
PLSCONT ;EP;Please con't msg
N Z S Z="Please continue to enter this field" D HLPONLY(Z) Q
POCK ;EP;PO# Check
N Z S Z="Checking Due In's for P.O." D HLPONLY(Z) Q
PON ;EP;Purchase Order #
N Z S Z="Enter appropriate data to identify Purchase Order Number"
D HLP(Z) Q
POMATCH ;EP;PO match msg.
N Z S Z="P.O. Matches Due In" D HLPONLY(Z) Q
PST ;EP;Post
N Z S Z="Post Posting Code must be 'I' or blank" D HLP(Z) Q
QTY ;EP;Quantity
N Z S Z="Quantity must be "_X_" - 9999999" D HLP(Z) Q
QTYCB ;EP;Quantity Credit Balance
N Z S Z="A Quantity of "_X_" would result in a master credit balance"
D HLP(Z) Q
QTYORDI ;EP;Qty and/or Due ins are not zero
N Z
I ASUT="STD" S ASUPOP=1 ;WAR 4/30/99 called by ASUMDIRM
S Z="Can not delete this record - Qty/OH & all Due In/Out's must be 0"
D HLPONLY(Z) Q
QTYREQ ;EP;Qty requested
S Z(1)="REQ QTY is greater than QTYOH. A B/O QTY for the difference WILL NOT"
S Z(2)="be generated at this time. Please check the following:"
S Z(3)="1) That all receipts have been entered for this item"
S Z(4)="2) That an accurate warehouse count, matches the QTYOH"
D HLPONLY(.Z) Q
QTYVAL0 ;EP;Qty but Val 0
N Z S Z="Master Value would be 0 but Master Quantity would not. "
S Z=Z_"Please re-enter Quantity"
D HLP(Z) Q
RECQTY ;EP;Rec qty or value > Due in qty or value
N Z S Z="Receipt Quantity/Value exceeds Due in Quantity/Value"
D MSG(Z) Q
REQ ;EP;No Req entry for Sub Sta / User
N Z S Z="No Requsitioner entry for User "_$G(ASUL(19,"USR","NM"))
S Z=Z_" at Sub Station "_$G(ASUL(18,"SST","NM"))
D HLP(Z) Q
RQN ;EP;Request #
N Z S Z="Request Number may not be blank or longer than 8 characters"
D HLP(Z) Q
RPQ ;EP;Review Point
N Z S Z="Review Point Quantity must be numeric 1-99" D HLP(Z) Q
RTP ;EP;Request type
N Z S Z="Type of Request must be 1 for 'Scheduled' or "
S Z=Z_"2 for 'Unscheduled'"
D HLP(Z) Q
SIXOF ;EP;Index On file
N Z S Z="Station Index already on Master - can't ADD"
D HLP(Z),IDX^ASUJCLER Q
SLC ;EP;Storage Location
N Z S Z="Storage Location must be in the standard table" D HLP(Z) Q
SPQ ;EP;Standard Pack
N Z S Z="Standard Pack Quantity must be numeric 1-99" D HLP(Z) Q
SRC ;EP;Source
N Z S Z=X_" is not a valid SOURCE code in the SOURCE code table"
D HLP(Z) Q
SSA ;EP;Sub Activity
N Z S Z=X_" is not a valid Sub Sub Activity in the SSA code table"
D HLP(Z) Q
SSO ;EP;Stock Sub Object
D XSSO Q
SST ;EP;Sub Station
N Z S Z="Sub Station "_X_" not in table for "_$G(ASUL(1,"AR","NM"))
S Z=Z_" Area." D HLP(Z) Q
STA ;EP;Station
N Z S Z="Station "_X_" not in table for "_$G(ASUL(1,"AR","NM"))
S Z=Z_" Area." D HLP(Z) Q
UCS ;EP;Unit Cost
Q
UI ;EP;Unit Issue
N Z S Z="Enter appropriate alpha characters to name unit of issue"
D HLP(Z) Q
ULQ ;EP;Quantity
N Z S Z="User Level Quantity must be .1 - 99.9" D HLP(Z) Q
USR ;EP;User
N Z S Z="User "_X_" not in table for "_$G(ASUL(1,"AR","NM"))_" Area."
D HLP(Z) Q
VAL(X) ;EP;Value
N Z S Z="Value must be between "_X_" and 9999999.99"
D HLP(Z) Q
VALCB ;EP;Value
N Z S Z="A Value of "_X_" would result in a Master credit balance. "
S Z=Z_"Please re-enter Value"
D HLP(Z) Q
VALQTY0 ;EP;Val but qty 0
N Z S Z="Master Quantity would be 0 but Master Value would not. "
S Z=Z_"Please re-enter Quantity"
D HLP(Z) Q
VOU ;EP;Voucher #
N Z S Z(1)="Voucher Number must be 8 numeric digits, not all zeros "
S Z(1)=Z(1)_"in format FYMMSER#"
S Z(2)="Fiscal Year (FY) must be current fiscal year or previous "
S Z(2)=Z(2)_"fiscal year,"
S Z(3)="Month (MM) must be 01 through 12,"
S Z(4)="and Serial number (SER#) must be 0001 through 9999."
D HLP(.Z) Q
VOUMO ;EP;Voucher month
N Z S Z="Month must be 01-12"
D HLP(Z) Q
VOUSR ;EP;Voucher Ser
N Z S Z="Voucher Serial Number must be 4 numeric digits but not "
S Z=Z_"all zeros"
D HLP(Z) Q
VOUYR ;EP;Voucher year
N Z S Z="Voucher year not equal to current"
I ASUK("DT","MO")="09" D
.S Z=Z_", next "
E D
.S Z=Z_" "
S Z=Z_"or previous FY"
D HLP(Z) Q
XACC ;EP;Account table
N DIC D XTBL(9) Q
XARE ;EP;Area table
N DIC D XTBL(1) Q
XDSO ;EP;Direct Sub Object table
N DIC
S:$D(ASUL(9,"ACC")) DIC("S")="I $P(^(0),U,2)=ASUL(9,""ACC"")" D XTBL(4) Q
XBUD ;EP;Budget table
N DIC D XTBL(21) Q
XCAT ;EP;Category table
N DIC
S:$D(ASUL(9,"ACC")) DIC("S")="I $P(^(0),U,2)=ASUL(9,""ACC"")"
S:$D(ASUL(3,"SOBJ")) DIC("S")=$S($G(DIC("S"))]"":DIC("S")_",$P(^(0),U,3)=ASUL(3,""SOBJ"",""E#"")",1:"I $P(^(0),U,3)=ASUL(3,""SOBJ"",""E#"")")
D XTBL(7) Q
XEOQ ;EP;Eoq type table
N DIC D XTBL(6) Q
XEQTB ;EP;Eoq table table
N DIC D XTBL(8) Q
XPGM ;EP;Program table
N DIC D XTBL(22) Q
XREQ ;EP;Requsitioner table
N DIC D XTBL(20) Q
XSLC ;EP;Storage Location table
N DIC D XTBL(10) Q
XSRC ;EP;Source table
N DIC D XTBL(5) Q
XSSA ;EP;Sub Sub Activity table
N DIC D XTBL(17) Q
XSSO ;EP;Stock Sub Object table
N DIC
S:$D(ASUL(9,"ACC")) DIC("S")="I $P(^(0),U,2)=ASUL(9,""ACC"")" D XTBL(3) Q
XSST ;EP;Sub Statixn table
N DIC D XTBL(18) Q
XSTA ;EP;Station table
N DIC D XTBL(2) Q
XUSR ;EP;User table
N DIC D XTBL(19) Q
XVEN ;EP;Vendor file
N DIC S DIC="^AUTTVNDR(",DIC(0)="EM",DZ="??",D="B" D DQ^DICQ Q
XTBL(Z) ;EP ;Table entry listings (Z=table #)
S DIC="^ASUL("_Z_",",DIC(0)="EM",DZ="??",D="B" D DQ^DICQ Q
ASUJHELP ; IHS/ITSC/LMH -FIELD HELP ;
+1 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
+2 ;;NOTE all calls to DDSULT preceeded with W *7 IN P1 9/1/98
+3 ;;This routine is a utility to be called to display field help
HLP(Z) ;EP
+1 WRITE *7
+2 SET Y=-1
+3 IF $GET(ASUSB)=1
Begin DoDot:1
+4 WRITE !?20,Z
End DoDot:1
+5 IF '$TEST
Begin DoDot:1
+6 DO HLP^DDSUTL(.Z)
+7 SET DDSERROR=1
End DoDot:1
+8 QUIT
HLPONLY(Z) ;No error switch set
+1 WRITE *7
+2 DO HLP^DDSUTL(.Z)
+3 QUIT
MSG(Z) ;EP
+1 IF $GET(ASUSB)=1
Begin DoDot:1
+2 WRITE !?5,$GET(Z)
SET Z("C")=0
FOR
SET Z("C")=$ORDER(Z(Z("C")))
IF Z("C")']""
QUIT
WRITE !,Z(Z("C"))
End DoDot:1
+3 IF '$TEST
Begin DoDot:1
+4 DO MSG^DDSUTL(.Z)
End DoDot:1
+5 QUIT
ACC ;EP;Account
+1 NEW Z
SET Z=X_" is not a valid account code in the ACCOUNT table"
+2 DO HLP(Z)
QUIT
ARE ;EP;Area
+1 SET Z="Invalid Area Code - must be in table"
DO HLP(Z)
QUIT
AUI NEW Z
SET Z="Area Unit of Issue - such as CS (case), BX (box) etc."
+1 DO HLP(Z)
QUIT
BOIDX ;EP;Backorder index
+1 NEW Z
SET Z="There are no BackOrders on file for this index #"
DO HLP(Z)
QUIT
BCD ;EP;Bar Code
+1 NEW Z
SET Z="Bar Code may be 1 - 15 numeric characters"
DO HLP(Z)
QUIT
CAN ;EP;Common Accounting #
+1 NEW Z
SET Z="CAN "_X_" not valid for Requsitioner "
+2 SET Z=Z_$GET(ASUL(20,"REQ","NM"))
+3 DO HLP(Z)
SET Y=-4
QUIT
CANSS ;EP;Can/ no Sub Sta
+1 NEW Z
+2 SET Z="Sub Station must be entered before Common Accounting Number."
+3 DO HLP(Z)
QUIT
CANUS ;EP;Can/ no User
+1 SET Z="User must be entered before Common Accounting Number."
+2 DO HLP(Z)
SET Y=-2
QUIT
CATAC ;EP;Cat/ No Account
+1 NEW Z
SET Z="Account must be entered before Category"
DO HLP(Z)
SET Y=-2
QUIT
CATSO ;EP;Cat/ No Sub Object
+1 NEW Z
SET Z="Object Sub Object must be entered before Category"
+2 DO HLP(Z)
SET Y=-3
QUIT
CAT ;EP;Category Invalid
+1 IF +$GET(DDSERROR)=0
Begin DoDot:1
+2 NEW Z
SET Z="Category "_X_" not valid for Account "_ASUT(ASUT,"ACC")
+3 SET Z=Z_" and Object-Sub-Object "_ASUT(ASUT,"SOBJ")
DO HLP(Z)
End DoDot:1
+4 QUIT
CTG ;EP;CTR GRANT #
+1 NEW Z
SET Z="Enter appropriate data to identify Contract/Grant"
DO HLP(Z)
QUIT
DTD ;EP;Date Due
+1 DO DTE
QUIT
DTE ;EP;Date Established
+1 NEW Z
SET Z="Invalid date. Must follow today"
DO HLP(Z)
QUIT
DTR ;EP;Date of Request
+1 NEW Z
SET Z="Invalid date."
DO HLP(Z)
QUIT
FPNTR ;EP;FPN/ no Tran
+1 NEW Z
SET Z="Cannot determine F, P or N code without transaction type"
+2 DO HLP(Z)
QUIT
FPNQT ;EP; FPN/ no N with qty
+1 SET Z="Quantity entered - F, P or N code must be F (Full) or P (Part)"
+2 DO HLP(Z)
SET Y=-2
QUIT
DESC ;EP;Description
+1 NEW Z
+2 SET Z("Q")=""""
SET Z(1)="Description must start with an alphabetic"
+3 SET Z(1)=Z(1)_"character, and contain no '"_Z("Q")_"'s."
+4 SET Z(2)="The first character may be followed by up to 59 characters."
+5 DO HLP(Z)
QUIT
DSO ;EP;Direct Sub Object
+1 DO XDSO
QUIT
EOQ ;EP;Eoq Type
+1 NEW Z
SET Z="EOQ Type must be contained in EOQ Type table"
DO HLP(Z)
QUIT
EOQZR ;EP;Eoq type P or N if qty 0
+1 NEW Z
SET Z="Review Point Quantity = 0, EOQ Type must be 'P' or 'Y'"
+2 DO HLP(Z)
QUIT
EQAM(X) ;EP;Eoq Action Modifier
+1 IF X=0
Begin DoDot:1
+2 NEW Z
SET Z="One action month quarter must be set to other than zero"
+3 DO HLP(Z)
SET Y=-3
End DoDot:1
QUIT
+4 IF Y=1
DO EQAM1
IF Y=2
DO EQAM2
IF Y=3
DO EQAM3
IF Y=4
DO EQAM4
+5 QUIT
EQAM1 ;
+1 NEW Z
SET Z="First quarter action month must be 0, 1, 2, 3 or blank"
+2 DO HLP(Z)
QUIT
EQAM2 ;
+1 NEW Z
SET Z="Second quarter action month must be 0, 4, 5, 6 or blank"
+2 DO HLP(Z)
QUIT
EQAM3 ;
+1 NEW Z
SET Z="First quarter action month must be 1, 2, 3 or blank"
+2 DO HLP(Z)
QUIT
EQAM4 ;
+1 NEW Z
SET Z="Fourth quarter action month must be 00 ,10, 11, 12 or blank"
+2 DO HLP(Z)
QUIT
EQMM ;EP;Eoq Month Modifier
+1 NEW Z
SET Z="Enter Month to modify (01-12)"
DO HLP(Z)
QUIT
EQQM ;EP;Eoq Qty Modifier
+1 NEW Z
SET Z="Enter Quantity to modify"
DO HLP(Z)
QUIT
IDX ;EP;Index #
+1 NEW Z
SET Z="Index number may not be blank and must pass the mod11 test"
+2 DO HLP(Z)
QUIT
IDX11 ;EP;Index # mod11
+1 NEW Z
SET Z="Index "_X_" failed mod11 test - invalid"
DO HLP(Z)
QUIT
IDXDL ;EP;Index was deleted
+1 NEW Z
SET Z="Index "_X_", has already been deleted"
DO HLP(Z)
+2 ;WAR4/30/99 called by ASUMDIRM
IF ASUT="STD"
SET ASUPOP=1
+3 QUIT
IDXFS ;EP;Index needed first
+1 NEW Z
SET Z="Index must be selected so Qty and Value can be validated"
+2 DO HLP(Z)
QUIT
IDXNF ;EP;Index not found
+1 NEW Z
SET Z="Index not on file"
DO HLP(Z)
QUIT
IDXOF ;EP;Index On file
+1 NEW Z
SET Z="Can't ADD "_$EXTRACT(X,3,8)_" - already in the Master"
+2 DO HLP(Z)
DO IDX^ASUJCLER
QUIT
KEY ;EP;.01 Key
+1 QUIT
LTM ;EP;Lead time months
+1 NEW Z
SET Z(1)="Lead Time mos. must be :"
+2 SET Z(2)="A minimum of .5"
+3 SET Z(3)="Divisable by .5"
+4 SET Z(4)="Not greater than 9.5"
+5 DO HLP(.Z)
QUIT
NSN ;EP;National Stock #
+1 NEW Z
SET Z(1)="National Stock Number format:"
+2 SET Z(2)="1. FSC 4 numeric digits (not all zero - required)"
+3 SET Z(3)="2. NATO/FIIN 9 numeric digits (not all zero - optional)"
+4 SET Z(4)="3. SUFFIX 1 alpha character (optional)"
+5 SET Z(5)="May be blank on a 'Change' (4C) record"
+6 DO HLP(.Z)
SET Y=-2
QUIT
OBJ ;EP;Sub Object
+1 NEW Z
SET Z="Invalid Sub Sub Object"
DO HLP(Z)
QUIT
ORD ;EP;Order Number
+1 NEW Z
SET Z="Order number must be an 'M' followd by any characters "
+2 SET Z=Z_"or 13 numeric + one alpha"
DO HLP(Z)
QUIT
PLSCONT ;EP;Please con't msg
+1 NEW Z
SET Z="Please continue to enter this field"
DO HLPONLY(Z)
QUIT
POCK ;EP;PO# Check
+1 NEW Z
SET Z="Checking Due In's for P.O."
DO HLPONLY(Z)
QUIT
PON ;EP;Purchase Order #
+1 NEW Z
SET Z="Enter appropriate data to identify Purchase Order Number"
+2 DO HLP(Z)
QUIT
POMATCH ;EP;PO match msg.
+1 NEW Z
SET Z="P.O. Matches Due In"
DO HLPONLY(Z)
QUIT
PST ;EP;Post
+1 NEW Z
SET Z="Post Posting Code must be 'I' or blank"
DO HLP(Z)
QUIT
QTY ;EP;Quantity
+1 NEW Z
SET Z="Quantity must be "_X_" - 9999999"
DO HLP(Z)
QUIT
QTYCB ;EP;Quantity Credit Balance
+1 NEW Z
SET Z="A Quantity of "_X_" would result in a master credit balance"
+2 DO HLP(Z)
QUIT
QTYORDI ;EP;Qty and/or Due ins are not zero
+1 NEW Z
+2 ;WAR 4/30/99 called by ASUMDIRM
IF ASUT="STD"
SET ASUPOP=1
+3 SET Z="Can not delete this record - Qty/OH & all Due In/Out's must be 0"
+4 DO HLPONLY(Z)
QUIT
QTYREQ ;EP;Qty requested
+1 SET Z(1)="REQ QTY is greater than QTYOH. A B/O QTY for the difference WILL NOT"
+2 SET Z(2)="be generated at this time. Please check the following:"
+3 SET Z(3)="1) That all receipts have been entered for this item"
+4 SET Z(4)="2) That an accurate warehouse count, matches the QTYOH"
+5 DO HLPONLY(.Z)
QUIT
QTYVAL0 ;EP;Qty but Val 0
+1 NEW Z
SET Z="Master Value would be 0 but Master Quantity would not. "
+2 SET Z=Z_"Please re-enter Quantity"
+3 DO HLP(Z)
QUIT
RECQTY ;EP;Rec qty or value > Due in qty or value
+1 NEW Z
SET Z="Receipt Quantity/Value exceeds Due in Quantity/Value"
+2 DO MSG(Z)
QUIT
REQ ;EP;No Req entry for Sub Sta / User
+1 NEW Z
SET Z="No Requsitioner entry for User "_$GET(ASUL(19,"USR","NM"))
+2 SET Z=Z_" at Sub Station "_$GET(ASUL(18,"SST","NM"))
+3 DO HLP(Z)
QUIT
RQN ;EP;Request #
+1 NEW Z
SET Z="Request Number may not be blank or longer than 8 characters"
+2 DO HLP(Z)
QUIT
RPQ ;EP;Review Point
+1 NEW Z
SET Z="Review Point Quantity must be numeric 1-99"
DO HLP(Z)
QUIT
RTP ;EP;Request type
+1 NEW Z
SET Z="Type of Request must be 1 for 'Scheduled' or "
+2 SET Z=Z_"2 for 'Unscheduled'"
+3 DO HLP(Z)
QUIT
SIXOF ;EP;Index On file
+1 NEW Z
SET Z="Station Index already on Master - can't ADD"
+2 DO HLP(Z)
DO IDX^ASUJCLER
QUIT
SLC ;EP;Storage Location
+1 NEW Z
SET Z="Storage Location must be in the standard table"
DO HLP(Z)
QUIT
SPQ ;EP;Standard Pack
+1 NEW Z
SET Z="Standard Pack Quantity must be numeric 1-99"
DO HLP(Z)
QUIT
SRC ;EP;Source
+1 NEW Z
SET Z=X_" is not a valid SOURCE code in the SOURCE code table"
+2 DO HLP(Z)
QUIT
SSA ;EP;Sub Activity
+1 NEW Z
SET Z=X_" is not a valid Sub Sub Activity in the SSA code table"
+2 DO HLP(Z)
QUIT
SSO ;EP;Stock Sub Object
+1 DO XSSO
QUIT
SST ;EP;Sub Station
+1 NEW Z
SET Z="Sub Station "_X_" not in table for "_$GET(ASUL(1,"AR","NM"))
+2 SET Z=Z_" Area."
DO HLP(Z)
QUIT
STA ;EP;Station
+1 NEW Z
SET Z="Station "_X_" not in table for "_$GET(ASUL(1,"AR","NM"))
+2 SET Z=Z_" Area."
DO HLP(Z)
QUIT
UCS ;EP;Unit Cost
+1 QUIT
UI ;EP;Unit Issue
+1 NEW Z
SET Z="Enter appropriate alpha characters to name unit of issue"
+2 DO HLP(Z)
QUIT
ULQ ;EP;Quantity
+1 NEW Z
SET Z="User Level Quantity must be .1 - 99.9"
DO HLP(Z)
QUIT
USR ;EP;User
+1 NEW Z
SET Z="User "_X_" not in table for "_$GET(ASUL(1,"AR","NM"))_" Area."
+2 DO HLP(Z)
QUIT
VAL(X) ;EP;Value
+1 NEW Z
SET Z="Value must be between "_X_" and 9999999.99"
+2 DO HLP(Z)
QUIT
VALCB ;EP;Value
+1 NEW Z
SET Z="A Value of "_X_" would result in a Master credit balance. "
+2 SET Z=Z_"Please re-enter Value"
+3 DO HLP(Z)
QUIT
VALQTY0 ;EP;Val but qty 0
+1 NEW Z
SET Z="Master Quantity would be 0 but Master Value would not. "
+2 SET Z=Z_"Please re-enter Quantity"
+3 DO HLP(Z)
QUIT
VOU ;EP;Voucher #
+1 NEW Z
SET Z(1)="Voucher Number must be 8 numeric digits, not all zeros "
+2 SET Z(1)=Z(1)_"in format FYMMSER#"
+3 SET Z(2)="Fiscal Year (FY) must be current fiscal year or previous "
+4 SET Z(2)=Z(2)_"fiscal year,"
+5 SET Z(3)="Month (MM) must be 01 through 12,"
+6 SET Z(4)="and Serial number (SER#) must be 0001 through 9999."
+7 DO HLP(.Z)
QUIT
VOUMO ;EP;Voucher month
+1 NEW Z
SET Z="Month must be 01-12"
+2 DO HLP(Z)
QUIT
VOUSR ;EP;Voucher Ser
+1 NEW Z
SET Z="Voucher Serial Number must be 4 numeric digits but not "
+2 SET Z=Z_"all zeros"
+3 DO HLP(Z)
QUIT
VOUYR ;EP;Voucher year
+1 NEW Z
SET Z="Voucher year not equal to current"
+2 IF ASUK("DT","MO")="09"
Begin DoDot:1
+3 SET Z=Z_", next "
End DoDot:1
+4 IF '$TEST
Begin DoDot:1
+5 SET Z=Z_" "
End DoDot:1
+6 SET Z=Z_"or previous FY"
+7 DO HLP(Z)
QUIT
XACC ;EP;Account table
+1 NEW DIC
DO XTBL(9)
QUIT
XARE ;EP;Area table
+1 NEW DIC
DO XTBL(1)
QUIT
XDSO ;EP;Direct Sub Object table
+1 NEW DIC
+2 IF $DATA(ASUL(9,"ACC"))
SET DIC("S")="I $P(^(0),U,2)=ASUL(9,""ACC"")"
DO XTBL(4)
QUIT
XBUD ;EP;Budget table
+1 NEW DIC
DO XTBL(21)
QUIT
XCAT ;EP;Category table
+1 NEW DIC
+2 IF $DATA(ASUL(9,"ACC"))
SET DIC("S")="I $P(^(0),U,2)=ASUL(9,""ACC"")"
+3 IF $DATA(ASUL(3,"SOBJ"))
SET DIC("S")=$SELECT($GET(DIC("S"))]"":DIC("S")_",$P(^(0),U,3)=ASUL(3,""SOBJ"",""E#"")",1:"I $P(^(0),U,3)=ASUL(3,""SOBJ"",""E#"")")
+4 DO XTBL(7)
QUIT
XEOQ ;EP;Eoq type table
+1 NEW DIC
DO XTBL(6)
QUIT
XEQTB ;EP;Eoq table table
+1 NEW DIC
DO XTBL(8)
QUIT
XPGM ;EP;Program table
+1 NEW DIC
DO XTBL(22)
QUIT
XREQ ;EP;Requsitioner table
+1 NEW DIC
DO XTBL(20)
QUIT
XSLC ;EP;Storage Location table
+1 NEW DIC
DO XTBL(10)
QUIT
XSRC ;EP;Source table
+1 NEW DIC
DO XTBL(5)
QUIT
XSSA ;EP;Sub Sub Activity table
+1 NEW DIC
DO XTBL(17)
QUIT
XSSO ;EP;Stock Sub Object table
+1 NEW DIC
+2 IF $DATA(ASUL(9,"ACC"))
SET DIC("S")="I $P(^(0),U,2)=ASUL(9,""ACC"")"
DO XTBL(3)
QUIT
XSST ;EP;Sub Statixn table
+1 NEW DIC
DO XTBL(18)
QUIT
XSTA ;EP;Station table
+1 NEW DIC
DO XTBL(2)
QUIT
XUSR ;EP;User table
+1 NEW DIC
DO XTBL(19)
QUIT
XVEN ;EP;Vendor file
+1 NEW DIC
SET DIC="^AUTTVNDR("
SET DIC(0)="EM"
SET DZ="??"
SET D="B"
DO DQ^DICQ
QUIT
XTBL(Z) ;EP ;Table entry listings (Z=table #)
+1 SET DIC="^ASUL("_Z_","
SET DIC(0)="EM"
SET DZ="??"
SET D="B"
DO DQ^DICQ
QUIT
