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* |