PRCVEE1 ;WOIFO/VAC-EDIT/CANCELLATION FOR RIL/2237 FROM IFCAP TO DYNAMED ; 5/4/05 10:41am
Source file <PRCVEE1.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 |
|---|---|---|
| BEGIN(REF,PRCVDT) | ;
; REF is passed in as node for ^XTMP(REF) ; PRCVDT is passed in as node for ^XTMP(REF,PRCVDT) ; Note: PRCVDT is really two data elements $H and comma delimited ; There are two XTMP structures for this process. The first is ; for the original message sent from IFCAP. The first node is ; "PRCVUP*"+the RIL or 2237 number. The second node is $H. The third ; node is either 0,1 or 2. Zero is the standard ^XTMP structure ; plus $H. The 1 node contains header information common to all ; items. The 2 node contains detail information to be sent. ; Subordinate to the 2 node is a counter node unique for each item. ; Under the 1 and 2 nodes, will reside an "ERR" node with ; subordinate counters for multiple errors per item. The second ; ^XTMP is a pointer to the PRCVUP*xxx node. The first node is ; "PRCVMID*"+the Message Control ID for the original message. ; The 1 node contains the PRCVUP*+xxx and $H to point back to the ; original XTMP("PRCVUP*"+RIL/2237) ; PRCPRO - Procedure call ID ; PRCERR - Error array for processing message errors ; PRCFS - Field separator ; PRCCS - Component separator ; PRCRS - Repetition separator ; PRCEE - Escape separator ; PRCSC - Sub-component separator ; PRCMID - Message Control ID for sent message ; ORCDAT - a single field that holds an ORC Segment ; RQD - an array of fields for the RQD segment ; RQ1 - an array of fields for the RQ1 segment ; ORC - an array of fields for the ORC segment ; PRCCNT - a record counter ; PRCVY - Loop counter |
|
| BUILD | ;Create the ORC record for the message
|
|
| ORC | ;Build ORC Segment
|
|
| RQD | ;Build RQD segment
|
|
| SEND | ;Send record to HL7 interface to DynaMed
|
|
| MSGRTN | ;Send message to Fund Control Point users for update
|
|
| CLEAN | ;Clean up variables
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DETAIL | BEGIN+33~, RQD+2*, RQD+3, RQD+4, RQD+12, RQD+13, RQD+14, RQD+15, RQD+16, RQD+18 , RQD+26, RQD+27, RQD+28, RQD+29, RQD+30, CLEAN+2! |
| ERRCNT | BEGIN+33~, BEGIN+40*, BUILD+4, SEND+2, CLEAN+4! |
| HL | BEGIN+33~, BUILD+3!, BUILD+4 |
| HL("ECH" | BUILD+5 |
| HL("FS" | BUILD+5 |
| HLA | BEGIN+33~, CLEAN+3! |
| HLA("HLS" | RQD+5*, RQD+7*, RQD+8*, RQD+10*, RQD+20*, RQD+21*, RQD+25*, RQD+31*, RQD+32*, CLEAN+2! |
| I | BEGIN+32~, ORC+3*, RQD+6*, RQD+7*, RQD+24*, CLEAN+3! |
| J | BEGIN+32~, RQD+20*, RQD+31*, CLEAN+3! |
| K | BEGIN+32~, RQD+1*, CLEAN+3! |
| ODATE | BEGIN+33~, ORC+5*, CLEAN+1! |
| ORC | BEGIN+32~, CLEAN+3! |
| ORC( | ORC+3*, RQD+7 |
| ORC(1 | RQD+4* |
| ORC(10 | ORC+7*, ORC+8* |
| ORC(21 | ORC+6*, ORC+8, RQD+8 |
| ORC(9 | ORC+5* |
| ORCDAT | BEGIN+32~, ORC+1*, ORC+2, ORC+6, ORC+7, CLEAN+3! |
| PRCCNT | BEGIN+32~, BUILD+1*, RQD+5, RQD+7, RQD+8, RQD+9*, RQD+10, RQD+20, RQD+21, RQD+22* , RQD+25, RQD+31, RQD+32, RQD+33*, CLEAN+3! |
| PRCCS | BEGIN+31~, BUILD+5*, ORC+7, ORC+8, RQD+4, RQD+29, SEND+2, CLEAN+1! |
| PRCDATA | BEGIN+34~, BEGIN+35*, BEGIN+36, CLEAN+5! |
| PRCDP | BEGIN+31~, SEND+1*, SEND+2, SEND+5, CLEAN+2! |
| PRCDT | BEGIN+33~, BEGIN+40*, CLEAN+2! |
| PRCDTS | BEGIN+33~, BEGIN+39*, BEGIN+40, CLEAN+2! |
| PRCEE | BEGIN+31~, BUILD+5*, CLEAN+1! |
| PRCERR | BEGIN+31~, BEGIN+37*, CLEAN+1!, CLEAN+2! |
| PRCFCP | BEGIN+34~, BEGIN+36*, MSGRTN+5, CLEAN+5! |
| PRCFS | BEGIN+31~, BUILD+5*, RQD+5, RQD+7, RQD+10, RQD+20, RQD+25, RQD+31, CLEAN+1! |
| PRCMID | BEGIN+33~, SEND+5*, SEND+8, CLEAN+2! |
| PRCPRO | BEGIN+31~, BUILD+2*, BUILD+3, SEND+1, CLEAN+1! |
| PRCRS | BEGIN+31~, BUILD+5*, CLEAN+1! |
| PRCSC | BEGIN+31~, BUILD+5*, CLEAN+1! |
| PRCSITE | BEGIN+34~, BEGIN+36*, MSGRTN+5, CLEAN+5! |
| PRCVDT | BEGIN~, ORC+1, ORC+5, RQD+1, RQD+2, SEND+10 |
| PRCVERR | BEGIN+34~, CLEAN+4! |
| PRCVERR( | BUILD+4*, SEND+2* |
| PRCVMID | BEGIN+33~, SEND+8*, SEND+9, SEND+10, CLEAN+2! |
| PRCVY | BEGIN+34~, RQD+1*, RQD+2, RQD+11, CLEAN+3! |
| REF | BEGIN~, BEGIN+35, BEGIN+38, ORC+1, RQD+1, RQD+2, RQD+17, SEND+10, MSGRTN+2 |
| RQ1 | BEGIN+32~, CLEAN+3! |
| RQ1( | RQD+24*, RQD+31 |
| RQ1(1 | RQD+26* |
| RQ1(2 | RQD+27* |
| RQ1(3 | RQD+28* |
| RQ1(4 | RQD+29* |
| RQ1(5 | RQD+30*, RQD+32 |
| RQD | BEGIN+32~, CLEAN+3! |
| RQD( | RQD+6*, RQD+20 |
| RQD(1 | RQD+11* |
| RQD(10 | RQD+18*, RQD+19*, RQD+21 |
| RQD(2 | RQD+12* |
| RQD(3 | RQD+13* |
| RQD(4 | RQD+14* |
| RQD(5 | RQD+15* |
| RQD(6 | RQD+16* |
| RQD(9 | RQD+17* |
| U | ORC+6, ORC+7, RQD+12, RQD+13, RQD+14, RQD+15, RQD+16, RQD+18, RQD+26, RQD+27 , RQD+28, RQD+29, RQD+30, SEND+2, SEND+5, SEND+9, SEND+10 |
| X | BEGIN+32~, CLEAN+3! |
| X1 | BEGIN+32~, SEND+7*, SEND+9, CLEAN+3! |
| X2 | BEGIN+32~, CLEAN+3! |
| XMDUZ | MSGRTN+1~, MSGRTN+3*, MSGRTN+7!, CLEAN+4! |
| XMMG | MSGRTN+1~, MSGRTN+7!, CLEAN+4! |
| XMSUB | MSGRTN+1~, MSGRTN+2*, MSGRTN+7!, CLEAN+4! |
| XMTEXT | MSGRTN+1~, MSGRTN+4*, MSGRTN+7!, CLEAN+4! |
| XMY | MSGRTN+1~, MSGRTN+5, MSGRTN+7!, CLEAN+4! |
| XMZ | MSGRTN+1~, MSGRTN+7!, CLEAN+4! |
| XX | BEGIN+32~, SEND+6*, SEND+7, SEND+9, CLEAN+3! |
| Y | BEGIN+32~, CLEAN+3! |
