PRCVRC2 ;WOIFO/BMM/VAC - silently build RIL for DynaMed ; 12/3/07 10:32am
Source file <PRCVRC2.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 |
|---|---|---|
| V | ;;5.1;IFCAP;**81,119**;Oct 20, 2000;Build 8
|
|
| GETFY(PRCVDT) | ;return the fiscal year, PRCVDT is date/time the DM
|
|
| GETQTR(PRCVDT) | ;return the fiscal quarter, PRCVDT is date/time the DM
|
|
| GETTXN(PRCVSTR) | ;obtain current transaction number (if exists) from
|
|
| CHKDT(INDT) | ;check the incoming date (date/time message created) against
|
|
| CHKDTN(INDT) | ;check the incoming date (Date Needed By from DynaMed)
|
|
| CHKBOC(ITEM,BOC) | ;test BOC from passed-in detail record
|
|
| CHKFCP(PRCVFCP,PRCVST) | ;validate that FCP is in 420
|
|
| CHKITM(PRCVITM) | ;check extracted item number:
|
|
| CHKVEND(VENDN) | ;check that vendor in Vendor file is active.
|
|
| CHKVI(VENDN,ITMN) | ;check that vendor VENDN sells item ITMN
|
|
| CHKDUZ(INDUZ) | ;validate that DUZ against New Person (#200)
|
|
| CHKNIF(ITEM,NIF) | ;use the passed-in item to check that the passed-in
|
|
| MAKECAP(INSTR) | ;take INSTR and return an all-caps version of it
|
|
| SENDMSG(EC,PRCVGL,CTR,ERPC) | ;send an alert or error message back to
|
|
| ADDAUD(ADDSTR) | ;add "^"-pieces from ADDSTR as fields to a new record in
|
| FileNo | Call Tags |
|---|---|
| ^PRCS(410.1 - [#410.1] | FIND^DIC |
| 420.01 | FIND1^DIC |
| ^PRC(440 - [#440] | GET1^DIQ |
| ^PRC(441 - [#441] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | SENDMSG+16 |
| ^%ZOSF("UPPERCASE" | MAKECAP+4 |
| ^PRC(440 - [#440] | CHKVEND+6, CHKVI+12 |
| ^PRC(441 - [#441] | CHKITM+10, CHKVI+7, CHKVI+10 |
| ^TMP("DIERR" | GETTXN+11!, GETTXN+21!, GETTXN+25!, GETTXN+29!, GETTXN+33!, GETTXN+34!, ADDAUD+16, ADDAUD+30 |
| ^TMP("DILIST" | GETTXN+11!, GETTXN+21!, GETTXN+25!, GETTXN+29!, GETTXN+33!, GETTXN+34! |
| ^TMP($J | ADDAUD+21*, ADDAUD+22*, ADDAUD+23*, ADDAUD+24*, ADDAUD+25*, ADDAUD+26*, ADDAUD+27*, ADDAUD+28*, ADDAUD+29*, ADDAUD+30* |
| ^VA(200 - [#200] | CHKDUZ+4 |
| ^XTMP( | SENDMSG+21, SENDMSG+22*, SENDMSG+24, SENDMSG+25* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CHKDT+7~, CHKDT+8, CHKDTN+6~, CHKDTN+7 |
| ADDSTR | ADDAUD~, ADDAUD+7, ADDAUD+12, ADDAUD+17, ADDAUD+19, ADDAUD+22, ADDAUD+23, ADDAUD+24, ADDAUD+25, ADDAUD+26 , ADDAUD+27, ADDAUD+29 |
| ATXN | GETTXN+11! |
| ATXN("DILIST" | GETTXN+14, GETTXN+15 |
| BOC | CHKBOC~, CHKBOC+5 |
| CHKFLG | CHKVEND+4~, CHKVEND+5*, CHKVEND+6*, CHKVEND+7, CHKVI+3~, CHKVI+4*, CHKVI+5, CHKVI+8, CHKVI+12*, CHKVI+14 |
| CITM | CHKITM+6~*, CHKITM+11*, CHKITM+12 |
| CTR | SENDMSG~, SENDMSG+19*, SENDMSG+20, SENDMSG+21, SENDMSG+22, SENDMSG+23 |
| DT | GETTXN+19 |
| DUZFLG | CHKDUZ+2~*, CHKDUZ+3, CHKDUZ+4*, CHKDUZ+5 |
| EC | SENDMSG~ |
| ECSTR | SENDMSG+17~, SENDMSG+19*, SENDMSG+22, SENDMSG+25 |
| ERPC | SENDMSG~, SENDMSG+18*, SENDMSG+19 |
| ERRCTR | SENDMSG+17~, SENDMSG+21*, SENDMSG+22*, SENDMSG+24*, SENDMSG+25* |
| INDT | CHKDT~, CHKDT+6, CHKDT+9, CHKDTN~, CHKDTN+5, CHKDTN+8 |
| INDUZ | CHKDUZ~, CHKDUZ+3, CHKDUZ+4 |
| INSTR | MAKECAP~, MAKECAP+2, MAKECAP+4 |
| ITEM | CHKBOC~, CHKBOC+2, CHKBOC+4, CHKNIF~, CHKNIF+4 |
| ITMN | CHKVI~, CHKVI+5, CHKVI+7 |
| ITMNN | CHKVI+3~, CHKVI+4*, CHKVI+7*, CHKVI+8, CHKVI+10 |
| NIF | CHKNIF~, CHKNIF+5 |
| NVNDP | CHKVEND+4~ |
| OVERSTR | SENDMSG+17~ |
| PRCVA | ADDAUD+10~* |
| PRCVA( | ADDAUD+12* |
| PRCVAT | GETTXN+18! |
| PRCVAT( | GETTXN+18*, GETTXN+19*, GETTXN+20* |
| PRCVDIFF | CHKDT+7~, CHKDT+9*, CHKDT+10, CHKDTN+6~, CHKDTN+8*, CHKDTN+9 |
| PRCVDT | GETFY~, GETFY+3, GETQTR~, GETQTR+3 |
| PRCVE | GETTXN+9~*, GETTXN+16, GETTXN+25*, CHKFCP+3~ |
| PRCVFCP | CHKFCP~, CHKFCP+2, CHKFCP+5, ADDAUD+31*, ADDAUD+32 |
| PRCVGL | SENDMSG~, SENDMSG+21, SENDMSG+22, SENDMSG+24, SENDMSG+25 |
| PRCVI | ADDAUD+10~, ADDAUD+11*, ADDAUD+12 |
| PRCVIBOC | CHKBOC+3~, CHKBOC+4*, CHKBOC+5 |
| PRCVINIF | CHKNIF+3~, CHKNIF+4*, CHKNIF+5 |
| PRCVITM | CHKITM~, CHKITM+5, CHKITM+10, CHKITM+11 |
| PRCVN | CHKFCP+3~, CHKFCP+4*, CHKFCP+5*, CHKFCP+6 |
| PRCVP | ADDAUD+10~*, ADDAUD+11*, ADDAUD+12, ADDAUD+21* |
| PRCVRIL | ADDAUD+10~, ADDAUD+17*, ADDAUD+28, ADDAUD+31 |
| PRCVRN | GETTXN+9~*, GETTXN+15*, GETTXN+26*, GETTXN+28 |
| PRCVRN(1 | GETTXN+26 |
| PRCVSA | GETTXN+28! |
| PRCVSA( | GETTXN+28* |
| PRCVST | CHKFCP~, CHKFCP+2, CHKFCP+5, ADDAUD+31*, ADDAUD+32 |
| PRCVSTR | GETTXN~, GETTXN+8, GETTXN+12, GETTXN+18 |
| PRCVTMP | ADDAUD+10~, ADDAUD+17*, ADDAUD+32 |
| PRCVVAL | CHKFCP+3~, CHKFCP+4*, CHKFCP+6*, CHKFCP+7 |
| PRESENT | CHKDT+7~, CHKDT+8*, CHKDT+9, CHKDTN+6~, CHKDTN+7*, CHKDTN+8 |
| QTR | GETQTR+3~*, GETQTR+4 |
| TXN | GETTXN+9~*, GETTXN+14*, GETTXN+16, GETTXN+27*, GETTXN+28, GETTXN+35*, GETTXN+36 |
| U | ADDAUD+12, ADDAUD+17, ADDAUD+19, ADDAUD+22, ADDAUD+23, ADDAUD+24, ADDAUD+25, ADDAUD+26, ADDAUD+27, ADDAUD+29 |
| VENDN | CHKVEND~, CHKVEND+3, CHKVEND+6, CHKVI~, CHKVI+5, CHKVI+10 |
| VENDP | CHKVI+3~, CHKVI+4*, CHKVI+10*, CHKVI+12 |
| X | MAKECAP+3~, MAKECAP+4*, SENDMSG+15~* |
| >> XMB(1 | ADDAUD+18* |
| >> XMB(2 | ADDAUD+19* |
| >> XMB(3 | ADDAUD+20* |
| Y | MAKECAP+3~, MAKECAP+5 |
| Name | Field # of Occurrence |
|---|---|
| $T(ET+EC^PRCVRC3 | SENDMSG+19 |
