Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PRC(442

Package: IFCAP

Global: ^PRC(442


Information

FileMan FileNo FileMan Filename Package
442 PROCUREMENT & ACCOUNTING TRANSACTIONS IFCAP

Description

Directly Accessed By Routines, Total: 562

Package Total Routines
IFCAP 466 154    2237 REFERENCE NUMBER    303    761    DATE RECEIVED    DISCOUNT    ISMS ORDER NO.    PRC0E
PRC159P1    PRC5CON1    PRC5CON3    PRCB2A    PRCFAC0J    PRCFACA    PRCFACBT    PRCFARR0
PRCFARRD    PRCFATM    PRCFCST    PRCFDE1    PRCFDO1    PRCFFU    PRCFFU2    PRCFFU21
PRCFFU41    PRCFFU5    PRCFFUA4    PRCFFUD    PRCG237P    PRCGA    PRCGARCG    PRCGARCH
PRCH ITEM TXHIST    PRCH NEW DEL FPDS    PRCH NEW PC FPDS    PRCH NEW PO FPDS    PRCH PA STATS DAILY    PRCH PROSTHETIC    PRCH0A    PRCH191
PRCH7B    PRCH7PUC    PRCHAM    PRCHAM1    PRCHAM44    PRCHAMU    PRCHCRD1    PRCHCS9
PRCHDAM2    PRCHDEP2    PRCHDIS1    PRCHDP9    PRCHDSP    PRCHDSP4    PRCHDSP8    PRCHEA
PRCHEC2    PRCHEI    PRCHES9    PRCHFPDE    PRCHFPDS    PRCHFPT1    PRCHFPT2    PRCHFPT3
PRCHHI9    PRCHLO1    PRCHLO1A    PRCHMA    PRCHMHL1    PRCHMOP    PRCHNPO1    PRCHNPO2
PRCHNPO5    PRCHNPO7    PRCHNPOC    PRCHPAT    PRCHPNT2    PRCHPOFX    PRCHQ15    PRCHREC
PRCHRP1    PRCHRP2    PRCHRP8    PRCHRP9    PRCHRPTX    PRCHSF    PRCHSF2    PRCHSP1
PRCHT1    PRCHT14    PRCHT15    PRCHT21    PRCHT22    PRCHT311    PRCHT33    PRCHT38
PRCHUTL    PRCOEC2    PRCOER4    PRCOVUP2    PRCPPOU1    PRCPRDI1    PRCPRDI2    PRCPRDIN
PRCPREME    PRCPRLAS    PRCPSMPR    PRCPSMSP    PRCPUTIL    PRCS58CC    PRCSEB1    PRCSEB2
PRCSES    PRCSFMS1    PRCSP1B    PRCSUT31    PRCUFCU1    PRCVPOU    PRCX1Q1    PROMPT PAYMENT TERMS
^PRC(442    AMENDMENT    AMOUNT    BOC    OBLIGATION DATA    PRC0F    PRCCL406    PRCEADJ
PRCEFIS5    PRCFAC0    PRCFAC01    PRCFAC4    PRCFAIS    PRCFARR    PRCFARRA    PRCFARRT
PRCFAV    PRCFDA    PRCFDO    PRCFDSC1    PRCFFU12    PRCFFU22    PRCFFU7    PRCFOOR3
PRCFPR    PRCFUO    PRCFUOMS    PRCGARP1    PRCGPPC1    PRCH CREDIT SORT    PRCH FPDS PO REG    PRCH PURCHASE CARD
PRCH1A    PRCH1A1    PRCH1A3    PRCH1C    PRCH212P    PRCH410    PRCH442A    PRCH58
PRCH58LQ    PRCH7D    PRCHAM4    PRCHAMY5    PRCHAMYC    PRCHAMYD    PRCHCD0    PRCHCRD3
PRCHCS    PRCHCS8    PRCHDP1    PRCHDP2    PRCHDP4    PRCHDP8    PRCHDSP5    PRCHE
PRCHEF    PRCHES2    PRCHES7    PRCHFPD1    PRCHHI1    PRCHIH1    PRCHLO    PRCHLO2A
PRCHLO6    PRCHMA0    PRCHMA3    PRCHMSHA    PRCHNPO    PRCHNPOA    PRCHOUT INCOMPLETE PO    PRCHPNT
PRCHPOO    PRCHPRCV    PRCHRCS    PRCHREC1    PRCHRP4    PRCHRP5    PRCHRP6    PRCHRPL
PRCHRPT4    PRCHRPT5    PRCHRPT9    PRCHSF1    PRCHSIMP    PRCHT11    PRCHT110    PRCHT114
PRCHT12    PRCHT18    PRCHT2    PRCHT3    PRCHT35    PRCHT39    PRCOE2    PRCOE3
PRCOEC1    PRCOEC3    PRCOEDI    PRCPAUTH    PRCPPOL0    PRCPPOLB    PRCPPOLM    PRCPSLOI
PRCSD111    PRCSP1D    PRCUA    PRCVRRA    ^PRC(443.9    PRCHT19    PRCHT310    PRCHT313
PRCHT315    PRCOESE    PRCPWIU    PRCSES1    ^PRC(442.8    ADMINISTRATIVE CERTIFICATIONS    BREAKOUT CODE    CHANGES
ITEM    LINE INVENTORY POINT    PARTIAL    PRC46PT    PRC5192P    PRC5B4    PRC5B5    PRC5B7A
PRC5CON2    PRCB0B    PRCB1F1    PRCB1G1    PRCE0A    PRCECALL    PRCEMOA    PRCESOE
PRCF131P    PRCF58A    PRCF58A1    PRCFA 1358 EOM REPORT    PRCFA RR NOT PROC BY FISCAL    PRCFA8    PRCFAC02    PRCFAC1
PRCFAC2    PRCFAC3    PRCFACS1    PRCFACS2    PRCFARR1    PRCFARR2    PRCFARR3    PRCFARRQ
PRCFDA2    PRCFDA4    PRCFDBL    PRCFDBL2    PRCFDE    PRCFDE2    PRCFDIC    PRCFDT
PRCFFERT    PRCFFM1M    PRCFFM2M    PRCFFMO    PRCFFMO1    PRCFFMOM    PRCFFU1    PRCFFU11
PRCFFU13    PRCFFU15    PRCFFU19    PRCFFUA1    PRCFFUA2    PRCFFUB    PRCFOOR5    PRCFUO MAN
PRCG238P    PRCGARC    PRCGARC1    PRCGF424    PRCH DELIVERY ORDER    PRCH DELIVERY ORDER AMEND    PRCH DETAILED PURCHASE CARD    PRCH DIRECT DELIVERY ORDER
PRCH FPDS PO REG PRINT    PRCH IMP POREG    PRCH IMPAC    PRCH PC DIRECT DELIVERY    PRCH1A2    PRCH1B    PRCH1B1    PRCH1D
PRCH2138    PRCH442    PRCH58OB    PRCH65    PRCH7C    PRCH7PA1    PRCHAAC    PRCHAAC1
PRCHAAC3    PRCHAM3    PRCHAM5    PRCHAM8    PRCHAMDF    PRCHAMXH    PRCHAMY1    PRCHAMY2
PRCHAMY3    PRCHAMY4    PRCHAMYA    PRCHAMYB    PRCHCNV    PRCHCON2    PRCHCON3    PRCHCORE
PRCHCS0    PRCHCS1    PRCHCS2    PRCHCS7    PRCHDAR    PRCHDEP3    PRCHDEP4    PRCHDIS
PRCHDP3    PRCHDP5    PRCHDP6    PRCHDP7    PRCHDPO    PRCHDSP6    PRCHDSP7    PRCHE2
PRCHEC    PRCHEC1    PRCHES8    PRCHI1    PRCHT314    ^PRCF(421.5    PRCHED10    PRCHES0
PRCHES1    PRCHES3    PRCHES4    PRCHES5    PRCHES6    PRCHESE    PRCHFPD    PRCHFPD2
PRCHFPDT    PRCHFPNT    PRCHFPT0    PRCHFPT4    PRCHHI    PRCHHI10    PRCHHI2    PRCHHI5
PRCHHI6    PRCHHI7    PRCHINQ    PRCHITX    PRCHL4    PRCHL6    PRCHLO2    PRCHMA1
PRCHMA2    PRCHMOLS    PRCHMSPD    PRCHNPO3    PRCHNPO4    PRCHNPO6    PRCHNPO8    PRCHNPO9
PRCHNREQ    PRCHNRQ    PRCHOUT PA STATS    PRCHPAM    PRCHPAM3    PRCHPCAR    PRCHPNT1    PRCHPUSH
PRCHRAT9    PRCHRCS7    PRCHREC2    PRCHREC4    PRCHREC7    PRCHRP10    PRCHRP3    PRCHRP7
PRCHRPT    PRCHRPT1    PRCHRPT6    PRCHS    PRCHSF3    PRCHSITE    PRCHSTAT    PRCHSWCH
PRCHT111    PRCHT112    PRCHT113    PRCHT115    PRCHT116    PRCHT16    PRCHT17    PRCHT31
PRCHT312    PRCHT32    PRCHT36    PRCHT37    PRCHURP    PRCINAR    PRCODCT    PRCOE1
PRCOE4    PRCOEDC    PRCOPHA    PRCOPHA1    PRCOVUP1    PRCPPOL1    PRCPSLOR    PRCRIA
PRCS58    PRCS58OB    PRCSED1    PRCSETI    PRCSP1    PRCSP111    PRCSP13    PRCSP1A
PRCSPC    PRCSQR    PRCSRCD    PRCSREC    PRCSREC4    PRCUCV1    PRCUFC0    PRCUFCA
PRCUFCB    PRCUFCD    PRCUFCU    PRCUPPC1    PRCV442A    PRCV442B    PRCX1P1    PRCX1Q
PURCHASE METHOD    PURCHASE ORDER    
Prosthetics 10 FUND CONTROL POINT    RMPOPIN1    RMPR121B    RMPR4C2    RMPR4C21    RMPR4E21    RMPR4LOP    RMPR4OPN
RMPRCDP    RMPRPSC    
Drug Accountability 8 PSACON2    PSAHIS1    PSALOG0    PSALOG1    PSAREC    PSAREV    PSAREVD    PSAUNI
Controlled Substances 7 PSDACT1    PSDREC    PSDREC1    PSDREC3    PSDREPD    PSDREV    PSDREVD    
Accounts Receivable 5 FISCAL YEAR    PRCADR1    PRCALM    PRCAOLD    PRCAPAT    
Engineering 2 ENLIB2    ENLIB3    
Fee Basis 2 FBAAUTL1    FBNHPC1    
Kernel 1 ^DIC(19    
Pharmacy Benefits Management 1 PSUPR1    

Accessed By FileMan Db Calls, Total: 126

Package Total Routines
IFCAP 117 PRC5CON1    PRCEBL    PRCEFIS4    PRCFA8    PRCFAC0    PRCFAC4    PRCFARR    PRCFARRQ
PRCFDSOD    PRCFFU12    PRCFFU19    PRCFSDR    PRCFUOA    PRCFUOM    PRCFUOMS    PRCG237P
PRCGA    PRCGARP1    PRCH212P    PRCH442A    PRCH58    PRCH58LQ    PRCH58OB    PRCH7B
PRCH7D    PRCH7PA1    PRCH7PUC    PRCHAM4    PRCHAM5    PRCHAMU    PRCHAMYA    PRCHAMYB
PRCHCNV    PRCHCON3    PRCHCS    PRCHDEP2    PRCHDEP3    PRCHDEP4    PRCHDP1    PRCHDP2
PRCHE    PRCHE2    PRCHEA    PRCHEB    PRCHEC    PRCHEC1    PRCHEF    PRCHEI
PRCHFPD    PRCHFPDE    PRCHL4    PRCHL6    PRCHLO1    PRCHLO7    PRCHMOP    PRCHNPO
PRCHNPO1    PRCHNPO8    PRCHOV    PRCHPAT    PRCHPCAR    PRCHPRCV    PRCHQ15    PRCHRCS
PRCHRCS7    PRCHREC1    PRCHREC2    PRCHRP1    PRCHRP3    PRCHRPT    PRCHSTAT    PRCHSWCH
PRCHT1    PRCHT11    PRCHT110    PRCHT111    PRCHT112    PRCHT113    PRCHT114    PRCHT12
PRCHT14    PRCHT15    PRCHT16    PRCHT17    PRCHT18    PRCHT19    PRCHT2    PRCHT21
PRCHT22    PRCHT3    PRCHT31    PRCHT310    PRCHT311    PRCHT312    PRCHT313    PRCHT32
PRCHT33    PRCHT35    PRCHT36    PRCHT37    PRCHT38    PRCHT39    PRCHUTL    PRCOESE
PRCOPHA    PRCPPOU1    PRCPSMSP    PRCRIA    PRCS58    PRCS58OB    PRCSP1B    PRCSP1D
PRCUA    PRCV442A    PRCV442B    PRCVRRA    PRCX1P1    
Controlled Substances 3 PSDREC    PSDREC3    PSDREV    
Accounts Receivable 2 PRCAOLD    PRCAPAT1    
Drug Accountability 2 PSAREC    PSAREV    
Engineering 2 ENLIB3    ENXSIPS    

Pointed To By FileMan Files, Total: 16

Package Total FileMan Files
IFCAP 12 IFCAP CONVERSION DISCREPANCY(#411.3)[12]    1358 DAILY RECORD(#424)[.02]    ITEM MASTER(#441)[#441.04(.01)]    PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[2728]    ELEC RECEIVING REPORT BATCH(#442.9)[1]    EDI SENDER(#443.75)[7]    IFCAP PENDING ARCHIVE(#443.9)[.01]    INVOICE TRACKING(#421.5)[5]    CALM/LOG CODE SHEET(#423)[5.1#423.1(12)]    PURCHASE CARD ORDER RECONCILE(#440.6)[41]    CONTROL POINT ACTIVITY(#410)[52#410.02(9)]    IFCAP/FMS OBLIGATION RECONCILIATION REPORT(#420.96)[3]    
Drug Accountability 2 DRUG ACCOUNTABILITY STATS(#58.8)[13]    DRUG ACCOUNTABILITY TRANSACTION(#58.81)[8]    
Prosthetics 2 HOME OXYGEN TRANSACTIONS FILE(#665.72)[#665.7232(2)]    PROSTHETICS 1358(#664)[7.1]    

Pointer To FileMan Files, Total: 33

Package Total FileMan Files
IFCAP 30 ADMIN. ACTIVITY SITE PARAMETER(#411)[31]    VENDOR(#440)[553]    DIRECT DELIVERY PATIENTS(#440.2)[5.3]    PURCHASE CARD INFORMATION(#440.5)[46]    ITEM MASTER(#441)[#442.01(1.5)]    FEDERAL SUPPLY CLASSIFICATION(#441.2)[#442.01(8)]    PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[2728]    PURCHASE AUTHORITY(#442.4)[#442.12(.01)]    ADMINISTRATIVE CERTIFICATIONS(#442.7)[#442.15(.01)]    TYPE OF SPECIAL HANDLING(#443.4)[18.7]    LOCAL PROCUREMENT REASON CODES(#443.8)[.25]    BUDGET OBJECT CODE(#420.2)[34#442.01(17)#442.11(1)#442.11(3)]    UNIT OF ISSUE(#420.5)[#442.01(3)#442.01(9.4)]    REASON NOT COMPETED(#420.51)[117]    SOLICITATION PROCEDURE(#420.52)[121]    EXTENT COMPETED(#420.53)[128]    EVALUATED PREFERENCE(#420.54)[122]    EPA DESIGNATED PRODUCT(#420.55)[126]    CODE INDEX(#420.6)[#442.1(1)#442.1(1.1)#442.1(1.2)#442.16(.01)]    SOURCE CODE(#420.8)[8]    INTERMEDIATE PRODUCT(#420.9)[#442.01(3.6)]    DLA/LOG CODES(#441.4)[7273787980#442.01(39.5)]    TYPE OF AMENDMENT(#442.2)[#442.07(3)]    PURCHASE ORDER STATUS(#442.3)[.5#442.07(9)#442.14(1.5)]
PAT TYPE(#442.5)[.02]    CALM/LOG CODE SHEET(#423)[#442.01(37)#442.08(5)#442.11(19.6)]
GENERIC INVENTORY(#445)[#442.14(11)#442.147(.01)]    CONTROL POINT ACTIVITY(#410)[.0762#442.01(10)#442.09(8)#442.14(.01)]    CLASSIFICATION OF REQUEST(#410.2)[52]    SORT GROUP(#410.7)[51]    
Kernel 2 SERVICE/SECTION(#49)[5.2]    NEW PERSON(#200)[1619565761104113#442.07(6)#442.07(10)#442.09(1)#442.11(6)#442.11(14)#442.11(17)#442.11(19.3)#442.14(2)#442.14(6)#442.714(6)]    
Engineering 1 WORK ORDER #(#6920)[51]    

Fields, Total: 168

Field # Name Loc Type Details
.01 PURCHASE ORDER NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S Z=$P(X,"-",2) K:'$D(^PRC(411,$P(X,"-",1)))!'($S($D(PRCAREF):Z?3UN2N1UN,$D(PRCFA(1358)):Z?3UN2N1UN,1:(Z?3UN3N))) X D:$D(X) EN8^PRCHNPO6
  • LAST EDITED:  SEP 12, 1996
  • HELP-PROMPT:  ENTER PURCHASE ORDER (PAT) NUMBER (ie A61234,6A1234, or X7G123)
  • DESCRIPTION:  
    This is the purchase order number.
  • EXECUTABLE HELP:  I $D(PRCAREF) W !,"Enter the PAT REF number (i.e. 8K1234,K8123A)"
  • GROUP:  AR
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^B
    1)= S ^PRC(442,"B",X,DA)=""
    2)= K ^PRC(442,"B",X,DA)
  • CROSS-REFERENCE:  442^C^MUMPS
    1)= S ^PRC(442,"C",$P(X,"-",2),DA)=""
    2)= K ^PRC(442,"C",$P(X,"-",2),DA)
    This X-REF contains the Common Numbering System part of the complete Purchase Order, the part of the PO after the SITE number.
.02 METHOD OF PROCESSING 0;2 POINTER TO PAT TYPE FILE (#442.5)
************************REQUIRED FIELD************************
PAT TYPE(#442.5)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=1,"_$S($D(PRCHNRQ):"Y=8!(Y=25)",1:"Y'=8") S:$D(PRCHDELV) DIC("S")="I Y=1!(Y=26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 22, 1996
  • DESCRIPTION:  
    This is the method of payment.
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=1,"_$S($D(PRCHNRQ):"Y=8!(Y=25)",1:"Y'=8") S:$D(PRCHDELV) DIC("S")="I Y=1!(Y=26)"
  • EXPLANATION:  Enter the number or abbreviation.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^F
    1)= S ^PRC(442,"F",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"F",$E(X,1,30),DA)
    This X-REF contains the pointer to the METHOD OF PROCESSING file for each PO.
.03 SPECIAL FUND CONTROL POINT 0;19 SET
  • '1' FOR GENERAL POST FUNDS;
  • '2' FOR SUPPLY FUND;
  • '3' FOR CASCA;
  • '4' FOR CANTEEN;

  • LAST EDITED:  MAY 10, 1994
  • HELP-PROMPT:  Controls the way a procurement document is routed through IFCAP, as well as whether Cost Centers and BOC(s) are required.
  • DESCRIPTION:  
    This is the special fund control point. It controls the way in which a procurement document is routed through IFCAP, as well as whether Cost Centers and BOC(s) are required.
.04 INVOICE ADDRESS 12;6 FREE TEXT

  • INPUT TRANSFORM:  S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,D0,0)) K:'Z0 X Q:'Z0 S DIC="^PRC(411,Z0,4,",DIC(0)="QEMO" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
  • OUTPUT TRANSFORM:  Q:Y="" S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,D0,0)) Q:'Z0 S Y=$P($S($D(^PRC(411,Z0,4,Y,0)):^(0),1:""),U,1) K Z0
  • LAST EDITED:  OCT 13, 1995
  • HELP-PROMPT:  ENTER THE CORRECT INVOICE LOCATION
  • DESCRIPTION:  
    This is the invoice address.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,D0,0)) Q:'Z0 S DIC="^PRC(411,Z0,4,",DIC(0)="QEMO" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 2237 REFERENCE NUMBER 13;0 POINTER Multiple #442.14 442.14

  • LAST EDITED:  APR 30, 1985
  • HELP-PROMPT:  Enter the station number
  • DESCRIPTION:  
    This is the reference number for this request for this station.
.06 PRIORITY OF 2237 1;9 SET
  • 'EM' FOR EMERGENCY;
  • 'SP' FOR SPECIAL;
  • 'ST' FOR STANDARD;

  • LAST EDITED:  APR 26, 1986
  • DESCRIPTION:  
    This is the priority of this purchase order.
.07 PRIMARY 2237 0;12 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^PRC(442,DA,13,Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 16, 1986
  • DESCRIPTION:  
    This is the primary purchase order.
  • SCREEN:  S DIC("S")="I $D(^PRC(442,DA,13,Y,0))"
  • EXPLANATION:  MUST EXIST IN MULTIPLE
    UNEDITABLE
.08 ESTIMATED ORDER? 7;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 21, 1987
  • DESCRIPTION:  
    Enter YES if this is an estimated order.
.09 DEPOT VOUCHER NO. 1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  MAY 22, 1989
  • HELP-PROMPT:  Enter DEPOT Voucher Number for Receiving (5 characters).
  • DESCRIPTION:  
    This is the depot voucher number.
  • CROSS-REFERENCE:  442^H
    1)= S ^PRC(442,"H",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"H",$E(X,1,30),DA)
    This X-REF lists the DEPOT VOUCHER NO. for each PO.
.1 P.O. DATE 1;15 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) D EN1^PRCHNPO6
  • LAST EDITED:  DEC 07, 1988
  • HELP-PROMPT:  Changing P.O. date to a different FY will re-calculate the appropriation.
  • DESCRIPTION:  
    This is the purchase order date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^AB
    1)= S ^PRC(442,"AB",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"AB",$E(X,1,30),DA)
    This X-REF has the date the PO was created.
.2 EMERGENCY ORDER? 1;17 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 13, 1989
  • HELP-PROMPT:  Enter 'Y' to indicate this is an emergency procurement.
  • DESCRIPTION:  
    Enter YES if this is an emergency order.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the LOCAL PROCUREMENT REASON CODE field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
.25 LOCAL PROCUREMENT REASON CODE 1;19 POINTER TO LOCAL PROCUREMENT REASON CODES FILE (#443.8)
************************REQUIRED FIELD************************
LOCAL PROCUREMENT REASON CODES(#443.8)

  • LAST EDITED:  APR 12, 1991
  • DESCRIPTION:  
    This is a pointer to the Local Procurement Reason Code File (#443.8). This code describes why the items are being purchased "open market".
  • CROSS-REFERENCE:  ^^TRIGGER^442^.2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(442,.25,1,1,1.1) X ^DD(442,.25,1,1,1.4)
    1.1)= S X=DIV S X=$S('$D(^PRC(443.8,+DIV,0)):"",1:$P(^(0),U,1))=1,Y(1)=X S X="Y",Y(2)=X S X=1,Y(3)=X S X="N",X=$S(Y(1):Y(2),Y(3):X)
    1.4)= S DIH=$S($D(^PRC(442,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,17)=DIV,DIH=442,DIG=.2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= $S(LOCAL PROCUREMENT REASON CODE=1:"Y",1:"N")
    DELETE VALUE)= NO EFFECT
    FIELD)= EMERGENCY
.3 EXPENDABLE/NONEXPENDABLE 1;18 SET
************************REQUIRED FIELD************************
  • 'E' FOR EXPENDABLE;
  • 'N' FOR NON-EXPENDABLE;

  • LAST EDITED:  MAY 11, 1989
  • HELP-PROMPT:  Indicate whether this is a procurement for Expendable, or for Non-expendable goods.
  • DESCRIPTION:  
    This is the indicator for procurement of expendable or nonexpendable items.
.5 SUPPLY STATUS 7;1 POINTER TO PURCHASE ORDER STATUS FILE (#442.3) PURCHASE ORDER STATUS(#442.3)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 13, 1997
  • DESCRIPTION:  
    This is the Supply status.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5"
  • EXPLANATION:  STATUS OF PURCHASE ORDER
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^AG^MUMPS
    1)= D ENXS^PRCHSTAT
    2)= D ENXK^PRCHSTAT
    During SET this X-REF gets the SUPPLY STATUS ORDER number and the FISCAL STATUS ORDER number from the PURCHASE ORDER STATUS file. The SUPPLY STATUS ORDER number in put into the SUPPLY STATUS ORDER field of this file and
    the "AH" X-REF is created for that field. The FISCAL STATUS ORDER number is entered into the FISCAL STATUS ORDER field, also in this file, and the "AI" X-REF entry is created for that field.
    During KILL both the SUPPLY STATUS ORDER and the FISCAL STATUS ORDER fields in this file are set to null.
  • CROSS-REFERENCE:  442^ST^MUMPS
    1)= N A S A=$P($G(^PRCD(442.3,+X,0)),U,2) S:A=50!(A=51)&($P($G(^PRC(442,DA,23)),U,22)]"") ^PRC(442,"MAPP",$P(^PRC(442,DA,23),U,22)_"~",DA)=""
    2)= K:$P($G(^PRC(442,DA,23)),U,22)]"" ^PRC(442,"MAPP",$P(^PRC(442,DA,23),U,22)_"~",DA)
    This is a conditional index by purchase card order user for status change.
  • CROSS-REFERENCE:  442^AM1^MUMPS
    1)= I $P($G(^PRC(442,DA,23)),U,8) N A S A=$P($G(^PRCD(442.3,+X,0)),U,2) I A-45,A-41,A-40 S ^PRC(442,"AM",$P(^PRC(442,DA,23),U,8),DA)=""
    2)= K:$P($G(^PRC(442,DA,23)),U,8) ^PRC(442,"AM",$P($G(^PRC(442,DA,23)),U,8),DA)
    This will set the index 'AM' for purchase card order if the status is not transaction complete (amendment) or cancelled.
.6 PARTIAL 11;0 DATE Multiple #442.11 442.11

  • DESCRIPTION:  
    This is the information used for a partial order.
  • IDENTIFIED BY:  FINAL(#8)
.7 SUPPLY STATUS ORDER 7;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 28, 1996
  • HELP-PROMPT:  NOT EDITABLE--Updated automatically when SUPPLY STATUS (.5) changes (number between 1 and 999)
  • DESCRIPTION:  
    This field is automatically updated when supply status changes.
  • CROSS-REFERENCE:  442^AH
    1)= S ^PRC(442,"AH",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"AH",$E(X,1,30),DA)
    This X-REF lists the SUPPLY STATUS ORDER number. This X-REF is actually created and killed when the SUPPLY STATUS field "AG" X-REF is SET or KILLed.
  • CROSS-REFERENCE:  442^MAPP^MUMPS
    1)= I X=50!(X=51),$P(^PRC(442,DA,23),U,22) S ^PRC(442,"MAPP",$P(^PRC(442,DA,23),U,22)_"~",DA)=""
    2)= I X=50!(X=51),$P(^PRC(442,DA,23),U,22) K ^PRC(442,"MAPP",$P(^PRC(442,DA,23),U,22)_"~",DA)
    This cross-reference is used to display total reconciled orders per user, and to approve reconciled orders.
.8 FISCAL STATUS ORDER 7;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1989
  • HELP-PROMPT:  NOT EDITABLE--Updated automatically when SUPPLY STATUS (.5) changes. (number between 1 and 999)
  • DESCRIPTION:  
    This field is automatically updated when supply status changes.
  • CROSS-REFERENCE:  442^AI
    1)= S ^PRC(442,"AI",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"AI",$E(X,1,30),DA)
    This X-REF keeps track of the FISCAL STATUS ORDER number. This X-REF is SET and KILLed through the "AG" X-REF in the SUPPLY STATUS field in this file.
1 FCP 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:'$D(PRC("SITE"))!('$D(^PRC(442,DA,1))) X Q:'$D(X) S:$P(^(1),U,15)]"" PRC("FY")=$P(^(1),U,15) D EN1^PRCHNPO5 Q:'$D(X) S $P(^PRC(442,DA,0),U,4)=PRC("APP")
  • LAST EDITED:  JAN 20, 1989
  • HELP-PROMPT:  ENTER A VALID FUND CONTROL POINT
  • DESCRIPTION:  
    This is the valid Fund Control Point.
  • EXECUTABLE HELP:  Q:'$D(PRC("SITE")) S:$D(D) ZD=D S Z0=$E($P(^PRC(442,DA,0),"-",2),1,2),X="?",DIC="^PRC(420,"_PRC("SITE")_",1,",DIC(0)="QEM",DIC("S")="D EN5^PRCHNPO6" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K Z0,Z1,ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^E^MUMPS
    1)= S ^PRC(442,"E",$P(X," ",1),DA)=""
    2)= K ^PRC(442,"E",$P(X," ",1),DA)
    This X-REF contains just the CONTROL POINT number, not the name.
  • CROSS-REFERENCE:  442^AC^MUMPS
    1)= I $D(^PRC(420,+^PRC(442,DA,0),1,+X,0)) S Z=^(0) S:$P(Z,U,12) $P(^PRC(442,DA,0),U,19)=$P(Z,U,12) S:$P(Z,U,18) $P(^PRC(442,DA,17),U,1)=$E($P(Z,U,18),1,3) K Z
    2)= S $P(^PRC(442,DA,0),U,19)="",$P(^(17),U,1)=""
    The SET for this X-REF checks the FUND CONTROL POINT file to see if there is any data in the SPECIAL CONTROL POINT field. If there is data it is entered into the SPECIAL FUND CONTROL POINT in this file. Also, the LOG
    DEPARTMENT field in the FUND CONTROL POINT file is checked for data. If any data is found it is entered into the DEPARTMENT NUMBER field in this file.
    The KILL for this X-REF just sets the SPECIAL FUND CONTROL POINT and the DEPARTMENT NUMBER fields to null.
1.4 APPROPRIATION 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  APR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 4-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    P.O. Appropriation
2 COST CENTER 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S Z0=+$P(^PRC(442,DA,0),"^",3) K:'$D(PRC("SITE"))!'Z0 X,Z0 I $D(X) K:'$D(^PRC(420,PRC("SITE"),1,Z0,2,0)) X I $D(X) D EN2^PRCHNPO5
  • LAST EDITED:  JUL 08, 1994
  • HELP-PROMPT:  Enter the Cost Center for this Purchase Order
  • DESCRIPTION:  
    This is the cost center for this purchase order.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=+$P(^PRC(442,DA,0),"^",3) Q:'$D(PRC("SITE"))!'Z0 Q:'$D(^PRC(420,PRC("SITE"),1,Z0,2,0)) S DIC="^PRC(420,PRC(""SITE""),1,Z0,2,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2.4 OBLIGATION DATA 10;0 Multiple #442.09 442.09

  • DESCRIPTION:  
    This is the funds obligation data.
3 SUBACCOUNT1 0;6 POINTER TO BUDGET OBJECT CODE FILE (#420.2) BUDGET OBJECT CODE(#420.2)

  • LAST EDITED:  MAY 02, 1985
  • DESCRIPTION:  
    This is the first subaccount of the transaction, if applicable.
3.4 SUBAMOUNT1 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999999.99)!(X<0) X
  • LAST EDITED:  APR 29, 2013
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the amount charged to the first subaccount.
4 SUBACCOUNT2 0;8 POINTER TO BUDGET OBJECT CODE FILE (#420.2) BUDGET OBJECT CODE(#420.2)

  • LAST EDITED:  MAY 02, 1985
  • DESCRIPTION:  
    This is the second subaccount on this transaction, if applicable.
4.4 SUBAMOUNT2 0;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 9999999
  • DESCRIPTION:  
    This is the amount charged to the second subaccount.
5 VENDOR 1;1 POINTER TO VENDOR FILE (#440)
************************REQUIRED FIELD************************
VENDOR(#440)

  • INPUT TRANSFORM:  D EN3^PRCHNPO5
  • LAST EDITED:  OCT 06, 1987
  • DESCRIPTION:  
    This is the name of the vendor.
  • EXECUTABLE HELP:  I $D(DA),$D(^PRC(442,DA,2,"AE")) W !?5,"Vendor cannot be edited if Purchase Order contains line items with PR card numbers."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^D
    1)= S ^PRC(442,"D",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"D",$E(X,1,30),DA)
    The X-REF just lists the vendor for this file entry.
5.1 DEBTOR 1;16 POINTER ***** TO AN UNDEFINED FILE (#412), STORED IN ^PRC(412) *******

  • LAST EDITED:  SEP 07, 1987
  • DESCRIPTION:  
    This is the name of the debtor.
5.2 REQUESTING SERVICE 1;2 POINTER TO SERVICE/SECTION FILE (#49)
************************REQUIRED FIELD************************
SERVICE/SECTION(#49)

  • LAST EDITED:  MAR 19, 1985
  • DESCRIPTION:  
    This is the requesting Service.
5.3 DIRECT DELIVERY PATIENT 1;12 POINTER TO DIRECT DELIVERY PATIENTS FILE (#440.2) DIRECT DELIVERY PATIENTS(#440.2)

  • LAST EDITED:  OCT 12, 1985
  • DESCRIPTION:  
    This indicates if this is a direct delivery to a patient.
5.4 SHIP TO 1;3 NUMBER

  • INPUT TRANSFORM:  S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,D0,0)),1,3)) K:'Z0 X Q:'Z0 S DIC="^PRC(411,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,D0,0)),1,3)) Q:'Z0 S Y=$P($S($D(^PRC(411,Z0,1,Y,0)):^(0),1:""),U,1) K Z0
  • LAST EDITED:  AUG 15, 1995
  • HELP-PROMPT:  ENTER A RECEIVING LOCATION
  • DESCRIPTION:  
    This is the address for the delivery.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,D0,0)),1,3)) Q:'Z0 S DIC="^PRC(411,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5.6 DELIVERY LOCATION 1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  OCT 10, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the delivery location.
5.7 DELIVERY LOCATIONS/DATES 19;0 WORD-PROCESSING #442.02

  • DESCRIPTION:  
    These are the dates for delivery for delivery locations.
6 VERBAL PURCHASE ORDER (Y/N) 1;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 16, 1985
  • DESCRIPTION:  
    YES indicates that this is a verbal purchase order.
6.2 CONFIRMATION COPY (Y/N) 1;5 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • DESCRIPTION:  
    YES indicates that this is a confirmation copy.
6.4 F.O.B. POINT 1;6 SET
  • 'D' FOR DESTINATION;
  • 'O' FOR ORIGIN;

  • LAST EDITED:  NOV 21, 1994
  • DESCRIPTION:  
    This is the F.O.B. point.
6.9 ORIGINAL DELIVERY DATE 0;20 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 03, 1989
  • HELP-PROMPT:  This field is updated automatically if the Delivery Date is changed AFTER obligation.
  • DESCRIPTION:  
    This is the original delivery date.
7 DELIVERY DATE 0;10 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S Z1=$S($D(^PRC(442,DA,1)):$P(^(1),U,15),1:""),Z2=$S('Z1:"Missing P.O. DATE",X
  • LAST EDITED:  FEB 25, 1988
  • DESCRIPTION:  
    This is the delivery date for this purchase order.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7.2 ESTIMATED COST 0;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X
  • LAST EDITED:  MAY 10, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the estimated cost.
8 SOURCE CODE 1;7 POINTER TO SOURCE CODE FILE (#420.8)
************************REQUIRED FIELD************************
SOURCE CODE(#420.8)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($G(PRCHPC)=2:"""0236B""[$E(^(0))",$D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHNRQ):"""1390""[$E(^(0))",1:"""2456789B""[$E(^(0))") D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  OCT 25, 2005
  • DESCRIPTION:  
    This is the source code for this order.
  • SCREEN:  S DIC("S")="I "_$S($G(PRCHPC)=2:"""0236B""[$E(^(0))",$D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHNRQ):"""1390""[$E(^(0))",1:"""2456789B""[$E(^(0))")
  • EXPLANATION:  SOURCE CODE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8.1 ASTR. FOR SOURCE CODE 1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'("X?.""*""") X
  • LAST EDITED:  MAR 29, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains internal program code that controls printed output.
8.2 PROPOSAL 1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-45 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the proposal information that prints on the purchase order, if applicable.
8.3 PURCHASE METHOD 14;0 POINTER Multiple #442.12 442.12

  • DESCRIPTION:  
    This is the purchase method.
9.2 PROMPT PAYMENT TERMS 5;0 Multiple #442.06 442.06

  • DESCRIPTION:  
    Theses are the prompt payment terms.
  • IDENTIFIED BY:  
    "Z1": S PRCDAY=$P(^(0),U,2) W ?30,$S(PRCDAY=+PRCDAY:"DAYS: "_PRCDAY,1:"BY THE "_PRCDAY)
13 EST. SHIPPING AND/OR HANDLING 0;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:(X?.N1"."3N.N)!(X>9999.99)!(X<0) X I $D(X),$D(^PRC(442,DA,1)),$P(^(1),U,6)="D" D EN4^PRCHNPO5 I $D(X) W " $",$J(X,0,2)
  • OUTPUT TRANSFORM:  S Y=" $"_$J(Y,0,2)
  • LAST EDITED:  AUG 29, 1994
  • HELP-PROMPT:  ENTER A DOLLAR AMOUNT BETWEEN 0 AND 9999.99
  • DESCRIPTION:  
    This is the estimate of shipping and handling costs.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^442^15
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442,13,1,1,1.1) X ^DD(442,13,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14)+1
    1.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)) S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,
    1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442,13,1,1,2.1) X ^DD(442,13,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14)-1
    2.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)) S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,
    1,0))>0
    CREATE VALUE)= LineItem+1
    DELETE VALUE)= LineItem-1
    FIELD)= LineItem Count
13.05 EST. SHIPPING BOC 23;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S Z0=$P(^PRC(442,D0,0),"^",5) K:'Z0 X,Z0 I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X,Z0 I $D(X) D EN88^PRCHNPO7
  • LAST EDITED:  JUL 01, 1994
  • HELP-PROMPT:  Enter the BOC for the EST. SHIPPING AND/OR HANDLING field entry. Choose the appropriate BOC from this cost center.
  • DESCRIPTION:  
    The shipping charges are accounted in this field.
  • EXECUTABLE HELP:  S ZD=D,Z0=$P(^PRC(442,D0,0),"^",5) K:'Z0 X,Z0 I $D(X) S X="?",DIC="^PRCD(420.1,Z0,1,",DIC(0)="E" D ^DIC K DIC S D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
13.1 EST. SHIPPING LINE ITEM NO. 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 06, 1988
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the line item number for shipping and handling costs.
13.2 GOV'T B/L NO. 12;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>21!($L(X)<1) X
  • LAST EDITED:  OCT 07, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-21 CHARACTERS IN LENGTH. If FOB point=ORIGIN and Shipping Charges > $250, shipping charges are put on Gov't Bill of Lading. Enter number here.
  • DESCRIPTION:  
    This is the Government Bill of Lading number.
13.3 SHIP VIA 12;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<1) X
  • LAST EDITED:  OCT 07, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-23 CHARACTERS IN LENGTH. If Gov't Bill of Lading was required, enter the shipping method information in this field.
  • DESCRIPTION:  
    This is the shipping method if this is a Government Bill of Lading.
13.4 GBL P.O.NUMBER 12;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  JAN 20, 1989
  • HELP-PROMPT:  Enter the P.O.number assigned to the Government Bill of Lading. ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the Government Bill of Lading purchase order number.
14 DISCOUNT 3;0 Multiple #442.03 442.03

  • DESCRIPTION:  
    This is the discount for this order.
15 LINE ITEM COUNT 0;14 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 21, 1989
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the line item count.
  • NOTES:  TRIGGERED by the LINE ITEM NUMBER field of the ITEM sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
    TRIGGERED by the DISCOUNT ITEM field of the DISCOUNT sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
    TRIGGERED by the EST. SHIPPING AND/OR HANDLING field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
16 PA/PPM/AUTHORIZED BUYER 1;10 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ) I $P(^(400),U,1)>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 23, 1996
  • DESCRIPTION:  
    This is the purchasing agent responsible for this request.
  • SCREEN:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ) I $P(^(400),U,1)>2"
  • EXPLANATION:  Must be a PPM Clerk, Authorized Buyer or Manager for Requisitions, a Purchasing Agent, Authorized Buyer or Manager for P.O.'s.
16.5 VALIDATION CODE 12;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y="/ES/"_$$DECODE^PRCHES5(D0)
  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This is the electronic signature for this purchasing agent.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^442^17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,12)):^(12),1:"") S X=$P(Y(1),U,3) S DIU=X K Y X ^DD(442,16.5,1,1,1.1) X ^DD(442,16.5,1,1,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=% S X=X
    1.4)= S DIH=$S($D(^PRC(442,DIV(0),12)):^(12),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(12)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=17 D ^DICR:$N(^DD(DIH,DIG,1
    ,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,12)):^(12),1:"") S X=$P(Y(1),U,3) S DIU=X K Y S X=DIV S X="" X ^DD(442,16.5,1,1,2.4)
    2.4)= S DIH=$S($D(^PRC(442,DIV(0),12)):^(12),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(12)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=17 D ^DICR:$N(^DD(DIH,DIG,1
    ,0))>0
    CREATE VALUE)= NOW
    DELETE VALUE)= @
    FIELD)= ES CODE DATE/TIME
16.7 VALIDATION VERSION 12;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 09, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the version of the validation.
16.8 ESIG CODE 12;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  APR 12, 1993
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • DESCRIPTION:  
    The signature block name.
17 VALIDATION DATE/TIME 12;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 09, 1992
  • DESCRIPTION:  
    This is the electronic signature code for the date/time.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the VALIDATION CODE field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
18 PO PRINTED TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 02, 1985
  • DESCRIPTION:  
    This is the printed time for this purchase order.
18.5 EDI MESSAGE NO. 12;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 23, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    The EDI message number that is returned from Austin.
18.6 NEED SPECIAL HANDLING? 12;13 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  SEP 30, 1993
  • DESCRIPTION:  
    This field is just a question to see if the special handling instructions are needed for the purchase order.
18.7 TYPE OF SPECIAL HANDLING 12;14 POINTER TO TYPE OF SPECIAL HANDLING FILE (#443.4) TYPE OF SPECIAL HANDLING(#443.4)

  • LAST EDITED:  SEP 30, 1993
  • DESCRIPTION:  This is a pointer field to file 443.4. The file contains special handling instructions which are displayed/printed on purchase orders. The special handling instructions are also sent in the CO segment of the PHA
    transaction.
19 AGENT ASSIGNED P.O. 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 21, 1992
  • DESCRIPTION:  
    This is the agent assigned to this purchase order.
    UNEDITABLE
19.2 DATE P.O. ASSIGNED 12;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 26, 1985
  • DESCRIPTION:  
    This is the date this purchase order was assigned to this purchasing agent.
20 COMMENTS 4;0 WORD-PROCESSING #442.04

  • DESCRIPTION:  
    These are comments about this purchase order.
21 MONTH COMPUTED

  • MUMPS CODE:  S Y(442,21,1)=$S($D(^PRC(442,D0,1)):^(1),1:"") S X=$P(Y(442,21,1),U,15),Y(442,21,2)=X S X=4,Y(442,21,3)=X S X=5,X=$E(Y(442,21,2),Y(442,21,3),X)
  • ALGORITHM:  $E(P.O. Date,4,5)
  • DESCRIPTION:  
    This is the month for this purchase order.
22 QUARTER COMPUTED

  • MUMPS CODE:  S Y(442,22,1)=$S($D(^PRC(442,D0,1)):^(1),1:"") S X=$P(Y(442,22,1),U,15),X=$P("2^2^2^3^3^3^4^4^4^1^1^1","^",$E(X,4,5))
  • ALGORITHM:  QUARTER(P.O. DATE)
  • LAST EDITED:  OCT 18, 1985
  • DESCRIPTION:  
    This is the quarter for this purchase order.
23 LAST DIGIT OF FISCAL YEAR COMPUTED

  • MUMPS CODE:  S X="" F I=1:1 Q:+X=X S X=$E($P(^PRC(442,D0,0),"-",2),I) I +X=X
  • ALGORITHM:  S X="" F I=1:1 Q:+X=X S X=$E($P(^PRC(442,D0,0),"-",2),I) I +X=X
  • LAST EDITED:  DEC 04, 1987
  • DESCRIPTION:  
    This is the last digit of the current fiscal year.
24 ADMINISTRATIVE CERTIFICATIONS 15;0 POINTER Multiple #442.15 442.15

  • DESCRIPTION:  
    Theses are the administrative certifications for this purchase order.
  • IDENTIFIED BY:  
    "Z1": W " "
25 REMARKS 16;0 WORD-PROCESSING #442.025

  • DESCRIPTION:  
    This is the remarks field.
26 BBFY 23;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 29, 1994
  • DESCRIPTION:  
    This field is the FMS 'BEGINING BUGDET FISCAL YEAR'. This is set from 'PRC("BBFY")' variable. This variable is created through the 'FCP', 'FUND CONTROL POINT' field.
  • TECHNICAL DESCR:  
    To retrieve 'PRC("BBFY")' use the extrinsic function '$$BBFY^PRCSUT'.
27 OLD PO RECORD 23;3 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442) PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)

  • LAST EDITED:  MAR 30, 1994
  • DESCRIPTION:  
    It is a pointer to an old purchase order record number.
28 NEW PO RECORD 23;4 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442) PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)

  • LAST EDITED:  MAR 30, 1994
  • DESCRIPTION:  
    It is a pointer to a new purchase order record number.
29 END DATE FOR SERVICE ORDER 23;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 09, 1994
  • HELP-PROMPT:  Enter the ending date for this P.O. or 1358 Service Order.
  • DESCRIPTION:  This field is the ending date for the Purchase Order or 1358 for a service order, used when the length of the service contract extends over a period greater than one month. It is used by Fiscal service at the time of
    obligation. When used in conjunction with the Auto Accrue flag, the ending date will determine the monthly accrual.
30 AUTO ACCRUE 23;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 28, 1994
  • HELP-PROMPT:  Enter YES for Auto Accrual; enter NO for no Auto Accrual.
  • DESCRIPTION:  
    This field is used by Fiscal service to indicate whether a Purchase Order or 1358 for a service order should be accrued in FMS.
31 SUBSTATION 23;7 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411) ADMIN. ACTIVITY SITE PARAMETER(#411)

  • INPUT TRANSFORM:  S DIC("S")="I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""SITE"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 30, 1995
  • SCREEN:  S DIC("S")="I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""SITE"")"
  • EXPLANATION:  Select Substations only. This field identifies the facility that will be charged for this order.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
35 AMOUNT 9;0 Multiple #442.1 442.1

  • DESCRIPTION:  
    This is the amount of the purchase order/partial.
40 ITEM 2;0 Multiple #442.01 442.01

  • LAST EDITED:  NOV 14, 1996
  • DESCRIPTION:  
    This is the name of the item on this purchase request.
  • IDENTIFIED BY:  
    "Z1": W:$D(^(1,1,0)) $E(^(0),1,60) W:$D(^PRC(442,D0,2,+Y,0)) !,?9,"STK#: ",$P(^(0),"^",6),?35,"NSN: ",$P(^(0),"^",13)
    "Z2": I $P($G(^(4)),U)]"" W !,?9,"SERIAL NO.(GSA/DLA): "_$P(^(4),U)
    "Z3": I $P(^(0),U,2)=0!($P(^(0),U,9)=0) W ?50,"**DELETED**"
  • INDEXED BY:  LINE ITEM NUMBER & DM DOC ID & ITEM MASTER FILE NO. & QUANTITY & UNIT OF PURCHASE & PACKAGING MULTIPLE & ACTUAL UNIT COST & 2237 REFERENCE # (AK)
41 BOC 22;0 Multiple #442.041 442.041

  • LAST EDITED:  JUN 27, 1994
  • DESCRIPTION:  This multiple will hold the dollar amount for each BOC within this file 442 record.
    Longer explanation. The BOC field in this multiple allows the selection of one of the ITEM multiple BOC. Only the BOC listed in the "D" x-ref found within the ITEM multiple in this record, are allowable choices for the
    BOC multiple.
  • TECHNICAL DESCR:  This multiple, along with the BOC field in the ITEM multiple, handles the task of keeping track of which items belong to each FMS LINE entry.
    The "D" x-ref on the BOC field, field 3.5, in the ITEM multiple is used with the BOC field, field .01, in this multiple to limit the selection only to entries in this record.
    The "AH" x-ref on the same field in the ITEM multiple allows for the lookup of all items using the same BOC.
    The SUBAMOUNT field in this multiple just keeps the total dollar amount for each BOC, as reported to FMS.
    The FMS LINE field just keeps track of the number sent to FMS when the subamount was sent down to FMS.
    To find all the ITEM entries used to gather the SUBAMOUNT value for any BOC in this multiple just look through the "AH" x-ref in the ITEM multiple.
42 RFQ NBR 21;8 FREE TEXT

  • INPUT TRANSFORM:  K:X'?3N1"-"2N1"-RFQ-"5N X
  • LAST EDITED:  MAY 07, 1996
  • HELP-PROMPT:  Entered when RFQ is awarded and PURCHASE ORDER is created.
  • DESCRIPTION:  This is a unique reference number for the Request for Quotation. It is derived from the following:
    3 digit station number, i.e. 688
    hyphen
    2 digit FISCAL year, i.e. 96
    hyphen
    string constant 'RFQ'
    hyphen
    5 digit sequence counter padded on the left with zeros
    For example 688-96-RFQ-00001.
44 DISPUTED 23;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 02, 1996
  • DESCRIPTION:  
    This field is to indicate whether a purchase card charge is being disputed.
46 PURCHASE CARD NUMBER 23;8 POINTER TO PURCHASE CARD INFORMATION FILE (#440.5)
************************REQUIRED FIELD************************
PURCHASE CARD INFORMATION(#440.5)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^PRC(440.5,""C"",DUZ,Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  I Y S:$G(PRCPRTTF)=1 Y="XXXXXXXXXXXX"_$E($P($G(^PRC(440.5,Y,0)),U),13,16) S:$G(PRCPRTTF)'=1 Y=$P($G(^PRC(440.5,Y,0)),U)
  • LAST EDITED:  DEC 10, 2013
  • HELP-PROMPT:  Enter the purchase card.
  • DESCRIPTION:  
    This is the purchase card number assigned to the purchase card order.
  • TECHNICAL DESCR:  The Output Transform was created to insure regular IFCAP users are not able to see Purchase Card (credit card) number via options PRCF INQ 410 or PRCF INQ 442, but, IT users and high level Fileman users are able to see the
    full associated card number.
  • SCREEN:  S DIC("S")="I $D(^PRC(440.5,""C"",DUZ,Y))"
  • EXPLANATION:  Enter "?" to see your own purchase card number(s).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^AM
    1)= S ^PRC(442,"AM",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"AM",$E(X,1,30),DA)
    Cross reference for purchase card numbers.
47 DELIVERY ORDER 23;10 SET
  • 'Y' FOR YES;

  • LAST EDITED:  MAY 14, 1996
  • DESCRIPTION:  
    This field indicates whether this order is a delivery order.
48 TYPE OF ORDER 23;11 SET
  • 'D' FOR DELIVERY ORDER;
  • 'P' FOR DETAILED PURCHASE CARD ORDER;
  • 'S' FOR SIMPLIFED PURCHASE CARD ORDER;

  • LAST EDITED:  JUL 03, 1996
  • DESCRIPTION:  
    This field determines if a purchase order is a 'Detailed Purchase Card Order','Simplified Purchase Card Order' or a 'Delivery Order'.
  • CROSS-REFERENCE:  442^APC^MUMPS
    1)= S ^PRC(442,"APC"_$P($G(^PRC(442,DA,23)),U,11),$P(^(0),U),DA)=""
    2)= K ^PRC(442,"APC"_$P($G(^PRC(442,DA,23)),U,11),$P(^(0),U),DA)
    This cross reference creates generates 3 lists - one for each codes that this field can have.
50 AMENDMENT 6;0 Multiple #442.07 442.07

  • DESCRIPTION:  
    This is an amendment to the purchase order.
  • IDENTIFIED BY:  EFFECTIVE DATE(#1)
51 SORT GROUP 23;13 VARIABLE POINTER SORT GROUP(#410.7)  WORK ORDER #(#6920)  

  • LAST EDITED:  JAN 15, 1997
  • DESCRIPTION:  
    This is the sort group for the IFCAP 410.7 SORT GROUP file or the Engineering 6920 WORK ORDER file.
52 CLASSIFICATION OF REQUEST 23;12 POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2) CLASSIFICATION OF REQUEST(#410.2)

  • LAST EDITED:  MAY 21, 1996
  • DESCRIPTION:  
    This is the Classification of Request for this order.
53 PCDO VENDOR 23;14 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • INPUT TRANSFORM:  D EN3^PRCHNPO5
  • LAST EDITED:  JUN 12, 1996
  • DESCRIPTION:  
    This vendor is for purchase card and delivery order.
  • EXECUTABLE HELP:  I '$D(PRCKAREN),$D(DA),$D(^PRC(442,DA,2,"AE")) W !?5,"Vendor cannot be edited if Purchase Order contains line items with PR card numbers."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
54 RECEIVING REQUIRED? 23;15 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 22, 1996
  • DESCRIPTION:  
    This field indicates if a purchase card purchase requires receiving.
55 PURCHASE CARD EXT. NO. 23;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<16) X
  • OUTPUT TRANSFORM:  S:$G(PRCPRTTF)=1 Y="XXXXXXXXXXXX"_$E(Y,13,16)
  • LAST EDITED:  DEC 10, 2013
  • HELP-PROMPT:  Answer must be 16 characters in length.
  • DESCRIPTION:  
    This is the purchase card number assigned to the purchase card order.
  • TECHNICAL DESCR:  The Output Transform was created to insure regular IFCAP users are not able to see Purchase Card (credit card) number via options PRCF INQ 410 or PRCF INQ 442, but, IT users and high level Fileman users are able to see the
    full associated card number.
56 PURCHASE CARD USER 23;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 10, 1996
  • HELP-PROMPT:  This is the user who entered the purchase card order
  • DESCRIPTION:  
    This is the user who entered the purchase card order.
57 APPROVE RECONCILIATION USER 23;18 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 11, 1996
  • DESCRIPTION:  
    This is the user who approves the reconciliation of a purchase card order.
58 DATE RECONCILED 23;19 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 14, 1996
  • HELP-PROMPT:  This is the reconcilliation date for this purchase order.
  • DESCRIPTION:  
    This is the reconcilliation date for this purchase order.
60 PURCHASE COST 23;21 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 24, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total dollar amount for a Simplified Purchase Card Order.
61 PURCHASE CARD HOLDER 23;22 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 30, 1996
  • DESCRIPTION:  
    This is the Purchase Card Holder for the Purchase Card Order.
  • CROSS-REFERENCE:  442^MCH^MUMPS
    1)= S ^PRC(442,"MCH",X_"~",DA)=""
    2)= K ^PRC(442,"MCH",X_"~",DA)
    This cross-reference is used by the reconciliation of purchase card orders.
62 PCDO 2237 23;23 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • LAST EDITED:  JUL 02, 1996
  • DESCRIPTION:  
    This is the 2237 attached to the purchase card/delivery order.
63 PROCESSING REQUIRED IN FISCAL 24;1 SET
  • '1' FOR NO;

  • LAST EDITED:  JUL 18, 1996
  • HELP-PROMPT:  This field indicates if fiscal needs to process receiving report.
  • DESCRIPTION:  
    This field indicates if fiscal needs to process receiving report.
64 FREE TEXT VENDOR 24;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>36!($L(X)<1) X
  • LAST EDITED:  SEP 02, 1996
  • HELP-PROMPT:  Answer must be 1-36 characters in length.
  • DESCRIPTION:  
    This is free text vendor for the Simplified Purchase Card Orders.
65 INTERFACE PACKAGE PREFIX 24;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUN 16, 1997
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    The is the interface package prefix indicator. It is set up by the package interface routine. The prefix free text should match the prefix of package file.
70 DEPARTMENT NUMBER 17;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?2N1E) X
  • LAST EDITED:  MAR 27, 1989
  • HELP-PROMPT:  Enter the LOG Department Number. ANSWER MUST BE 3 CHARACTERS IN LENGTH, the first 2 characters must be numeric.
  • DESCRIPTION:  
    This is the three character LOG Department number.
71 DOCUMENT IDENTIFIER CODE 17;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?.UN) X
  • LAST EDITED:  MAR 27, 1989
  • HELP-PROMPT:  Enter the 3 digit code for GSA/DLA code sheets
  • DESCRIPTION:  
    This is the three digit code for GSA/DLA code sheets.
72 ROUTING INDENTIFIER CODE 17;3 POINTER TO DLA/LOG CODES FILE (#441.4)
************************REQUIRED FIELD************************
DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""R""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 03, 1989
  • DESCRIPTION:  
    This is the routing identifier code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""R"""
  • EXPLANATION:  Select appropriate DLA Routing Indicator Code.
72.4 ACTIVITY ADDRESS CODE 17;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X I $D(X),'$O(^PRC(411,+^PRC(442,DA,0),5,"B",X,0)) K X
  • LAST EDITED:  APR 25, 1989
  • HELP-PROMPT:  Select the Activity Address Code from the Site Parameter File. ANSWER MUST BE 6 CHARACTERS IN LENGTH.
  • DESCRIPTION:  
    This is the six character Activity Address Code from the Site Parameters File.
  • EXECUTABLE HELP:  W !,"Select From: ",! F Z=0:0 S Z=$O(^PRC(411,+^PRC(442,DA,0),5,Z)) Q:'Z W:$D(^(Z,0)) $P(^(0),U,1),!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
73 DEPT.DESIGNATION (DEMAND CODE) 17;4 POINTER TO DLA/LOG CODES FILE (#441.4) DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 25, 1989
  • DESCRIPTION:  
    This is the Demand Code for Troop Issue or Dietetic Sale.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""D"""
  • EXPLANATION:  Enter Demand Code for Troop Issue or Dietetic Sale, or leave blank.
73.4 SPECIAL CODE 17;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1"Y") X
  • LAST EDITED:  APR 25, 1989
  • HELP-PROMPT:  Must be set to 'Y'.
  • DESCRIPTION:  
    This is the Special Code.
74 SIGNAL CODE 17;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'("ABCDJKLM"[X) X
  • LAST EDITED:  APR 24, 1989
  • HELP-PROMPT:  Enter A, B, C, D, J, K, L, or M (Enter ?? to see further explanation). ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  A = Ship to Requisitioner, Bill to Requisitioner B = Ship to Requisitioner, Bill to Supplementary Address (cc 30-35) C = Ship to Requisitioner, Bill to Address designated by Fund Code (cc 52-53) D = Ship to Requisitioner,
    NO Billing Required J = Ship to Supplementary Address, Bill to Requisitioner (cc 30-35) K = Ship to Supplementary Address, Bill to Supplementary Address (cc 45-50) L = Ship to Supplementary Address, Bill to address
    designated by Fund Code (cc 52-53) M = Ship to Supplementary Address, NO Billing Required.
75 FUND CODE 17;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  APR 28, 1989
  • HELP-PROMPT:  Facility Defined for DLA Codesheets (prints on DLA reports) ANSWER MUST BE 2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the facility defined for DLA code sheets.
76 DISTRIBUTION CODE (OPTIONAL) 17;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  DEC 10, 1987
  • HELP-PROMPT:  Optional field, user defined, can contain any 3 characters, may make DLA report more readable.
  • DESCRIPTION:  
    This is an optional, user defined, three character code which is used to make the DLA report more readable.
77 PROJECT CODE 17;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • HELP-PROMPT:  Must enter 110 for Dietetic Service or 060 for Canteen Service. Otherwise, enter 3 digit Department no., or can be left blank.
  • DESCRIPTION:  
    This is the three digit department number, the 060 code for canteen service, or the 110 code for dietetic service. This field may be left blank.
78 PRIORITY CODE 17;9 POINTER TO DLA/LOG CODES FILE (#441.4)
************************REQUIRED FIELD************************
DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 25, 1989
  • DESCRIPTION:  
    This is the priority code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""P"""
  • EXPLANATION:  Enter Required Priority Code
79 ADVICE CODE 17;10 POINTER TO DLA/LOG CODES FILE (#441.4)
************************REQUIRED FIELD************************
DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 25, 1989
  • DESCRIPTION:  
    This is the advice code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""A"""
  • EXPLANATION:  Enter applicable advice code.
80 MEDIA & STATUS CODE 17;11 POINTER TO DLA/LOG CODES FILE (#441.4)
************************REQUIRED FIELD************************
DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""M""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 25, 1989
  • DESCRIPTION:  
    This is the media & status code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""M"""
  • EXPLANATION:  Select Media & Status Code
81 *SUPPLEMENTARY ADDRESS 17;12 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?6UN) X
  • LAST EDITED:  JAN 12, 1988
  • HELP-PROMPT:  Enter the 6 character supplementary address or the requisition number for GSA/DLA code sheets.
  • DESCRIPTION:  
    This is the six character supplementary address or the requisition number for GSA/DLA code sheets.
82 *SOURCE DEVIATION CODE 17;13 SET
  • '1' FOR NOT AVAILABLE FROM MANDATORY SOURCE;
  • '2' FOR OUT OF STOCK-GSA/DEPOT;
  • '3' FOR EMERGENCY ORDER;
  • '4' FOR CANNOT MEET MINIMUM QTY;
  • '5' FOR QIR PENDING;
  • '6' FOR SHARED PROCUREMENT;
  • '7' FOR NONCONTRACT SOURCE,LOWER PRICE;

  • LAST EDITED:  JAN 13, 1988
  • HELP-PROMPT:  Enter the appropriate code for LOG code sheets.
  • DESCRIPTION:  
    This is the source deviation code, used when another vendor other than the designated item vendor is used to procure an item.
83 REASON CODE 17;14 SET
************************REQUIRED FIELD************************
  • '1' FOR REGULAR;
  • '2' FOR RESUBMISSION OF REJECTS;
  • '3' FOR CALM BYPASS;

  • LAST EDITED:  JAN 13, 1988
  • HELP-PROMPT:  Enter the appropriate code for LOG code sheets.
  • DESCRIPTION:  
    This is the reason code.
84 *PAYABLE CODE 17;15 SET
************************REQUIRED FIELD************************
  • 'A' FOR REGULAR POSTED;
  • 'B' FOR IMPREST FUND;
  • 'J' FOR DONATED;

  • LAST EDITED:  JAN 13, 1988
  • HELP-PROMPT:  Enter the appropriate code for LOG code sheets.
  • DESCRIPTION:  
    This is the payable code.
91 TOTAL AMOUNT 0;15 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
  • LAST EDITED:  FEB 15, 2005
  • HELP-PROMPT:  (On P.O.=Total Amt.-Discounts+Ship/Handling On 1358=Amt.not liquidated). Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the total amount of the purchase order.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the AMOUNT field of the AMOUNT sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
92 NET AMOUNT 0;16 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
  • LAST EDITED:  APR 29, 2013
  • HELP-PROMPT:  (on P.O.=Total Amount-discounts-prompt payment+ship/handling. 1358's=Total Obligated Amount) Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the net amount of the purchase order.
93 LIQUIDATED AMOUNT 0;17 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
  • LAST EDITED:  APR 29, 2013
  • HELP-PROMPT:  (On P.O.=Amount Received. On 1358=Amount of Liquidation made against the 1358). Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the liquidated amount.
94 ACTUAL 1358 BALANCE 8;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
  • LAST EDITED:  OCT 23, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the actual 1358 balance.
95 FISCAL 1358 BALANCE 8;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
  • LAST EDITED:  OCT 23, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the fiscal 1358 balance.
96 ESTIMATED 1358 BALANCE 8;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
  • LAST EDITED:  OCT 23, 1991
  • HELP-PROMPT:  Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the estimated 1358 balance.
96.5 CONVERTED 1358 8;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 04, 1992
  • DESCRIPTION:  
    This field flags all entries in file 442 which corresponds to a new format entry in file 424.
96.6 AUTH. AMOUNT REMAINING 8;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
  • LAST EDITED:  OCT 23, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the total amount of monies left on this obligation for authorizations.
96.7 BULLETIN SENT 8;6 SET
  • '1' FOR SENT;
  • '0' FOR CLEAR SENT;

  • LAST EDITED:  MAY 19, 1994
  • DESCRIPTION:  
    It is a bulletin sent to an Inventory user.
97 PROMPT PAY TYPE 12;15 SET
************************REQUIRED FIELD************************
  • 'A' FOR NORMAL;
  • 'C' FOR CONTRACT;
  • 'D' FOR DAIRY;
  • 'E' FOR EXEMPT;
  • 'F' FOR PROGRESS;
  • 'M' FOR MEAT;
  • 'P' FOR PRODUCE;
  • 'V' FOR PRIME VENDOR;
  • 'X' FOR MONEY MANAGEMENT EXEMPT - NORMAL;

  • LAST EDITED:  OCT 17, 1996
  • DESCRIPTION:  
    It is a type for Prompt Payment Term.
101 PAYABLE CODE 18;2 SET
  • 'A' FOR REGULAR POSTED;
  • 'B' FOR IMPREST FUNDS;
  • 'J' FOR DONATED;

  • LAST EDITED:  MAR 28, 1989
  • HELP-PROMPT:  Enter the appropriate code for generating LOG code sheets
  • DESCRIPTION:  
    This is the payable code.
102 DOCUMENT IDENTIFIER/COMMON NO. 18;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  MAY 09, 1989
  • HELP-PROMPT:  Enter the Document Identifier for LOG (Usually either the PAT number, or Requisition No., without the Fiscal Year. ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the document identifier/common number.
102.4 REQUISITION NO.(SUPPLY) 18;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'((X?3N1"-"3N1"-"2N)!(X?3N1"-"5UN)) X I $D(X) K:+X'=+^PRC(442,DA,0) X
  • LAST EDITED:  NOV 12, 1991
  • HELP-PROMPT:  Enter Station Number, dash, sequential Requisition Number, dash, then Fiscal Year. (EX. 662-123-89) or Modified PAT # i.e.(688-A123B)
  • DESCRIPTION:  
    This is the station number, dash, sequential Requisition Number, dash, Fiscal Year, as in 661-123-90.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^K
    1)= S ^PRC(442,"K",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"K",$E(X,1,30),DA)
    This X-REF is a lookup of all REQUISITION NO.(SUPPLY) entries within the PROCUREMENT & ACCOUNTING TRANSACTION file (this file).
102.5 ISSUE VOUCHER NO.(SUPPLY) 18;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?1UN1"-"4N) X I $D(X),"0123456789JK"'[$P(X,"-",1) K X
  • LAST EDITED:  APR 14, 1989
  • HELP-PROMPT:  Enter Issues Voucher Number in Supply Format (i.e., Month (1-9, 0=Oct.,J=Nov.,K=Dec.), dash, sequential number. ex. 3-0001). ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the issue voucher number for supply.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^AD^MUMPS
    1)= S Z=$F("0123456789JK",+X) S:Z Z="P"_$E("ABCDEFGHJKLM",(Z-1),(Z-1))_$P(X,"-",2),$P(^PRC(442,DA,18),"^",9)=Z,^PRC(442,"J",Z,DA)="" K Z
    2)= Q
    This X-REF converts the ISSUE VOUCHER NO.(SUPPLY) value into the ISSUE VOUCHER NO.(FISCAL), enters the converted value into the ISSUE VOUCHER NO.(FISCAL) field and sets the "J" X-REF for that field.
  • CROSS-REFERENCE:  442^I
    1)= S ^PRC(442,"I",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"I",$E(X,1,30),DA)
    This X-REF is just a lookup for the ISSUE VOUCHER NO.(SUPPLY) field.
102.6 ISSUE VOUCHER NO.(FISCAL) 18;9 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?1"P"1U4N) X I $D(X),"ABCDEFGHJKLM"'[$E(X,2,2) K X
  • LAST EDITED:  APR 14, 1989
  • HELP-PROMPT:  Enter Issues Voucher No.in Fiscal Format. (Letter 'P', followed by letter for month A through M = Oct. through Sep. (note: skips 'I'), followed by 4 digit sequential number.
  • DESCRIPTION:  
    This is the Fiscal Issue Voucher Number (#).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442^J
    1)= S ^PRC(442,"J",$E(X,1,30),DA)=""
    2)= K ^PRC(442,"J",$E(X,1,30),DA)
    This X-REF is just a lookup for the ISSUE VOUCHER NO.(FISCAL) field.
103 LOG BATCH NO.(ACQUISITIONS) 18;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<9) X
  • LAST EDITED:  APR 04, 1989
  • HELP-PROMPT:  Station No., dash (-), P.O.No. Same as .01 field. Created automatically when LOG acquisitions code sheets are created. ANSWER MUST BE 9-11 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the Station Number, dash (-), and Purchase Order Number (e.g., 688-A61234) which is generated automatically when LOG acquisitions code sheets are created.
103.5 LOG ACQ.CODE SHEETS DONE? 18;11 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 30, 1989
  • HELP-PROMPT:  Created automatically when Orders for Posted Stock, or from Government Sources are signed by Purchasing/PPM Agent.
  • DESCRIPTION:  
    This code indicates whether the LOG Aquisition Code Sheets are completed. It is automatically generated when Orders for Posted Stock or from Government Sources are signed by the Purchasing/PPM Agent.
  • CROSS-REFERENCE:  442^AE^MUMPS
    1)= K:X'="N" ^PRC(442,"AE","N",DA) I X="N" S ^PRC(442,"AE","N",DA)=""
    2)= K ^PRC(442,"AE","N",DA)
    This X-REF will be set when an order is signed off. This X-REF will indicate that the LOG code sheets need to be created for this signed off order.
104 LOG CODE SHEETS SENT BY 18;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(400)),""24""[($P(^(400),U,1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 18, 1992
  • HELP-PROMPT:  Name of PPM clerk who created and signed the LOG Acquisitions code sheets.
  • DESCRIPTION:  
    This is the PPM Clerk who created and signed the LOG Acquisitions code sheets.
  • SCREEN:  S DIC("S")="I $D(^(400)),""24""[($P(^(400),U,1))"
  • EXPLANATION:  Only PPM Clerks or Manager can create LOG code sheets.
105 LOG CODE SH. VALIDATION CODE 18;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y="/ES/"_$$DECODE^PRCHES8(D0)
  • LAST EDITED:  JAN 25, 1993
  • HELP-PROMPT:  Electronic Signature of PPM Clerk who created and signed the LOG Acquisitions Code sheets. ANSWER MUST BE 2-30 CHARACTERS IN LENGTH.
  • DESCRIPTION:  This is the Electronic Signature of the PPM Clerk who created and signed
    the LOG Acquisitions code sheets.
    UNEDITABLE
105.5 LOG CS VALIDATION VERSION 18;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 18, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The version of the validation.
105.7 LOG CS ESIG CODE 18;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  APR 12, 1993
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • DESCRIPTION:  
    The LOG code sheet Signature Block name.
106 DATE SIGNED 18;7 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 16, 1992
  • HELP-PROMPT:  Date/time LOG Acquisitions Code sheets were signed by PPM Clerk (thus marking them for transmission).
  • DESCRIPTION:  
    This is the date/time LOG Acquisitions Code sheets were signed by PPM clerk.
106.4 SUPPLY FUND ORDER OBLIGATED? 18;12 SET
  • '1' FOR YES;

  • LAST EDITED:  JUL 19, 1989
  • HELP-PROMPT:  Set automatically when PPM processes Supply Fund Orders to update the Control Point Balance (and optionally create Due-In code sheets for LOG).
  • DESCRIPTION:  
    This field is automatically set when PPM processes Supply Fund Orders to update the Control Point Balance.
107 RELEASING FACILITY NUMBER 18;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  MAY 05, 1989
  • HELP-PROMPT:  Enter only if another facility is involved. Must be filled in for source code 1 (DEPOT). ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is entered only if another facility is involved. Enter the 3 digit facility number.
  • EXECUTABLE HELP:  W !,"DEPOT NUMBERS: "
108 CASCA PROJECT NO. 18;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<3) X
  • LAST EDITED:  AUG 05, 1991
  • HELP-PROMPT:  Answer must be 3-12 characters in length.
  • DESCRIPTION:  
    The number of the CASCA Project.
109 CASCA TRANS TYPE 18;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  AUG 05, 1991
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    The type of CASCA Transaction.
110 ISMS ORDER NO. 20;0 Multiple #442.17 442.17

  • DESCRIPTION:  
    The number of the ISMS order.
111 ISMS BATCH NO. 21;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<9) X
  • LAST EDITED:  JAN 09, 1992
  • HELP-PROMPT:  Answer must be 9-11 characters in length.
  • DESCRIPTION:  
    The batch number for the ISMS order.
112 ISMS CODE SHEETS DONE? 21;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 09, 1992
  • DESCRIPTION:  
    Is the ISMS code sheet done question.
113 ISMS CODE SHEETS SENT BY 21;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 09, 1992
  • DESCRIPTION:  
    The user number of the person who sent the ISMS code sheet.
114 ISMS CODE SH. VALIDATION CODE 21;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y="/ES/"_$$DECODE^PRCHES9(D0)
  • LAST EDITED:  JAN 25, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    The code that validates the ISMS code sheet.
    UNEDITABLE
114.5 ISMS VALIDATION VERSION 21;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 18, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The version of the validation code.
114.7 ISMS ESIG CODE 21;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  APR 12, 1993
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • DESCRIPTION:  
    The signature block name of the ISMS code sheet.
115 ISMS DATE SIGNED 21;5 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 16, 1992
  • DESCRIPTION:  
    The date the ISMS code sheet was signed.
116 DO YOU WANT TO SEND THIS EDI? 12;16 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  AUG 11, 1997
  • HELP-PROMPT:  If you don't want this order transmitted, enter 'NO'
  • DESCRIPTION:  
    This field enables the user to prevent an EDI Order being generated, as would be appropriate if the order has already been verbally placed with an EDI vendor.
117 REASON NOT COMPETED 25;1 POINTER TO REASON NOT COMPETED FILE (#420.51) REASON NOT COMPETED(#420.51)

  • LAST EDITED:  AUG 09, 2005
  • DESCRIPTION:  
    This is the reason why the order was not competed.
118 NUMBER OF OFFERS 25;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 06, 2005
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of vendors submitting a bid.
119 PRE AWARD SYNOPSIS 25;3 SET
  • 'Y' FOR ORDER SUBMITTED TO FED. BUS. OPS.;
  • 'N' FOR ORDER NOT SUBMITTED TO FED. BUS. OPS.;

  • LAST EDITED:  JAN 06, 2005
  • DESCRIPTION:  
    This relates to the Federal Business Opportunities program.
120 ALTERNATIVE ADVERTISING 25;4 SET
  • 'Y' FOR ALTERNATIVE ADVERTISING USED;
  • 'N' FOR NO ATERNATIVE ADVERTISING USED;

  • LAST EDITED:  JAN 06, 2005
  • HELP-PROMPT:  Answer whether or not advertising methods were used.
  • DESCRIPTION:  
    Enter YES if the contracting officer used methods in addition to or in place of those required by FAR 5.201 (FED BIZ OPS) to advertise the requirement. Otherwise, enter NO.
121 SOLICITATION PROCEDURE 25;5 POINTER TO SOLICITATION PROCEDURE FILE (#420.52) SOLICITATION PROCEDURE(#420.52)

  • LAST EDITED:  JAN 10, 2005
  • DESCRIPTION:  
    Solicitation procedures to be used for under and over $25K orders.
122 EVALUATED PREFERENCE 25;6 POINTER TO EVALUATED PREFERENCE FILE (#420.54) EVALUATED PREFERENCE(#420.54)

  • LAST EDITED:  JAN 06, 2005
  • DESCRIPTION:  
    This is the short name for the evaluated preference.
123 FUNDING AGENCY CODE 25;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  JAN 06, 2005
  • HELP-PROMPT:  Enter a 4-character code from FIPS Publication 95, if applicable.
  • DESCRIPTION:  
    A 4-character code from FIPS Pub. 95 to indicate the funding agency. Leave blank if funding was not provided by another agency.
124 FUNDING AGENCY OFFICE CODE 25;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  MAY 18, 2005
  • HELP-PROMPT:  Enter a 6-character code from FIPS Publication 95, if applicable.
  • DESCRIPTION:  
    Agency that provided funding for the transaction, if different from VHA; otherwise leave blank.
125 MULTIYEAR 25;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 10, 2005
  • HELP-PROMPT:  Enter Y or N only.
  • DESCRIPTION:  
    Enter Y for a multiyear contract, otherwise enter N.
126 EPA DESIGNATED PRODUCT 25;10 POINTER TO EPA DESIGNATED PRODUCT FILE (#420.55) EPA DESIGNATED PRODUCT(#420.55)

  • LAST EDITED:  JAN 06, 2005
  • DESCRIPTION:  
    This is the short name used to indicate EPA Designated Products.
127 CONTRACT BUNDLING 25;11 SET
  • 'A' FOR BUNDLING WAS MISSION CRITICAL;
  • 'B' FOR BUNDLING BASED ON A-76;
  • 'C' FOR REQS. BUNDLED BY OTHER REASONS;
  • 'D' FOR NOT BUNDLED;

  • LAST EDITED:  JAN 27, 2005
  • HELP-PROMPT:  Select a type of bundling.
  • DESCRIPTION:  
    This indicates the type bundling used for the procurement action.
128 EXTENT COMPETED 25;12 POINTER TO EXTENT COMPETED FILE (#420.53) EXTENT COMPETED(#420.53)

  • LAST EDITED:  JAN 06, 2005
  • DESCRIPTION:  
    This is the description of the acquisition method, if any.
129 PERF. BASED SERVICE CONTRACT 25;13 SET
  • 'NA' FOR THIS IS NOT A SERVICE CONTRACT;
  • 'Y' FOR FOR THIS CONTRACT 50% OR MORE IS PERF. BASED;
  • 'N' FOR FOR THIS CONTRACT 50% OR LESS IS PERF. BASED;

  • LAST EDITED:  JAN 06, 2005
  • HELP-PROMPT:  Select an applicable code.
130 CLINGER COHEN 25;14 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 06, 2005
  • HELP-PROMPT:  Enter Y or N only.
  • DESCRIPTION:  
    Available only when the funding agency is the Dept. of Defense.
131 PLACE OF PERF. THIS STATION? 25;15 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 31, 2005
  • HELP-PROMPT:  Answer Yes or No if this station is the place of performance for this acquisition.
  • DESCRIPTION:  
    This field allows he user to indicate whether or not the station is the place where an acquisition has been performed.
132 PLACE OF PERFORMANCE 25;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<2) X
  • LAST EDITED:  JAN 31, 2005
  • HELP-PROMPT:  Answer must be 2-7 characters in length.
  • DESCRIPTION:  This field will not be filled in by the user. It will be populated based on the answer to field #131 (Place of perf. this station?): if 'Yes', use the station's state and zip code. If 'No', use the vendor's ordering state
    and the zip code, for example: MD20910.
133 SEND TO FPDS? 25;17 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 08, 2005
  • HELP-PROMPT:  This field is not edited directly by the user.
  • DESCRIPTION:  This field will be triggered by the population of one of the following fields: TOTAL AMOUNT or CONTRACT/BOA #. If the total amount of the is over $2500.00, or if the PO is against a contract, then the field will be
    populated without direct user intervention.
    The value stored in this field will be used to determine if an order is to be sent to the Austin Automation Center after it has been created or amended.
    WRITE AUTHORITY: ^
500.01 BILL # AR;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 13, 1987
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the bill number.
  • GROUP:  AR
501 CERTIFIED P.O. 1;20 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  SEP 09, 1992
  • HELP-PROMPT:  Enter YES if this is a Certified IFCAP Purchase Order
  • DESCRIPTION:  
    If the IFCAP Common Numbering System for this purchase order is a Certified entry answer YES.

ICR, Total: 11

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #43
  • Fee Basis
  • Gets - IFCAP station number with a call to ^PRCFSITEwith PRCF("X") ="S"Uses - the IFCAP Station Number to determine whether an obligation numberentered by the user exists in IFCAP. Done by doing$D(^PRC(442,"B",STATION NUMBER-OBLIGATION)).
    ICR #285
  • Accounts Receivable
  • ICR #390
  • Prosthetics
  • PRIMARY 2237 (.07).
    Access: Read w/Fileman

    SUPPLY STATUS (.5).
    Access: Read w/Fileman

    ICR #682
  • Controlled Substances
  • ICR #704
  • Prosthetics
  • ICR #803
  • Prosthetics
  • ICR #806
  • Accounts Receivable
  • ICR #1499
  • Engineering
  • PURCHASE ORDER NUMBER (.01).
    Access: Read w/Fileman

    FCP (1).
    Access: Read w/Fileman

    COST CENTER (2).
    Access: Read w/Fileman

    P.O. DATE (.1).
    Access: Read w/Fileman

    VENDOR (5).
    Access: Read w/Fileman

    REQUESTING SERVICE (5.2).
    Access: Read w/Fileman

    SOURCE CODE (8).
    Access: Read w/Fileman

    BBFY (26).
    Access: Read w/Fileman

    LINE ITEM NUMBER (.01).
    Access: Read w/Fileman

    BOC (3.5).
    Access: Read w/Fileman

    FEDERAL SUPPLY CLASSIFICATION (8).
    Access: Read w/Fileman

    SUBACCOUNT (.01).
    Access: Read w/Fileman

    SUBAMOUNT (1).
    Access: Read w/Fileman

    Part of Item (#40) multiple.Part of Item (#40) multiple.part of BOC (#41) multiple.
    ICR #3697
  • M DATA EXTRACTOR
  • ICR #5274
  • Fee Basis
  • ICR #6628
  • ABOVE PAR
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • PURCHASE ORDER NUMBER (.01).
    Access: Both R/W w/Fileman

    METHOD OF PROCESSING (.02).
    Access: Both R/W w/Fileman

    FCP (1).
    Access: Both R/W w/Fileman

    APPROPRIATION (1.4).
    Access: Both R/W w/Fileman

    COST CENTER (2).
    Access: Both R/W w/Fileman

    SUBACCOUNT1 (3).
    Access: Read w/Fileman

    SUBAMOUNT1 (3.4).
    Access: Read w/Fileman

    SUBACCOUNT2 (4).
    Access: Read w/Fileman

    SUBAMOUNT2 (4.4).
    Access: Read w/Fileman

    DELIVERY DATE (7).
    Access: Both R/W w/Fileman

    ESTIMATED COST (7.2).
    Access: Read w/Fileman

    PRIMARY 2237 (.07).
    Access: Both R/W w/Fileman

    EST. SHIPPING AND/OR HANDLING (13).
    Access: Both R/W w/Fileman

    LINE ITEM COUNT (15).
    Access: Read w/Fileman

    TOTAL AMOUNT (91).
    Access: Direct Global Read & w/Fileman

    NET AMOUNT (92).
    Access: Read w/Fileman

    LIQUIDATED AMOUNT (93).
    Access: Read w/Fileman

    EST. SHIPPING LINE ITEM NO. (13.1).
    Access: Both R/W w/Fileman

    SPECIAL FUND CONTROL POINT (.03).
    Access: Direct Global Read & w/Fileman

    ORIGINAL DELIVERY DATE (6.9).
    Access: Read w/Fileman

    VENDOR (5).
    Access: Both R/W w/Fileman

    REQUESTING SERVICE (5.2).
    Access: Both R/W w/Fileman

    SHIP TO (5.4).
    Access: Both R/W w/Fileman

    VERBAL PURCHASE ORDER (Y/N) (6).
    Access: Read w/Fileman

    CONFIRMATION COPY (Y/N) (6.2).
    Access: Read w/Fileman

    F.O.B. POINT (6.4).
    Access: Both R/W w/Fileman

    SOURCE CODE (8).
    Access: Both R/W w/Fileman

    PROPOSAL (8.2).
    Access: Both R/W w/Fileman

    PRIORITY OF 2237 (.06).
    Access: Read w/Fileman

    PA/PPM/AUTHORIZED USER (16).
    Access: Both R/W w/Fileman

    DELIVERY LOCATION (5.6).
    Access: Both R/W w/Fileman

    DIRECT DELIVERY PATIENT (5.3).
    Access: Read w/Fileman

    DEPOT VOUCHER NO. (.09).
    Access: Read w/Fileman

    ASTR. FOR SOURCE CODE (8.1).
    Access: Both R/W w/Fileman

    P.O. DATE (.1).
    Access: Both R/W w/Fileman

    DEBTOR (5.1).
    Access: Read w/Fileman

    EMERGENCY ORDER? (.2).
    Access: Read w/Fileman

    EXPENDABLE/NONEXPENDABLE (.3).
    Access: Read w/Fileman

    LOCAL PROCUREMENT REASON CODE (.25).
    Access: Read w/Fileman

    CERTIFIED P.O. (501).
    Access: Read w/Fileman

    LINE ITEM NUMBER (.01).
    Access: Both R/W w/Fileman

    QUANTITY (2).
    Access: Both R/W w/Fileman

    UNIT OF PURCHASE (3).
    Access: Both R/W w/Fileman

    BOC (3.5).
    Access: Both R/W w/Fileman

    ITEM MASTER FILE NO. (1.5).
    Access: Both R/W w/Fileman

    VENDOR STOCK NUMBER (9).
    Access: Both R/W w/Fileman

    EST. UNIT COST (5.5).
    Access: Read w/Fileman

    ITEM DELIVERY POINTS (3.2).
    Access: Read w/Fileman

    ACTUAL UNIT COST (5).
    Access: Both R/W w/Fileman

    2237 REFERENCE # (10).
    Access: Read w/Fileman

    INTERMEDIATE PRODUCT CODE (3.6).
    Access: Read w/Fileman

    PACKAGING MULTIPLE (3.1).
    Access: Both R/W w/Fileman

    NSN (9.5).
    Access: Both R/W w/Fileman

    MAXIMUM ORDER QTY (9.6).
    Access: Both R/W w/Fileman

    NATIONAL DRUG CODE (9.3).
    Access: Both R/W w/Fileman

    SKU (9.4).
    Access: Both R/W w/Fileman

    UNIT CONVERSION FACTOR (9.7).
    Access: Both R/W w/Fileman

    DESCRIPTION (.01).
    Access: Both R/W w/Fileman

    TOTAL COST (15).
    Access: Both R/W w/Fileman

    CONTRACT/BOA # (4).
    Access: Both R/W w/Fileman

    FEDERAL SUPPLY CLASSIFICATION (8).
    Access: Both R/W w/Fileman

    DESCRIPTION LINE COUNT (6).
    Access: Both R/W w/Fileman

    DESCRIPT. ASTR. (7).
    Access: Both R/W w/Fileman

    DISCOUNTED AMOUNT (16).
    Access: Both R/W w/Fileman

    OBLIGATED SUBACCOUNT (17).
    Access: Both R/W w/Fileman

    QUANTITY PREVIOUSLY RECEIVED (11).
    Access: Direct Global Read & w/Fileman

    EDI STATUS CODE 1 (12).
    Access: Read w/Fileman

    EDI STATUS QTY 1 (12.5).
    Access: Read w/Fileman

    EDI STATUS CODE 2 (13).
    Access: Read w/Fileman

    EDIT STATUS QTY 2 (13.5).
    Access: Read w/Fileman

    410 ITEM NUMBER (43).
    Access: Read w/Fileman

    HAZARDOUS MATERIAL (44).
    Access: Both R/W w/Fileman

    DM DOC ID (48).
    Access: Read w/Fileman

    DATE RECEIVED (.01).
    Access: Read w/Fileman

    QTY BEING RECEIVED (1).
    Access: Read w/Fileman

    AMOUNT (2).
    Access: Read w/Fileman

    DISCOUNTED AMOUNT (4).
    Access: Read w/Fileman

    RECEIVING CODE SHEET NO. (5).
    Access: Read w/Fileman

    ADJUSTED QUANTITY RECEIVED (6).
    Access: Read w/Fileman

    ADJUSTED AMOUNT (7).
    Access: Read w/Fileman

    SERIAL NO.(GSA/DLA) (30).
    Access: Read w/Fileman

    CONSUMER LEVEL (31).
    Access: Read w/Fileman

    CONSUMER LEVEL OVERRIDE (32).
    Access: Read w/Fileman

    DO NOT SUB (33).
    Access: Read w/Fileman

    DO NOT B/O (34).
    Access: Read w/Fileman

    BACKORDER CONTROL (35).
    Access: Read w/Fileman

    SUBSTITUTE CONTROL (36).
    Access: Read w/Fileman

    ACQUISITIONS CODE SHEET NO. (37).
    Access: Read w/Fileman

    GROUP SPLIT CIV (38).
    Access: Read w/Fileman

    SOURCE CODE (39).
    Access: Read w/Fileman

    DRUG TYPE CODE (40).
    Access: Both R/W w/Fileman

    FOOD GROUP (41).
    Access: Both R/W w/Fileman

    DIETETIC CONVERSION FACTOR (42).
    Access: Read w/Fileman

    SOURCE DEVIATION (39.5).
    Access: Read w/Fileman

    BACKORDER (EDI) (36.3).
    Access: Read w/Fileman

    SUBSTITUTE (EDI) (36.6).
    Access: Read w/Fileman

    LOT NUMBER (45).
    Access: Read w/Fileman

    SERIAL NUMBER (46).
    Access: Read w/Fileman

    LINE INVENTORY POINT (.01).
    Access: Direct Global Read & w/Fileman

    LINE QUANTITY (1).
    Access: Read w/Fileman

    LINE DELIVERY (2).
    Access: Read w/Fileman

    QUANTITY RECEIVED TO DATE (3).
    Access: Read w/Fileman

    DISCOUNT ITEM (.01).
    Access: Both R/W w/Fileman

    PERCENT/DOLLAR AMOUNT (1).
    Access: Both R/W w/Fileman

    DISCOUNT AMOUNT (2).
    Access: Both R/W w/Fileman

    ITEM COUNT (3).
    Access: Both R/W w/Fileman

    CONTRACT # (4).
    Access: Both R/W w/Fileman

    LINE ITEM (5).
    Access: Both R/W w/Fileman

    COMMENTS (.01).
    Access: Both R/W w/Fileman

    PROMPT PAYMENT PERCENT (.01).
    Access: Both R/W w/Fileman

    DAYS (TERM) (1).
    Access: Both R/W w/Fileman

    CONTRACT # (2).
    Access: Read w/Fileman

    ASTR. (3).
    Access: Direct Global Read & w/Fileman

    AMENDMENT (.01).
    Access: Read w/Fileman

    EFFECTIVE DATE (1).
    Access: Direct Global Read & w/Fileman

    AMOUNT CHANGED (2).
    Access: Read w/Fileman

    AUTHORITY (3).
    Access: Read w/Fileman

    CONTRACTOR REQUIRED TO SIGN? (5).
    Access: Read w/Fileman

    NUMBER OF COPIES (5.2).
    Access: Read w/Fileman

    TYPE OF COMMENTS (4).
    Access: Read w/Fileman

    ADJUSTMENT VOUCHER (13).
    Access: Read w/Fileman

    VALIDATION VERSION (7.5).
    Access: Read w/Fileman

    ESIG CODE (7.7).
    Access: Read w/Fileman

    FISCAL VALIDATION VERSION (11.5).
    Access: Read w/Fileman

    PA/PPM/AUTHORIZED BUYER (6).
    Access: Read w/Fileman

    VALIDATION CODE (7).
    Access: Read w/Fileman

    DATE SIGNED (8).
    Access: Read w/Fileman

    AMENDMENT/ADJUSTMENT STATUS (9).
    Access: Read w/Fileman

    FISCAL APPROVED BY (10).
    Access: Read w/Fileman

    FISCAL VALIDATION CODE (11).
    Access: Read w/Fileman

    FISCAL ESIG CODE (11.7).
    Access: Read w/Fileman

    FISCAL VALIDATION DATE (11.8).
    Access: Read w/Fileman

    DESCRIPTION (.01).
    Access: Read w/Fileman

    CHANGES (.01).
    Access: Read w/Fileman

    AMENDMENT TYPE (1).
    Access: Read w/Fileman

    FIELD & FILE (2).
    Access: Read w/Fileman

    SUBRECORD ENTRY (4).
    Access: Read w/Fileman

    DATE & TIME ENTERED (5).
    Access: Read w/Fileman

    USER (6).
    Access: Read w/Fileman

    OTHER FILE NUMBER (7).
    Access: Read w/Fileman

    OLD DATA VALUE (.01).
    Access: Read w/Fileman

    JUSTIFICATION (16).
    Access: Read w/Fileman

    SUPPLY STATUS (.5).
    Access: Both R/W w/Fileman

    SUPPLY STATUS ORDER (.7).
    Access: Direct Global Read & w/Fileman

    ESTIMATED ORDER? (.08).
    Access: Both R/W w/Fileman

    FISCAL STATUS ORDER (.8).
    Access: Both R/W w/Fileman

    ACTUAL 1358 BALANCE (94).
    Access: Read w/Fileman

    FISCAL 1358 BALANCE (95).
    Access: Read w/Fileman

    ESTIMATED 1358 BALANCE (96).
    Access: Read w/Fileman

    AUTH. AMOUNT REMAINING (96.6).
    Access: Read w/Fileman

    BULLETIN SENT (96.7).
    Access: Read w/Fileman

    CONVERTED 1358 (96.5).
    Access: Read w/Fileman

    AMOUNT (.01).
    Access: Both R/W w/Fileman

    TYPE CODE (1).
    Access: Both R/W w/Fileman

    CONTRACT # (2).
    Access: Both R/W w/Fileman

    COMP. STATUS/BUSINESS (1.1).
    Access: Both R/W w/Fileman

    PREF. PROGRAM (1.2).
    Access: Both R/W w/Fileman

    BREAKOUT CODE (.01).
    Access: Both R/W w/Fileman

    TT/DATE/REF (.01).
    Access: Read w/Fileman

    OBLIGATED BY (1).
    Access: Read w/Fileman

    TRANSACTION AMOUNT (2).
    Access: Read w/Fileman

    CODE SHEET NUMBER (3).
    Access: Read w/Fileman

    VALIDATION CODE (4).
    Access: Read w/Fileman

    DATE SIGNED (5).
    Access: Read w/Fileman

    VALIDATION VERSION (4.5).
    Access: Read w/Fileman

    ESIG CODE (4.7).
    Access: Read w/Fileman

    GECS IEN (6).
    Access: Read w/Fileman

    AMENDMENT NUMBER (7).
    Access: Read w/Fileman

    1358 ADJUSTMENT (8).
    Access: Read w/Fileman

    OBLIGATION PROCESSING DATE (9).
    Access: Read w/Fileman

    ACCOUNTING PERIOD (10).
    Access: Read w/Fileman

    DATE (.01).
    Access: Direct Global Read & w/Fileman

    SUBACCOUNT1 (1).
    Access: Read w/Fileman

    SUBAMOUNT1 (2).
    Access: Read w/Fileman

    SUBACCOUNT2 (3).
    Access: Read w/Fileman

    SUBAMOUNT2 (4).
    Access: Read w/Fileman

    PROCESSED BY FISCAL? (5).
    Access: Read w/Fileman

    WAREHOUSE APPROVED BY (6).
    Access: Read w/Fileman

    VALIDATION CODE (7).
    Access: Read w/Fileman

    FINAL (8).
    Access: Direct Global Read & w/Fileman

    OVERAGE (9).
    Access: Read w/Fileman

    WAREHOUSE DATE/TIME SIGNED (10).
    Access: Read w/Fileman

    TOTAL AMOUNT (11).
    Access: Read w/Fileman

    DISCOUNT PERCENT/DAYS (12).
    Access: Read w/Fileman

    LINECOUNT (13).
    Access: Read w/Fileman

    RECEIVED BY (PPM OR DELV.PT.) (14).
    Access: Read w/Fileman

    RECEIVED BY VALIDATION CODE (15).
    Access: Direct Global Read & w/Fileman

    DATE RECEIVED (AT DELV.PT.) (16).
    Access: Both R/W w/Fileman

    RECEIVED BY (AT DELIVERY PT.) (17).
    Access: Both R/W w/Fileman

    RECV.REPORT TRANS.TO AUSTIN (18).
    Access: Read w/Fileman

    FMS BATCH SEQUENCE NUMBER (22).
    Access: Read w/Fileman

    ADJUSTMENT/AMENDMENT NUMBER (24).
    Access: Read w/Fileman

    LOG BATCH NO.(RECEIVING) (19).
    Access: Read w/Fileman

    DIETETIC COST PERIOD (20).
    Access: Read w/Fileman

    LOG CODE SHEETS SENT BY (19.3).
    Access: Read w/Fileman

    LOG CODE SH. VALIDATION CODE (19.4).
    Access: Read w/Fileman

    DATE SIGNED (19.5).
    Access: Read w/Fileman

    LOG RR CODE SHEETS DONE? (19.2).
    Access: Read w/Fileman

    RECV.CODE SHEET NO.(DEPOT) (19.6).
    Access: Read w/Fileman

    SCHEDULED DELIVERY DATE (.05).
    Access: Read w/Fileman

    VALIDATION VERSION (7.5).
    Access: Read w/Fileman

    ESIG CODE (7.7).
    Access: Read w/Fileman

    RCVD BY VALIDATION VERSION (15.5).
    Access: Read w/Fileman

    RCVD BY ESIG CODE (15.7).
    Access: Read w/Fileman

    LCS VALIDATION VERSION (19.7).
    Access: Read w/Fileman

    LCS ESIG CODE (19.8).
    Access: Read w/Fileman

    RCVD BY VALIDATION DATE/TIME (15.8).
    Access: Read w/Fileman

    ORIGINAL PARTIAL (21).
    Access: Read w/Fileman

    ACCOUNTING PERIOD MONTH/YEAR (23).
    Access: Read w/Fileman

    PO PRINTED TIME (18).
    Access: Read w/Fileman

    VALIDATION CODE (16.5).
    Access: Read w/Fileman

    VALIDATION DATE/TIME (17).
    Access: Read w/Fileman

    AGENT ASSIGNED P.O. (19).
    Access: Both R/W w/Fileman

    DATE P.O. ASSIGNED (19.2).
    Access: Both R/W w/Fileman

    INVOICE ADDRESS (.04).
    Access: Read w/Fileman

    GOV.T B/L NO. (13.2).
    Access: Read w/Fileman

    SHIP VIA (13.3).
    Access: Read w/Fileman

    GBL P.O.NUMBER (13.4).
    Access: Read w/Fileman

    EDI MESSAGE NO. (18.5).
    Access: Read w/Fileman

    VALIDATION VERSION (16.7).
    Access: Read w/Fileman

    ESIG CODE (16.8).
    Access: Read w/Fileman

    NEED SPECIAL HANDLING? (18.6).
    Access: Read w/Fileman

    TYPE OF SPECIAL HANDLING (18.7).
    Access: Direct Global Read & w/Fileman

    PROMPT PAY TYPE (97).
    Access: Read w/Fileman

    DO YOU WANT TO SEND THIS EDI? (116).
    Access: Both R/W w/Fileman

    2237 REFERENCE NUMBER (.01).
    Access: Direct Global Read & w/Fileman

    ACCOUNTABLE OFFICER (2).
    Access: Read w/Fileman

    VALIDATION CODE (3).
    Access: Read w/Fileman

    DATE SIGNED (4).
    Access: Read w/Fileman

    PURCHASING AGENT (6).
    Access: Read w/Fileman

    DATE ASSIGNED TO PA (7).
    Access: Read w/Fileman

    CURRENT STATUS (1.5).
    Access: Read w/Fileman

    CP FUND STATUS (8).
    Access: Read w/Fileman

    TYPE OF REQUEST (9).
    Access: Read w/Fileman

    SOURCE OF REQUEST (10).
    Access: Read w/Fileman

    INVENTORY/DISTRIBUTION POINT (11).
    Access: Direct Global Read & w/Fileman

    ESIG CODE (3.7).
    Access: Read w/Fileman

    VALIDATION VERSION (3.5).
    Access: Read w/Fileman

    PURCHASE METHOD (.01).
    Access: Read w/Fileman

    ADMINISTRATIVE CERTIFICATIONS (.01).
    Access: Read w/Fileman

    DESCRIPTION LINE COUNT (1).
    Access: Read w/Fileman

    REMARKS (.01).
    Access: Read w/Fileman

    DEPARTMENT NUMBER (70).
    Access: Both R/W w/Fileman

    DOCUMENT IDENTIFIER CODE (71).
    Access: Read w/Fileman

    ROUTING INDENTIFIER CODE (72).
    Access: Read w/Fileman

    DEPT.DESIGNATION (DEMAND CODE) (73).
    Access: Read w/Fileman

    SIGNAL CODE (74).
    Access: Read w/Fileman

    FUND CODE (75).
    Access: Read w/Fileman

    DISTRIBUTION CODE (OPTIONAL) (76).
    Access: Read w/Fileman

    PROJECT CODE (77).
    Access: Read w/Fileman

    PRIORITY CODE (78).
    Access: Read w/Fileman

    ADVICE CODE (79).
    Access: Read w/Fileman

    MEDIA & STATUS CODE (80).
    Access: Read w/Fileman

    REASON CODE (83).
    Access: Read w/Fileman

    ACTIVITY ADDRESS CODE (72.4).
    Access: Read w/Fileman

    SPECIAL CODE (73.4).
    Access: Read w/Fileman

    RELEASING FACILITY NUMBER (107).
    Access: Read w/Fileman

    PAYABLE CODE (101).
    Access: Read w/Fileman

    DOCUMENT IDENTIFIER/COMMON NO. (102).
    Access: Both R/W w/Fileman

    LOG BATCH NO.(ACQUISITIONS) (103).
    Access: Read w/Fileman

    LOG CODE SHEETS SENT BY (104).
    Access: Read w/Fileman

    LOG CODE SH. VALIDATION CODE (105).
    Access: Read w/Fileman

    DATE SIGNED (106).
    Access: Read w/Fileman

    ISSUE VOUCHER NO.(SUPPLY) (102.5).
    Access: Read w/Fileman

    ISSUE VOUCHER NO.(FISCAL) (102.6).
    Access: Read w/Fileman

    REQUISITION NO.(SUPPLY) (102.4).
    Access: Read w/Fileman

    LOG ACQ.CODE SHEETS DONE? (103.5).
    Access: Both R/W w/Fileman

    SUPPLY FUND ORDER OBLIGATED? (106.4).
    Access: Both R/W w/Fileman

    CASCA PROJECT NO. (108).
    Access: Read w/Fileman

    CASCA TRANS TYPE (109).
    Access: Read w/Fileman

    LOG CS VALIDATION VERSION (105.5).
    Access: Read w/Fileman

    LOG CS ESIG CODE (105.7).
    Access: Read w/Fileman

    DELIVERY LOCATIONS/DATES (.01).
    Access: Read w/Fileman

    ISMS ORDER NO. (.01).
    Access: Read w/Fileman

    ORDER HEADER (1).
    Access: Read w/Fileman

    ISMS BATCH NO. (111).
    Access: Read w/Fileman

    ISMS CODE SHEETS DONE? (112).
    Access: Read w/Fileman

    ISMS CODE SHEETS SENT BY (113).
    Access: Read w/Fileman

    ISMS CODE SH. VALIDATION CODE (114).
    Access: Read w/Fileman

    ISMS DATE SIGNED (115).
    Access: Read w/Fileman

    ISMS VALIDATION VERSION (114.5).
    Access: Read w/Fileman

    ISMS ESIG CODE (114.7).
    Access: Read w/Fileman

    RFQ NBR (42).
    Access: Read w/Fileman

    SUBACCOUNT (.01).
    Access: Read w/Fileman

    SUBAMOUNT (1).
    Access: Read w/Fileman

    FMS LINE (2).
    Access: Direct Global Read & w/Fileman

    EST. SHIPPING BOC (13.05).
    Access: Both R/W w/Fileman

    BBFY (26).
    Access: Both R/W w/Fileman

    OLD PO RECORD (27).
    Access: Read w/Fileman

    NEW PO RECORD (28).
    Access: Read w/Fileman

    END DATE FOR SERVICE ORDER (29).
    Access: Read w/Fileman

    AUTO ACCRUE (30).
    Access: Read w/Fileman

    SUBSTATION (31).
    Access: Both R/W w/Fileman

    PURCHASE CARD NUMBER (46).
    Access: Both R/W w/Fileman

    DISPUTED (44).
    Access: Read w/Fileman

    DELIVERY ORDER (47).
    Access: Read w/Fileman

    TYPE OF ORDER (48).
    Access: Both R/W w/Fileman

    CLASSIFICATION OF REQUEST (52).
    Access: Both R/W w/Fileman

    SORT GROUP (51).
    Access: Both R/W w/Fileman

    PCDO VENDOR (53).
    Access: Both R/W w/Fileman

    RECEIVING REQUIRED? (54).
    Access: Both R/W w/Fileman

    PURCHASE CARD EXT. NO. (55).
    Access: Both R/W w/Fileman

    PURCHASE CARD USER (56).
    Access: Both R/W w/Fileman

    APPROVE RECONCILIATION USER (57).
    Access: Read w/Fileman

    DATE RECONCILED (58).
    Access: Read w/Fileman

    PURCHASE COST (60).
    Access: Read w/Fileman

    PURCHASE CARD HOLDER (61).
    Access: Both R/W w/Fileman

    PCDO 2237 (62).
    Access: Both R/W w/Fileman

    PROCESSING REQUIRED IN FISCAL (63).
    Access: Both R/W w/Fileman

    FREE TEXT VENDOR (64).
    Access: Direct Global Read & w/Fileman

    INTERFACE PACKAGE PREFIX (65).
    Access: Read w/Fileman

    REASON NOT COMPETED (117).
    Access: Both R/W w/Fileman

    NUMBER OF OFFERS (118).
    Access: Both R/W w/Fileman

    PRE AWARD SYNOPSIS (119).
    Access: Read w/Fileman

    ALTERNATE ADVERTISING (120).
    Access: Read w/Fileman

    SOLICITATION PROCEDURE (121).
    Access: Both R/W w/Fileman

    EVALUATED PREFERENCE (122).
    Access: Both R/W w/Fileman

    FUNDING AGENCY CODE (123).
    Access: Both R/W w/Fileman

    FUNDING AGENCY OFFICE CODE (124).
    Access: Both R/W w/Fileman

    MULTIYEAR (125).
    Access: Both R/W w/Fileman

    EPA DESIGNATED PRODUCT (126).
    Access: Read w/Fileman

    CONTRACT BUNDLING (127).
    Access: Read w/Fileman

    EXTENT COMPETED (128).
    Access: Both R/W w/Fileman

    PERF. BASED SERVICE (129).
    Access: Both R/W w/Fileman

    CLINGER COHEN (130).
    Access: Both R/W w/Fileman

    PLACE OF PERF. THIS STATION? (131).
    Access: Read w/Fileman

    PLACE OF PERFORMANCE (132).
    Access: Read w/Fileman

    SEND TO FPDS? (133).
    Access: Both R/W w/Fileman

    BILL # (500.01).
    Access: Read w/Fileman

    File 442.041 "B" cross-reference Knowing the PurchaseOrderentry IEN and the BOC, theBOC entry in the BOC multiplecan be found or a check canbe made to see if the BOC isassociated with the PurchaseOrder.File 442.01 "AC" cross-reference Knowing the IEN ofthePurchase Order and theContract/BOA #, one canfind the LINE ITEMs thatreference this Contract/BOA # on this PurchaseOrder.File 442 'C' cross reference Used to look up by theCommon Numbering Seriesportion of the completePurchase Order Number -the part of the PO numberfollowing the Site NumberFile 442 'E' cross-reference Used to look up byControlPoint Number - not the nameFile 442 'F' cross-reference Used to look up byMETHODOF PROCESSINGFile 442.08 "AC" cross-reference Provides anon-lookuplist of all PARTIALNUMBERS for receiptswithin each ITEM of aPurchase OrderFile 442 "B" cross-reference Look up by PURCHASEORDER NUMBERFile 442.01 "AE" cross-reference A non-lookup listofITEM MASTER file entrieswithin all ITEMs in aPurchase Order

    External References

    Name Field # of Occurrence
    ^%DT .1+1, 6.9+1, 7+1, 17+1, 18+1, 19.2+1, 26+1, 29+1, 58+1, 106+1
    , 115+1
    NOW^%DTC 16.5(XREF 1n1.1)
    ^DIC .02+1, .04+1, .04(HELP ), .07+1, .5+1, 1(HELP ), 2(HELP ), 5.4+1, 5.4(HELP ), 8+1
    13.05(HELP ), 16+1, 31+1, 46+1, 72+1, 73+1, 78+1, 79+1, 80+1, 104+1
    ^DICR .25(XREF 1n1.4), 13(XREF 1n1.4), 13(XREF 1n2.4), 16.5(XREF 1n1.4), 16.5(XREF 1n2.4)
    $$DECODE^PRCHES5 16.5OT+1
    $$DECODE^PRCHES8 105OT+1
    $$DECODE^PRCHES9 114OT+1
    EN1^PRCHNPO5 1+1
    EN2^PRCHNPO5 2+1
    EN3^PRCHNPO5 5+1, 53+1
    EN4^PRCHNPO5 13+1
    EN1^PRCHNPO6 .1+1
    EN8^PRCHNPO6 .01+1
    EN88^PRCHNPO7 13.05+1
    ENXK^PRCHSTAT .5(XREF 1K)
    ENXS^PRCHSTAT .5(XREF 1S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .25(XREF 1n1.4), 13(XREF 1n1.4), 13(XREF 1n2.4), 16.5(XREF 1n1.4), 16.5(XREF 1n2.4)
    ^DD(442 .25(XREF 1S), 13(XREF 1S), 13(XREF 1K), 16.5(XREF 1S), 16.5(XREF 1K)
    ^PRC(411 - [#411] .01+1, .04OT+1, 5.4OT+1, 72.4+1, 72.4(HELP )
    ^PRC(420 - [#420] 1(XREF 2S), 2+1, 2(HELP )
    ^PRC(440.5 - [#440.5] 46OT+1
    ^PRC(442 - [#442] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .04+1, .04OT+1, .04(HELP ), .09(XREF 1S)
    .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), .25(XREF 1S), .25(XREF 1n1.4), .5(XREF 51S), .5(XREF 51K), .5(XREF 55S), .5(XREF 55K), .7(XREF 1S)
    .7(XREF 1K), .7(XREF 10S), .7(XREF 10K), .8(XREF 1S), .8(XREF 1K), 1+1*, 1(HELP ), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S)
    1(XREF 2K), 2+1, 2(HELP ), 5(HELP ), 5(XREF 1S), 5(XREF 1K), 5.4+1, 5.4OT+1, 5.4(HELP ), 7+1
    , 13+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.1), 13(XREF 1n2.4), 13.05+1, 13.05(HELP ), 16.5(XREF 1S)
    16.5(XREF 1n1.4), 16.5(XREF 1K), 16.5(XREF 1n2.4), 21+1, 22+1, 23+1, 46(XREF 2S), 46(XREF 2K), 48(XREF 1S), 48(XREF 1K)
    53(HELP ), 61(XREF 5S), 61(XREF 5K), 72.4+1, 72.4(HELP ), 102.4+1, 102.4(XREF 1S), 102.4(XREF 1K), 102.5(XREF 1S), 102.5(XREF 2S)
    102.5(XREF 2K), 102.6(XREF 1S), 102.6(XREF 1K), 103.5(XREF 1S), 103.5(XREF 1K)
    ^PRC(443.8 - [#443.8] .25(XREF 1n1.1)
    ^PRCD(420.1 - [#420.1] 13.05+1
    ^PRCD(442.3 - [#442.3] IDZ.02+1, .5(XREF 51S), .5(XREF 55S)
    ^PRCD(442.5 - [#442.5] IDZ.02+1

    Naked Globals

    Name Field # of Occurrence
    ^( 72.4(HELP )
    ^(0 IDZ.02+1, IDZ.03+1, .04OT+1, .25(XREF 1n1.1), 1(XREF 2S), 5.4OT+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K)
    13(XREF 1n2.1), 13(XREF 1n2.4), 48(XREF 1S), 48(XREF 1K), 72.4(HELP )
    ^(1 IDZ.01+1, .25(XREF 1S), .25(XREF 1n1.4), 1+1, 7+1, 13+1, 21+1, 22+1
    ^(12 16.5(XREF 1S), 16.5(XREF 1n1.4), 16.5(XREF 1K), 16.5(XREF 1n2.4)
    ^(17 1(XREF 2K)
    ^(7 IDZ.02+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % 13(XREF 1n1.4), 13(XREF 1n2.4), 16.5(XREF 1n1.1), 16.5(XREF 1n1.4), 16.5(XREF 1n2.4)
    >> %DT .1+1*, 6.9+1*, 7+1*, 17+1*, 18+1*, 19.2+1*, 26+1*, 29+1*, 58+1*, 106+1*
    , 115+1*
    %H 16.5(XREF 1n1.1)
    %I 16.5(XREF 1n1.1)
    A .5(XREF 51S), .5(XREF 55S)
    >> D .04(HELP ), 1(HELP ), 2(HELP ), 5.4(HELP ), 13.05(HELP )
    >> D0 .04+1, .04OT+1, .04(HELP ), .25(XREF 1S), 5.4+1, 5.4OT+1, 5.4(HELP ), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K)
    13(XREF 1n2.1), 13.05+1, 13.05(HELP ), 16.5OT+1, 16.5(XREF 1S), 16.5(XREF 1K), 21+1, 22+1, 23+1, 105OT+1
    , 114OT+1
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K)
    .25(XREF 1S), .5(XREF 51S), .5(XREF 51K), .5(XREF 55S), .5(XREF 55K), .7(XREF 1S), .7(XREF 1K), .7(XREF 10S), .7(XREF 10K), .8(XREF 1S)
    .8(XREF 1K), 1+1, 1(HELP ), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2+1, 2(HELP ), 5(HELP )
    5(XREF 1S), 5(XREF 1K), 7+1, 13+1, 13(XREF 1S), 13(XREF 1K), 16.5(XREF 1S), 16.5(XREF 1K), 46(XREF 2S), 46(XREF 2K)
    48(XREF 1S), 48(XREF 1K), 53(HELP ), 61(XREF 5S), 61(XREF 5K), 72.4+1, 72.4(HELP ), 102.4+1, 102.4(XREF 1S), 102.4(XREF 1K)
    102.5(XREF 1S), 102.5(XREF 2S), 102.5(XREF 2K), 102.6(XREF 1S), 102.6(XREF 1K), 103.5(XREF 1S), 103.5(XREF 1K)
    DIC IDZ.02+1, .02+1!*, .04+1*!, .04(HELP ), .07+1!*, .5+1!*, 1(HELP ), 2(HELP ), 5.4+1*!, 5.4(HELP )
    , 8+1!*, 13.05(HELP ), 16+1!*, 31+1!*, 46+1!*, 72+1!*, 73+1!*, 78+1!*, 79+1!*, 80+1!*
    , 104+1!*
    DIC("S" .02+1*, .02SCR+1*, .07+1*, .07SCR+1*, .5+1*, .5SCR+1*, 1(HELP ), 8+1*, 8SCR+1*, 16+1*
    , 16SCR+1*, 31+1*, 31SCR+1*, 46+1*, 46SCR+1*, 51VPSCR1+1*, 72+1*, 72SCR+1*, 73+1*, 73SCR+1*
    , 78+1*, 78SCR+1*, 79+1*, 79SCR+1*, 80+1*, 80SCR+1*, 104+1*, 104SCR+1*
    DIC(0 .04+1*, .04(HELP ), 1(HELP ), 2(HELP ), 5.4+1*, 5.4(HELP ), 13.05(HELP )
    >> DIE .02+1, .04(HELP ), .07+1, .5+1, 1(HELP ), 2(HELP ), 5.4(HELP ), 8+1, 16+1, 31+1
    , 46+1, 72+1, 73+1, 78+1, 79+1, 80+1, 104+1
    >> DIG .25(XREF 1n1.4), 13(XREF 1n1.4), 13(XREF 1n2.4), 16.5(XREF 1n1.4), 16.5(XREF 1n2.4)
    >> DIH .25(XREF 1n1.4), 13(XREF 1n1.4), 13(XREF 1n2.4), 16.5(XREF 1n1.4), 16.5(XREF 1n2.4)
    >> DIU .25(XREF 1S), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 16.5(XREF 1S), 16.5(XREF 1n1.4), 16.5(XREF 1K), 16.5(XREF 1n2.4)
    DIV .25(XREF 1S), .25(XREF 1n1.1), .25(XREF 1n1.4), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.1), 13(XREF 1n2.4), 16.5(XREF 1S)
    16.5(XREF 1n1.1), 16.5(XREF 1n1.4), 16.5(XREF 1K), 16.5(XREF 1n2.4)
    DIV(0 .25(XREF 1S), .25(XREF 1n1.4), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 16.5(XREF 1S), 16.5(XREF 1n1.4), 16.5(XREF 1K), 16.5(XREF 1n2.4)
    >> I 23+1*
    >> PRC("APP" 1+1
    >> PRC("FY" 1+1*
    >> PRC("SITE" 1+1, 1(HELP ), 2+1, 2(HELP )
    >> PRCAREF .01+1, .01(HELP )
    >> PRCFA(1358 .01+1
    >> PRCHDELV .02+1, .02SCR+1
    >> PRCHNRQ .02+1, .02SCR+1, 8+1, 8SCR+1
    >> PRCHPC 8+1, 8SCR+1
    >> PRCHPUSH 8+1, 8SCR+1
    >> PRCKAREN 53(HELP )
    >> PRCPRTTF 46OT+1, 55OT+1
    U IDZ.01+1, IDZ.02+1, IDZ.03+1, .04+1, .04OT+1, .04(HELP ), .25(XREF 1S), .25(XREF 1n1.1), .25(XREF 1n1.4), .5(XREF 51S)
    .5(XREF 51K), .5(XREF 55S), .5(XREF 55K), .7(XREF 10S), .7(XREF 10K), 1+1, 1(XREF 2S), 1(XREF 2K), 5.4+1, 5.4OT+1
    5.4(HELP ), 7+1, 13+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.1), 13(XREF 1n2.4), 16.5(XREF 1S)
    16.5(XREF 1n1.4), 16.5(XREF 1K), 16.5(XREF 1n2.4), 21+1, 22+1, 46OT+1, 48(XREF 1S), 48(XREF 1K), 72.4(HELP )
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .04+1!*, .04(HELP )
    , .07+1*!, .09+1!, .09(XREF 1S), .09(XREF 1K), .1+1*!, .1(XREF 1S), .1(XREF 1K), .25(XREF 1S), .25(XREF 1n1.1), .25(XREF 1n1.4)
    , .5+1*!, .5(XREF 51S), .5(XREF 55S), .7+1!, .7(XREF 1S), .7(XREF 1K), .7(XREF 10S), .7(XREF 10K), .8+1!, .8(XREF 1S)
    .8(XREF 1K), 1+1!, 1(HELP ), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1.4+1!, 2+1!, 2(HELP ), 3.4+1*!
    , 4.4+1*!, 5(XREF 1S), 5(XREF 1K), 5.4+1!*, 5.4(HELP ), 5.6+1!, 6.9+1*!, 7+1*!, 7.2+1*!, 8+1*!
    , 8.1+1!, 8.2+1!, 13+1*!, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.1), 13(XREF 1n2.4), 13.05+1!
    13.05(HELP ), 13.1+1!, 13.2+1!, 13.3+1!, 13.4+1!, 15+1!, 16+1*!, 16.5+1!, 16.5(XREF 1S), 16.5(XREF 1n1.1)
    16.5(XREF 1n1.4), 16.5(XREF 1K), 16.5(XREF 1n2.4), 16.7+1!, 16.8+1!, 17+1*!, 18+1*!, 18.5+1!, 19.2+1*!, 21+1*
    , 22+1*, 23+1*, 26+1*!, 29+1*!, 31+1*!, 42+1!, 46+1*!, 46(XREF 2S), 46(XREF 2K), 55+1!
    , 58+1*!, 60+1*!, 61(XREF 5S), 61(XREF 5K), 64+1!, 65+1!, 70+1!, 71+1!, 72+1*!, 72.4+1!
    , 73+1*!, 73.4+1!, 74+1!, 75+1!, 76+1!, 77+1!, 78+1*!, 79+1*!, 80+1*!, 81+1!
    , 91+1*!, 92+1*!, 93+1*!, 94+1*!, 95+1*!, 96+1*!, 96.6+1*!, 102+1!, 102.4+1!, 102.4(XREF 1S)
    102.4(XREF 1K), 102.5+1!, 102.5(XREF 1S), 102.5(XREF 2S), 102.5(XREF 2K), 102.6+1!, 102.6(XREF 1S), 102.6(XREF 1K), 103+1!, 103.5(XREF 1S)
    , 104+1*!, 105+1!, 105.5+1!, 105.7+1!, 106+1*!, 107+1!, 108+1!, 109+1!, 111+1!, 114+1!
    , 114.5+1!, 114.7+1!, 115+1*!, 118+1!, 123+1!, 124+1!, 132+1!, 500.01+1!
    Y .02+1, .04+1, .04OT+1*, .07+1, .1+1, .25(XREF 1S), .5+1, 5.4+1, 5.4OT+1*, 6.9+1
    , 7+1, 8+1, 13OT+1*, 13(XREF 1S), 13(XREF 1K), 16+1, 16.5OT+1*, 16.5(XREF 1S), 16.5(XREF 1K), 17+1
    , 18+1, 19.2+1, 26+1, 29+1, 31+1, 46+1, 46OT+1*, 55OT+1*, 58+1, 72+1
    , 73+1, 78+1, 79+1, 80+1, 104+1, 105OT+1*, 106+1, 114OT+1*, 115+1
    Y(0 .04OT+1*, 5.4OT+1*, 13OT+1*, 16.5OT+1*, 46OT+1*, 55OT+1*, 105OT+1*, 114OT+1*
    Y(1 .25(XREF 1S), .25(XREF 1n1.1), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 1n2.1), 16.5(XREF 1S), 16.5(XREF 1K)
    Y(2 .25(XREF 1n1.1)
    Y(3 .25(XREF 1n1.1)
    Y(442 21+1*, 22+1*
    Z .01+1*, 1(XREF 2S), 72.4(HELP ), 102.5(XREF 1S)
    Z0 .04+1*!, .04OT+1*!, .04(HELP ), 1(HELP ), 2+1*!, 2(HELP ), 5.4+1*!, 5.4OT+1*!, 5.4(HELP ), 13.05+1*!
    13.05(HELP )
    Z1 1(HELP ), 7+1*!
    Z2 7+1*!
    ZD .04(HELP ), 1(HELP ), 2(HELP ), 5.4(HELP ), 13.05(HELP )
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All