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: 569

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

Package Total Routines
IFCAP 118 PRC5CON1    PRCB1GE1    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)[27, 28]    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)[5, 53]    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)[27, 28]    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)[3, 4, #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)[72, 73, 78, 79, 80, #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)[.07, 62, #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)[16, 19, 56, 57, 61, 104, 113, #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:  DEC 03, 2019
  • HELP-PROMPT:  Please note that only Vendors with a Federal Source Code are selectable. You may also add a new Vendor.
  • 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.
  • LAST EDITED:  JUN 01, 1989
  • HELP-PROMPT:  If there are multiple delivery locations and/or dates on the original request, the information is brought over into this field during P.O.entry/edit, from the request.
  • DESCRIPTION:  
    Delivery locations and dates for P.O./Req.
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.
  • DESCRIPTION:  
    General comments about P.O./Req.
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.
  • LAST EDITED:  SEP 21, 1987
  • DESCRIPTION:  
    Remarks about P.O./Req.
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: Direct Global Read & R/W w/Fileman

    METHOD OF PROCESSING (.02).
    Access: Direct Global Read & R/W w/Fileman

    FCP (1).
    Access: Direct Global Read & R/W w/Fileman

    APPROPRIATION (1.4).
    Access: Direct Global Read & 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: Direct Global Read & R/W w/Fileman

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

    PRIMARY 2237 (.07).
    Access: Direct Global Read & R/W w/Fileman

    EST. SHIPPING AND/OR HANDLING (13).
    Access: Direct Global Read & R/W w/Fileman

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

    TOTAL AMOUNT (91).
    Access: Direct Global Read & R/W 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: Direct Global Read & R/W w/Fileman

    REQUESTING SERVICE (5.2).
    Access: Direct Global Read & R/W w/Fileman

    SHIP TO (5.4).
    Access: Direct Global Read & 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: Direct Global Read & 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: Direct Global Read & R/W w/Fileman

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

    DIRECT DELIVERY PATIENT (5.3).
    Access: Direct Global 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: Direct Global Read & 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: Direct Global Read & R/W w/Fileman

    UNIT OF PURCHASE (3).
    Access: Direct Global Read & R/W w/Fileman

    BOC (3.5).
    Access: Direct Global Read & R/W w/Fileman

    ITEM MASTER FILE NO. (1.5).
    Access: Direct Global Read & R/W w/Fileman

    VENDOR STOCK NUMBER (9).
    Access: Direct Global Read & 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: Direct Global Read & 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: Direct Global Read & R/W w/Fileman

    NSN (9.5).
    Access: Direct Global Read & 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: Read w/Fileman

    TOTAL COST (15).
    Access: Direct Global Read & R/W w/Fileman

    CONTRACT/BOA # (4).
    Access: Direct Global Read & 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: Direct Global Read & R/W w/Fileman

    QTY BEING RECEIVED (1).
    Access: Direct Global Read & R/W 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

    PARTIAL NUMBER (3).
    Access: Direct Global Read & R/W 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: Direct Global Read & R/W w/Fileman

    PERCENT/DOLLAR AMOUNT (1).
    Access: Direct Global Read & R/W w/Fileman

    DISCOUNT AMOUNT (2).
    Access: Direct Global Read & 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: Direct Global Read & R/W w/Fileman

    PROMPT PAYMENT PERCENT (.01).
    Access: Direct Global Read & R/W w/Fileman

    DAYS (TERM) (1).
    Access: Direct Global Read & R/W w/Fileman

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

    ASTR. (3).
    Access: Both R/W 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: Direct Global Read & 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: Both R/W 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: Direct Global Read & 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: Direct Global Read & 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: Direct Global Read & R/W w/Fileman

    PURCHASE CARD NUMBER (46).
    Access: Direct Global Read & R/W w/Fileman

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

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

    TYPE OF ORDER (48).
    Access: Direct Global Read & R/W w/Fileman

    CLASSIFICATION OF REQUEST (52).
    Access: Direct Global Read & 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: Direct Global Read & 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: Both R/W w/Fileman

    PURCHASE COST (60).
    Access: Both R/W w/Fileman

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

    PCDO 2237 (62).
    Access: Direct Global Read & 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: Both R/W 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