PRCHITM5 ;OI&T/LKG - FILING DATA FROM NIF ;5/25/17 16:10
Source file <PRCHITM5.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
FILE(PRCTRANNBR,PRCLINE,PRCITMC) | ;
|
|
ITEMFILE(PRCITMIEN,PRCVEND,PRCADDED) | ;
|
|
GETVEN(PRCVEN) | ;
|
|
GETITEM(PRCIMF,PRCADD) | ;
|
|
DT2FMD(PRCDATE) | ;
; Input date in YYMMDD format ; Returns date in VA FileMan date format if successful ; or null value if input invalid |
|
FMD(PRCDATE) | ;
; Input external date and output VA FileMan date |
|
BACKUP(PRCIEN) | ;Backup Short Description and long Description
; Also add short description as Synonym if value not already present |
|
SYNONYM(PRCIEN) | ;
|
|
INITLOG(PRCTXNID) | ; Initialize error log
|
|
PROCERRS(PRCE,PRCT,PRCL,PRCIMF) | ; Process errors in DIERR
|
|
ERR(PRCMSG) | ; Error processing
|
Name | Field # of Occurrence |
---|---|
C^%DTC | INITLOG+4 |
$$FIND1^DIC | ITEMFILE+71, BACKUP+11, SYNONYM+4 |
FILE^DIE | ITEMFILE+8, ITEMFILE+13, ITEMFILE+26, ITEMFILE+64, ITEMFILE+74, BACKUP+8 |
UPDATE^DIE | ITEMFILE+43, GETITEM+17, BACKUP+13, SYNONYM+6 |
WP^DIE | ITEMFILE+30, BACKUP+18 |
CLEAN^DILF | ITEMFILE+77 |
DT^DILF | DT2FMD+6, FMD+3 |
$$GET1^DIQ | GETVEN+5, GETITEM+6 |
GETS^DIQ | BACKUP+4 |
BLDSEG^PRCPHLFM | ITEMFILE+34 |
$$DT^XLFDT | ITEMFILE+7, ITEMFILE+69, INITLOG+4 |
$$UP^XLFSTR | ITEMFILE+18, ITEMFILE+23, GETVEN+6, GETITEM+13 |
FileNo | Call Tags |
---|---|
^PRC(440 - [#440] | GET1^DIQ |
440.03 | FIND1^DIC |
^PRC(441 - [#441] | GET1^DIQ, GETS^DIQ, WP^DIE |
441.05 | FIND1^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRC(440 - [#440] | GETVEN+4 |
^PRC(441 - [#441] | ITEMFILE+2, GETITEM+5, GETITEM+10, GETITEM+11, GETITEM+26*, BACKUP+2, BACKUP+16, BACKUP+17 |
^PRCD(420.2 - [#420.2] | ITEMFILE+10 |
^PRCP(445 - [#445] | ITEMFILE+34 |
^TMP($J | ITEMFILE+4, ITEMFILE+5, ITEMFILE+9, ITEMFILE+16, ITEMFILE+17, ITEMFILE+18, ITEMFILE+19, ITEMFILE+20, ITEMFILE+21, ITEMFILE+22 , ITEMFILE+23, ITEMFILE+24, ITEMFILE+25, ITEMFILE+28, ITEMFILE+29, ITEMFILE+39, ITEMFILE+40, ITEMFILE+41, ITEMFILE+42, ITEMFILE+46 , ITEMFILE+47, ITEMFILE+48, ITEMFILE+49, ITEMFILE+53, ITEMFILE+54, ITEMFILE+55, ITEMFILE+56, ITEMFILE+57, ITEMFILE+58, ITEMFILE+60 , ITEMFILE+61, ITEMFILE+62, ITEMFILE+63, ITEMFILE+67, ITEMFILE+68, GETVEN+2, GETVEN+3, GETVEN+6, GETVEN+8, GETITEM+2 , GETITEM+3, GETITEM+4, GETITEM+6, GETITEM+13, GETITEM+14, GETITEM+15, GETITEM+16, GETITEM+20, GETITEM+21, SYNONYM+2 |
^XTMP( | INITLOG+2!, INITLOG+4*, ERR+1* |
Name | Line Occurrences |
---|---|
$$DT2FMD | ITEMFILE+25 |
BACKUP | ITEMFILE+3 |
ERR | FILE+2, FILE+3, ITEMFILE+5, ITEMFILE+10, ITEMFILE+28, ITEMFILE+45, ITEMFILE+46, ITEMFILE+47, ITEMFILE+48, ITEMFILE+49 , ITEMFILE+67, ITEMFILE+72, GETVEN+2, GETVEN+4, GETVEN+7, GETVEN+8, GETITEM+2, GETITEM+4, GETITEM+8, GETITEM+9 , GETITEM+19, GETITEM+20, GETITEM+21, GETITEM+24, PROCERRS+2 |
GETITEM | FILE+3 |
GETVEN | FILE+2 |
ITEMFILE | FILE+6 |
PROCERRS | ITEMFILE+14, ITEMFILE+27, ITEMFILE+31, ITEMFILE+45, ITEMFILE+65, ITEMFILE+75, GETITEM+19, BACKUP+9, BACKUP+14, BACKUP+19 , SYNONYM+7 |
SYNONYM | ITEMFILE+35 |
Name | Field # of Occurrence |
---|---|
^( | SYNONYM+2 |
^("BOC" | ITEMFILE+9 |
^("CONTRACT" | ITEMFILE+68 |
^("DRUG TYPE" | ITEMFILE+22 |
^("FSC" | ITEMFILE+17 |
^("IEN" | GETVEN+3 |
^("IMFNBR" | GETITEM+3 |
^("MANUFACTURER" | ITEMFILE+23 |
^("MAX QTY" | ITEMFILE+56 |
^("MFG PART" | ITEMFILE+20 |
^("MIN QTY" | ITEMFILE+55 |
^("NDC" | ITEMFILE+54 |
^("NIF UPDATE DATE" | ITEMFILE+25 |
^("NIF#" | ITEMFILE+16 |
^("NSN" | ITEMFILE+19 |
^("ORDER QTY MULTIPLE" | ITEMFILE+57 |
^("PKG MULT" | ITEMFILE+41, ITEMFILE+62 |
^("SHORT DESC" | ITEMFILE+18 |
^("SOURCE MFG PART#" | ITEMFILE+24 |
^("SOURCE VENDOR STOCK#" | ITEMFILE+58 |
^("STOCK KEEPING UNIT" | ITEMFILE+21 |
^("UNIT CONVERSION FACTOR" | ITEMFILE+42, ITEMFILE+63 |
^("UNIT COST" | ITEMFILE+40, ITEMFILE+61 |
^("UOP" | ITEMFILE+39, ITEMFILE+60 |
^("VSTOCK#" | ITEMFILE+53 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%H | INITLOG+1~ |
PRCADD | GETITEM~, GETITEM+1*, GETITEM+17*, GETITEM+22* |
PRCADDED | ITEMFILE~, ITEMFILE+3, ITEMFILE+15 |
PRCARR | ITEMFILE+1~, ITEMFILE+7!, ITEMFILE+8!, ITEMFILE+11~, ITEMFILE+27!, ITEMFILE+32!, ITEMFILE+50!, ITEMFILE+66!, ITEMFILE+73!, ITEMFILE+76! , GETITEM+12~, DT2FMD+4~, DT2FMD+6, DT2FMD+7, FMD+2~, FMD+3, FMD+4, BACKUP+3~, BACKUP+10!, BACKUP+15! , SYNONYM+3~ |
PRCARR( | ITEMFILE+38*, ITEMFILE+39*, ITEMFILE+40*, ITEMFILE+41*, ITEMFILE+42*, ITEMFILE+53*, ITEMFILE+54*, ITEMFILE+55*, ITEMFILE+56*, ITEMFILE+57* , ITEMFILE+58*, ITEMFILE+60*, ITEMFILE+61*, ITEMFILE+62*, ITEMFILE+63*, ITEMFILE+73*, BACKUP+12*, SYNONYM+5* |
PRCARR(441 | ITEMFILE+7*, ITEMFILE+12*, ITEMFILE+16*, ITEMFILE+17*, ITEMFILE+18*, ITEMFILE+19*, ITEMFILE+20*, ITEMFILE+21*, ITEMFILE+22*, ITEMFILE+23* , ITEMFILE+24*, ITEMFILE+25*, GETITEM+12*, GETITEM+13*, GETITEM+14*, GETITEM+15*, GETITEM+16*, BACKUP+5, BACKUP+6*, BACKUP+7! |
PRCCONTR | FILE+1~ |
PRCDATE | DT2FMD~, DT2FMD+5*, DT2FMD+6, FMD~, FMD+3 |
PRCDT | INITLOG+1~, INITLOG+4* |
PRCE | GETVEN+1~, PROCERRS~ |
PRCE("DIERR" | PROCERRS+1, PROCERRS+2 |
PRCERR | ITEMFILE+1~, ITEMFILE+7!, ITEMFILE+8!, ITEMFILE+11~, ITEMFILE+14, ITEMFILE+27!, ITEMFILE+31, ITEMFILE+32!, ITEMFILE+44, ITEMFILE+45 , ITEMFILE+50!, ITEMFILE+65, ITEMFILE+66!, ITEMFILE+70!, ITEMFILE+73!, ITEMFILE+75, ITEMFILE+76!, GETITEM+6~, GETITEM+12~, GETITEM+18 , GETITEM+19, DT2FMD+4~, DT2FMD+7, FMD+2~, FMD+4, BACKUP+3~, BACKUP+7!, BACKUP+9, BACKUP+10!, BACKUP+11 , BACKUP+14, BACKUP+15!, BACKUP+19, SYNONYM+3~, SYNONYM+4, SYNONYM+7 |
>> PRCERRC | INITLOG+2*, ERR+1* |
>> PRCHNODE | INITLOG+2*, INITLOG+4, ERR+1 |
PRCI | BACKUP+15~*, BACKUP+16, BACKUP+17, SYNONYM+1~*, SYNONYM+2*, PROCERRS+1~, PROCERRS+2* |
PRCIEN | ITEMFILE+37~, BACKUP~, BACKUP+2, BACKUP+3*, BACKUP+4, BACKUP+5, BACKUP+6, BACKUP+7, BACKUP+11, BACKUP+12 , BACKUP+15, BACKUP+18, SYNONYM~, SYNONYM+4, SYNONYM+5 |
PRCIEN(2 | ITEMFILE+37* |
PRCIENS | GETITEM+12~ |
PRCIENS(1 | GETITEM+23, GETITEM+24, GETITEM+25 |
PRCIMF | FILE+1~, FILE+3, GETITEM~, GETITEM+1*, GETITEM+3*, GETITEM+22!*, PROCERRS~, PROCERRS+2 |
PRCIMF( | FILE+5, FILE+6 |
PRCIMF(1 | GETITEM+3*, GETITEM+4, GETITEM+5, GETITEM+6, GETITEM+8, GETITEM+10, GETITEM+12, GETITEM+19, GETITEM+20, GETITEM+21 , GETITEM+23, GETITEM+24, GETITEM+25* |
PRCITMC | FILE~, FILE+1*, FILE+6* |
PRCITMIEN | ITEMFILE~, ITEMFILE+2, ITEMFILE+3, ITEMFILE+5, ITEMFILE+6*, ITEMFILE+7, ITEMFILE+10, ITEMFILE+12, ITEMFILE+14, ITEMFILE+16 , ITEMFILE+17, ITEMFILE+18, ITEMFILE+19, ITEMFILE+20, ITEMFILE+21, ITEMFILE+22, ITEMFILE+23, ITEMFILE+24, ITEMFILE+25, ITEMFILE+27 , ITEMFILE+28, ITEMFILE+30, ITEMFILE+31, ITEMFILE+34, ITEMFILE+35, ITEMFILE+38, ITEMFILE+39, ITEMFILE+40, ITEMFILE+41, ITEMFILE+42 , ITEMFILE+45, ITEMFILE+46, ITEMFILE+47, ITEMFILE+48, ITEMFILE+49, ITEMFILE+52*, ITEMFILE+53, ITEMFILE+54, ITEMFILE+55, ITEMFILE+56 , ITEMFILE+57, ITEMFILE+58, ITEMFILE+60, ITEMFILE+61, ITEMFILE+62, ITEMFILE+63, ITEMFILE+65, ITEMFILE+67, ITEMFILE+72, ITEMFILE+73 , ITEMFILE+75 |
PRCJ | FILE+1~, FILE+4*, FILE+5*, FILE+6 |
PRCK | PROCERRS+1~*, PROCERRS+2 |
PRCL | PROCERRS~, PROCERRS+2 |
PRCLINE | FILE~, FILE+2, FILE+3, ITEMFILE+5, ITEMFILE+10, ITEMFILE+14, ITEMFILE+27, ITEMFILE+28, ITEMFILE+31, ITEMFILE+45 , ITEMFILE+46, ITEMFILE+47, ITEMFILE+48, ITEMFILE+49, ITEMFILE+65, ITEMFILE+67, ITEMFILE+72, ITEMFILE+75, GETVEN+2, GETVEN+7 , GETITEM+2, GETITEM+4, GETITEM+8, GETITEM+19, GETITEM+20, GETITEM+21, GETITEM+24, BACKUP+9, BACKUP+14, BACKUP+19 , SYNONYM+7 |
PRCLX | GETVEN+1~, GETVEN+5*, GETVEN+6, GETVEN+8 |
PRCM | PROCERRS+1~, PROCERRS+2* |
PRCMSG | ERR~, ERR+1 |
PRCNBROLD | GETITEM+11~*, GETITEM+26 |
PRCNEW | ITEMFILE+1~, ITEMFILE+2*, ITEMFILE+36, ITEMFILE+59 |
PRCNIF | GETITEM+1~ |
PRCNITM | FILE+1~, FILE+3, FILE+6 |
PRCOUT | DT2FMD+4~*, DT2FMD+7*, DT2FMD+8, FMD+2~*, FMD+4*, FMD+5 |
PRCSCRN | ITEMFILE+69~*, ITEMFILE+71 |
PRCT | PROCERRS~, PROCERRS+2 |
PRCTRANNBR | FILE~, FILE+2, FILE+3, ITEMFILE+5, ITEMFILE+10, ITEMFILE+14, ITEMFILE+27, ITEMFILE+28, ITEMFILE+31, ITEMFILE+45 , ITEMFILE+46, ITEMFILE+47, ITEMFILE+48, ITEMFILE+49, ITEMFILE+65, ITEMFILE+67, ITEMFILE+72, ITEMFILE+75, GETVEN+2, GETVEN+4 , GETVEN+7, GETITEM+2, GETITEM+4, GETITEM+8, GETITEM+19, GETITEM+20, GETITEM+21, GETITEM+24, BACKUP+9, BACKUP+14 , BACKUP+19, SYNONYM+7 |
PRCTXNID | INITLOG~, INITLOG+2 |
PRCVEN | FILE+1~, FILE+2, GETVEN~, GETVEN+1*, GETVEN+3*, GETVEN+4*, GETVEN+9* |
PRCVEN(1 | FILE+6, GETVEN+3*, GETVEN+4!, GETVEN+5, GETVEN+7, GETVEN+9! |
PRCVEND | ITEMFILE~, ITEMFILE+2, ITEMFILE+37, ITEMFILE+38, ITEMFILE+52, ITEMFILE+71 |
PRCVENSK | ITEMFILE+1~*, ITEMFILE+45*, ITEMFILE+51 |
PRCX | ITEMFILE+1~, ITEMFILE+9*, ITEMFILE+10, ITEMFILE+12, ITEMFILE+68*, ITEMFILE+71, ITEMFILE+72, GETITEM+6~*, GETITEM+7, GETITEM+9 , BACKUP+3~, BACKUP+6*, BACKUP+11, BACKUP+12, SYNONYM+2*, SYNONYM+4, SYNONYM+5 |
PRCY | ITEMFILE+69~, ITEMFILE+71*, ITEMFILE+72, ITEMFILE+73, GETITEM+6~*, GETITEM+7, GETITEM+8 |
U | GETITEM+11, GETITEM+26 |
X | INITLOG+1~, INITLOG+4 |
X1 | INITLOG+1~, INITLOG+4* |
X2 | INITLOG+1~, INITLOG+4* |