Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ASUJHELP

ASUJHELP.m

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