FHWOR ; HISC/NCA - Main Routine to Decode HL7 ;10/10/00 14:55
Source file <FHWOR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERR | ; Send error MSG
|
|
| EN(MSG) | ; Entry Point for OE/RR 3 and pass MSG in FHMSG
|
|
| NA | ; Number Assign
|
|
| CVT | ; Convert HL7 date to FM date
|
|
| KIL | ; Kill Variables
|
|
| CSEND | ; Send Canceled/Discontinued MSG to OERR
|
|
| SEND | ; Send OK MSG to OERR
|
|
| PURGE | ; Purge OE/RR Orders
|
|
| CERR | ; Send unable MSG
|
|
| CAN | ; Cancel Order From OE
|
|
| MSH | ; Code MSH message
|
|
| CANCEL | ; Cancel/Discontinue
|
|
| EVSEND | ; Send Message to OE/RR
|
|
| RMSH | ; Code MSH Return Message
|
|
| GETOR | ; Call to Get FHORN
|
| Name | Field # of Occurrence |
|---|---|
| SITE^FH | RMSH+1 |
| ADD^FHOMDPA | EN+11 |
| ^FHOMWOR | EN+16 |
| ^FHWADM | EN+20 |
| ^FHWOR1 | EN+35 |
| CAN^FHWOR1 | CAN+1 |
| NA^FHWOR1 | NA+1 |
| ^FHWOR2 | EN+36 |
| CAN^FHWOR2 | CAN+2 |
| NA^FHWOR2 | NA+2 |
| ^FHWOR3 | EN+29 |
| CAN^FHWOR3 | CAN+3 |
| NA^FHWOR3 | NA+3 |
| ^FHWOR4 | EN+34 |
| CAN^FHWOR4 | CAN+4 |
| NA^FHWOR4 | NA+4 |
| ^FHWOR5 | EN+32 |
| CAN^FHWOR5 | CAN+5 |
| NA^FHWOR5 | NA+5 |
| ^FHWOR61 | EN+30 |
| CAN^FHWOR61 | CAN+6 |
| NA^FHWOR61 | NA+6 |
| CHK^FHWORR | EN+17 |
| GETOR^FHWORR | GETOR+1 |
| MSH^FHWORR | MSH+1 |
| OMSTAT^FHWORR | CANCEL+5 |
| STATUS^FHWORR | CANCEL+9 |
| PID^VADPT6 | EN+12 |
| $$FMADD^XLFDT | CVT+2 |
| $$HL7TFM^XLFDT | CVT+1 |
| MSG^XQOR | EVSEND+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | EN+19 |
| ^DPT - [#2] | EN+17, RMSH+4 |
| ^DPT("B" | EN+10 |
| ^DPT("CN" | EN+18 |
| ^FHPT - [#115] | EN+19, EN+20, PURGE+4*, PURGE+5*, PURGE+7, PURGE+8*, PURGE+11*, PURGE+12*, PURGE+13* |
| Name | Line Occurrences |
|---|---|
| CANCEL | EN+17, EN+22 |
| CERR | CANCEL+4 |
| CSEND | CANCEL+6, CANCEL+8 |
| ERR | EN+6, EN+8, EN+10, EN+11, EN+17, EN+18, EN+19, EN+22, EN+24, EN+25 , EN+28, EN+31 |
| EVSEND | PURGE+15, ERR+6, SEND+2, CERR+2 |
| GETOR | EN+6, EN+8, EN+10, EN+11, EN+17, EN+18, EN+19, EN+22, EN+24, EN+25 |
| KIL | EN+29, EN+30, EN+32, EN+34, EN+35, EN+36, CANCEL+6, CANCEL+8, CANCEL+11, CAN+1 , CAN+2, CAN+3, CAN+4, CAN+5, CAN+6, CAN+7, PURGE+1, NA+1, NA+2, NA+3 , NA+4, NA+5, NA+6 |
| NA | CANCEL+10 |
| PURGE | EN+13 |
| RMSH | ERR+1, SEND+1, CERR+1, CSEND+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACT | EN+1~, EN+25*, CANCEL+2*, CANCEL+4, CANCEL+6, CANCEL+8, CANCEL+9, CANCEL+10!, CANCEL+11, CERR+2 , CSEND+2, EVSEND+1!, KIL+1! |
| ADM | EN+1~, EN+18*, EN+19, EN+20, PURGE+3*, PURGE+4, PURGE+5, PURGE+7, PURGE+8, PURGE+11 , PURGE+12, PURGE+13, KIL+1! |
| BID | EN+1~, EN+12*, KIL+1! |
| CHK | EN+1~, EN+17, KIL+1! |
| COM | EN+1~, EN+33*, KIL+1! |
| DA | EN+1~, EN+20*, KIL+1! |
| DATA | EN+1~, CANCEL+1*, CANCEL+2, CANCEL+3, KIL+1! |
| DATE | EN+1~, CVT+1*, CVT+2*, KIL+1! |
| DFN | EN+1~, EN+9*, EN+10, EN+11, EN+17, EN+18, EN+20, RMSH+4, KIL+1! |
| DIET | EN+1~, EN+33*, EN+34, EN+35, KIL+1! |
| DUR | EN+1~, EN+26*, EN+27, KIL+1! |
| EDT | EN+1~, EN+27*, PURGE+6*, PURGE+7, KIL+1! |
| EL | PURGE+7*, PURGE+8, PURGE+14! |
| FHC | EN+1~, KIL+1! |
| FHD | EN+1~, KIL+1! |
| FHD1 | EN+1~, KIL+1! |
| FHD2 | EN+1~, KIL+1! |
| FHDFN | EN+1~, EN+11, EN+19, EN+20, PURGE+4, PURGE+5, PURGE+7, PURGE+8, PURGE+11, PURGE+12 , PURGE+13, KIL+1! |
| FHDR | PURGE+3*, PURGE+4, PURGE+5, PURGE+11, PURGE+12, PURGE+14! |
| FHMSG | EN+1~, EN+4, KIL+1! |
| FHMSG( | EN+3* |
| FHMSG(1 | EN+6 |
| FHMSG(2 | EN+8 |
| FHMSG(3 | EN+13, EN+22, ERR+3, ERR+4, ERR+5 |
| FHMSG(4 | EN+24, ERR+4, ERR+5 |
| FHMSG(5 | EN+29 |
| FHORN | EN+26*, CANCEL+3*, PURGE+2*, PURGE+4, PURGE+5, PURGE+8, PURGE+11, PURGE+12, PURGE+13, ERR+2 , SEND+2, CERR+2, CSEND+2, EVSEND+1! |
| FHPV | EN+1~, EN+28*, KIL+1! |
| FHWF | EN+1~, EN+2*, KIL+1! |
| >> FHZ115 | EN+11* |
| FILL | CANCEL+3*, PURGE+2*, PURGE+3, PURGE+6, SEND+2, CERR+2, CSEND+2, EVSEND+1! |
| FOR | EN+1~, CANCEL+1*, CANCEL+7*, CANCEL+8, CAN+1, CAN+2, CAN+3, CAN+4, CAN+5, CAN+6 , NA+1, NA+2, NA+3, NA+4, NA+5, NA+6, KIL+1! |
| FTYP | EN+1~, CANCEL+3*, CANCEL+5, CANCEL+6, CANCEL+7, PURGE+2*, PURGE+4, PURGE+5, PURGE+6, PURGE+11 , PURGE+12, PURGE+13, KIL+1! |
| IEN | EN+1~, KIL+1! |
| ITVL | EN+1~, EN+27*, KIL+1! |
| >> L | EN+3* |
| LP | EN+1~, KIL+1! |
| MEAL | EN+1~, KIL+1! |
| MSG | EN~, CANCEL+10!, CANCEL+11!, ERR+1!, SEND+1!, CERR+1!, CSEND+1!, EVSEND+1! |
| MSG( | EN+3 |
| MSG(1 | PURGE+15*, RMSH+2* |
| MSG(2 | RMSH+4* |
| MSG(3 | PURGE+15*, ERR+2*, ERR+3*, ERR+4*, ERR+5*, ERR+6*, SEND+2*, CERR+2*, CSEND+2* |
| NAM | EN+1~, EN+9*, EN+10, KIL+1! |
| NOW | EN+1~, EN+28*, KIL+1! |
| PER | EN+1~, KIL+1! |
| PID | EN+1~, EN+12*, KIL+1! |
| SDT | EN+1~, EN+27*, PURGE+6*, PURGE+7, KIL+1! |
| SERV | EN+1~, KIL+1! |
| SITE | EVSEND+1! |
| SITE(1 | RMSH+2 |
| TIM | EN+1~, KIL+1! |
| TIME | EN+1~, KIL+1! |
| TM | EN+1~, KIL+1! |
| TXT | EN+1~, EN+2*, EN+6*, EN+8*, EN+10*, EN+11*, EN+17*, EN+18*, EN+19*, EN+22* , EN+24*, EN+25*, EN+28*, EN+31*, CANCEL+4*, CANCEL+10!, ERR+6, CERR+2, EVSEND+1!, KIL+1! |
| TYPC | EN+1~, EN+32*, KIL+1! |
| VA | EN+12! |
| VA("BID" | EN+12 |
| VA("PID" | EN+12 |
| WARD | EN+1~, EN+17*, EN+18, KIL+1! |
| X | EN+1~, EN+6*, EN+8*, EN+9, EN+13*, EN+14, EN+16, EN+22*, EN+24*, EN+25 , EN+26, EN+28, EN+29*, EN+30, EN+31, EN+32, EN+33, CANCEL+1, PURGE+1, PURGE+2 , KIL+1! |
| XX | EN+1~, KIL+1! |
| YR | EN+1~, KIL+1! |