PRCVRE1 ;WOIFO/VC-Transmit HL7 message to IFCAP for requisition received from DynaMed ; 11/3/04 3:13pm ; 5/6/05 3:43pm
Source file <PRCVRE1.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 |
| Package | Total | Caller Graph |
|---|---|---|
| IFCAP | 2 | PRCVREA PRCV_DYNAMED_01_SU_REQUISITION_SEND |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BEGIN | ||
| START | ;This will read the incoming message from DynaMed and build ^TMP
|
|
| SETACK | ; Set up information for the ACK or NAK
|
|
| PARSIT | ;Read the ^TMP global and build the ^XTMP global to pass to IFCAP
|
|
| BUILD | ;Build the ^XTMP global zero node record.
|
|
| CLEANUP | ;This area will kill all temporary globals and variables
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| HL7 Protocol Name | Call Tags |
|---|---|
| PRCV_DYNAMED_01_SU_REQUISITION_SEND | BEGIN |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("HLA" | CLEANUP+3! |
| ^TMP("PRCVRE" | SETACK+21!, SETACK+24*, SETACK+25*, PARSIT+3, PARSIT+4, PARSIT+5, PARSIT+6, CLEANUP+2! |
| ^TMP("PRCVRIL" | SETACK+2!, SETACK+3*, SETACK+4*, SETACK+5*, SETACK+11*, SETACK+14*, SETACK+40*, PARSIT+50*, CLEANUP+4! |
| ^XTMP( | BEGIN+14!, PARSIT+20, PARSIT+24*, PARSIT+25*, PARSIT+26*, PARSIT+43, PARSIT+44*, PARSIT+45*, PARSIT+46*, PARSIT+47* , PARSIT+52!, BUILD+4* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACKCNT | BEGIN+5~, SETACK+6*, SETACK+11, SETACK+14, CLEANUP+11! |
| DOCID | BEGIN+8~, CLEANUP+15! |
| DYNADATE | BEGIN~, PARSIT+21*, PARSIT+23, PARSIT+33*, PARSIT+34, CLEANUP+5! |
| ERRARY | BEGIN+4~, CLEANUP+9! |
| ERRARY(1 | SETACK+17* |
| ERRCNT | BEGIN+8~, CLEANUP+15! |
| ERRCOD | BEGIN+8~, CLEANUP+15! |
| ERRDAT | BEGIN+8~, CLEANUP+15! |
| ERRLOC | BEGIN+10~, CLEANUP+14! |
| ERRS | BEGIN+8~, CLEANUP+15! |
| ERRSTR | BEGIN+8~, CLEANUP+15! |
| ERRSUB | BEGIN+8~, CLEANUP+14! |
| ERRTXT | BEGIN+9~, CLEANUP+15! |
| FLDNO | BEGIN+8~, CLEANUP+16! |
| >> HL("ECH" | BEGIN+17 |
| >> HL("ETN" | SETACK+13, SETACK+14, SETACK+40 |
| >> HL("FS" | BEGIN+17 |
| >> HL("MID" | BEGIN+14, SETACK+3, SETACK+4 |
| >> HL("MTN" | SETACK+10, SETACK+11 |
| >> HL7DT | BEGIN+13* |
| >> HLNEXT | SETACK+23 |
| >> HLNODE | SETACK+24, SETACK+26, SETACK+27 |
| >> HLNODE( | SETACK+25 |
| >> HLQUIT | SETACK+23 |
| I | BEGIN+9~, CLEANUP+15! |
| II | BEGIN+9~, CLEANUP+15! |
| III | BEGIN+9~, CLEANUP+15! |
| IL | BEGIN+9~, CLEANUP+15! |
| J | BEGIN+9~, CLEANUP+15! |
| LENVAL | BEGIN+6~, PARSIT+2*, PARSIT+3, PARSIT+7*, PARSIT+9, PARSIT+49, CLEANUP+11! |
| MID | BEGIN+5~, CLEANUP+14! |
| MSG | BEGIN+8~, CLEANUP+14! |
| MSGFLG | BEGIN+8~, CLEANUP+14! |
| MYRESULT | BEGIN+10~, CLEANUP+14! |
| NODE1 | BEGIN+5~, PARSIT+4*, PARSIT+7, PARSIT+8*, PARSIT+10, PARSIT+15, CLEANUP+11! |
| NODE2 | BEGIN+5~, PARSIT+6*, PARSIT+7, PARSIT+8, CLEANUP+11! |
| PRCBOC | BEGIN+2~, PARSIT+39*, PARSIT+47, CLEANUP+6! |
| PRCCC | BEGIN+1~, SETACK+27*, SETACK+28, SETACK+36*, SETACK+37*, PARSIT+22*, PARSIT+46, CLEANUP+6! |
| PRCCC1 | BEGIN+6~, SETACK+33*, SETACK+38*, SETACK+39, CLEANUP+12! |
| PRCCNT | BEGIN+5~, BEGIN+16*, CLEANUP+5! |
| PRCCOST | BEGIN+2~, PARSIT+39*, PARSIT+47, CLEANUP+7! |
| PRCCS | BEGIN+4~, BEGIN+17*, PARSIT+21, CLEANUP+8! |
| PRCCTR | BEGIN+5~, PARSIT+31*, PARSIT+44, PARSIT+47, CLEANUP+5! |
| PRCDATE | BEGIN~, PARSIT+23*, PARSIT+26, CLEANUP+5! |
| PRCDET | BEGIN+10~, CLEANUP+14! |
| PRCDOC | BEGIN+1~, PARSIT+32*, PARSIT+47, CLEANUP+5! |
| PRCDT | BEGIN+3~, BEGIN+12*, BEGIN+13*, CLEANUP+7! |
| PRCEMP | BEGIN~, PARSIT+21*, PARSIT+26, CLEANUP+5! |
| PRCFCP | BEGIN+1~, SETACK+27*, SETACK+28, SETACK+31*, SETACK+34*, SETACK+37, PARSIT+22*, PARSIT+45, CLEANUP+6! |
| PRCFCP1 | BEGIN+6~, SETACK+31*, SETACK+35*, SETACK+39, CLEANUP+12! |
| PRCFS | BEGIN+4~, BEGIN+17*, SETACK+3, SETACK+4, SETACK+5, SETACK+11, SETACK+14, SETACK+27, SETACK+40, PARSIT+21 , PARSIT+22, PARSIT+31, PARSIT+32, PARSIT+33, PARSIT+39, PARSIT+50, CLEANUP+8!, CLEANUP+10! |
| PRCHD | BEGIN+10~, CLEANUP+14! |
| PRCI | BEGIN+5~, SETACK+22*, SETACK+23*, SETACK+24, SETACK+25, PARSIT+2*, PARSIT+3*, PARSIT+4, PARSIT+5, PARSIT+6 , CLEANUP+10! |
| PRCITM | BEGIN+1~, PARSIT+32*, PARSIT+47, CLEANUP+6! |
| PRCJ | BEGIN+5~, SETACK+24*, SETACK+25*, PARSIT+2*, PARSIT+5*, PARSIT+6, CLEANUP+10! |
| PRCNEED | BEGIN+2~, PARSIT+34*, PARSIT+47, CLEANUP+7! |
| PRCNIF | BEGIN+2~, PARSIT+39*, PARSIT+47, CLEANUP+6! |
| PRCNODE | BEGIN+4~, PARSIT+10*, PARSIT+14, PARSIT+19, PARSIT+30, PARSIT+38, CLEANUP+10! |
| PRCNODE2 | BEGIN+4~, PARSIT+15*, PARSIT+21, PARSIT+22, PARSIT+31, PARSIT+32, PARSIT+33, PARSIT+39, CLEANUP+10! |
| PRCORD | BEGIN~, PARSIT+21*, PARSIT+25, CLEANUP+5! |
| PRCQTY | BEGIN+1~, PARSIT+33*, PARSIT+47, CLEANUP+6! |
| PRCRS | BEGIN+4~, BEGIN+17*, CLEANUP+8!, CLEANUP+10! |
| PRCSITE | BEGIN~, PARSIT+21*, PARSIT+25, CLEANUP+5! |
| PRCSUB | BEGIN+3~, BEGIN+14*, SETACK+24, SETACK+25, PARSIT+3, PARSIT+4, PARSIT+5, PARSIT+6, PARSIT+20, PARSIT+24 , PARSIT+25, PARSIT+26, PARSIT+43, PARSIT+44, PARSIT+45, PARSIT+46, PARSIT+47, PARSIT+52, BUILD+4, CLEANUP+7! |
| PRCSUB2 | BEGIN+3~, CLEANUP+7! |
| PRCVERR | BEGIN+10~, CLEANUP+16! |
| PRCVINDX | BEGIN+3~, PARSIT+43*, PARSIT+44, CLEANUP+8! |
| PRCVND | BEGIN+2~, PARSIT+39*, PARSIT+47, CLEANUP+7! |
| PRCVRES | BEGIN+10~, CLEANUP+16! |
| SEVER | BEGIN+9~, CLEANUP+15! |
| TMP | BEGIN+6~, CLEANUP+12! |
| TMP( | SETACK+28*, SETACK+34, SETACK+37, CLEANUP+2! |
| TOT | BEGIN+9~, CLEANUP+16! |
| TOTERR | BEGIN+9~, CLEANUP+16! |
| TOTGOOD | BEGIN+9~, CLEANUP+16! |
| TOTREC | BEGIN+9~, CLEANUP+16! |
| U | BEGIN+11, PARSIT+24, PARSIT+25, PARSIT+26, PARSIT+43, PARSIT+44, PARSIT+45, PARSIT+46, PARSIT+47, BUILD+4 |
| X | BEGIN+6~, CLEANUP+12! |
| X1 | BEGIN+6~, BUILD+3*, BUILD+4, CLEANUP+12! |
| X2 | BEGIN+6~, CLEANUP+12! |
| X8 | BEGIN+6~, SETACK+34*, SETACK+35, CLEANUP+12! |
| X9 | BEGIN+6~, SETACK+37*, SETACK+38, CLEANUP+12! |
| XX | BEGIN+6~, BUILD+2*, BUILD+3, BUILD+4, CLEANUP+12! |
