PSSHLDFS ;BIR/MHA - PADE HL7 SERVER ;6/10/15
Source file <PSSHLDFS.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 |
|---|---|---|
| ENP(PSSHLDRG,PSSACT) | ;
; set up environment for message ; INPUT ; PSSHLDRG = IEN of DRUG file (#50) ; PSSACT = Message type - send new drug (MAD) or drug update (MUD) ; OUTPUT ; ENTRY OR ENTRIES IN OUTGOING VISTA HL7 INTERFACE QUEUE ; |
|
| EN | ;
|
|
| PROCESS1(SPNAM,DRG,PSSACT,DNSNAM,DNSPORT) | ; Process 1 drug entry per message
; Init HL params and begin building msg |
|
| MFI(ACTION,PSSCNT) | ; MFI Seg
|
|
| MFE(DRG,FILE50,ACTION,PSSCNT) | ; MFE Seg
|
|
| ZFM(DRG,FILE50,ACTION,PSSCNT) | ; ZFM Seg [optional]
; This segment is optional, send if it passes criteria below |
|
| GIVECODE(ID,CS) | ; Give code
|
|
| STORE(SEGMENT,NODE) | ; Store to HL7 SEG("HLS" array
|
|
| TRANS | ; Generate HLMA entry and send message
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101 - [#101] | EN+3 |
| ^PS(50.606 - [#50.606] | ZFM+24 |
| ^PS(50.607 - [#50.607] | ZFM+28 |
| ^PS(50.7 - [#50.7] | ZFM+12, ZFM+24 |
| ^PS(58.7 - [#58.7] | EN+5, EN+6 |
| ^PSDRUG - [#50] | PROCESS1+7, GIVECODE+2, GIVECODE+3, GIVECODE+4, TRANS+4 |
| ^PSNDF(50.6 - [#50.6] | ZFM+7 |
| ^TMP("HLS" | PROCESS1+6!, PROCESS1+18!, STORE+1, STORE+3* |
| ^TMP($J | ZFM+5!, ZFM+32, ZFM+38! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTION | MFI~, MFI+4, MFE~, MFE+1, ZFM~, ZFM+8 |
| CLASSNAM | ZFM+3~, ZFM+32* |
| CS | GIVECODE~, GIVECODE+5, GIVECODE+7 |
| DNSNAM | EN+1~, EN+8*, EN+9, EN+13, PROCESS1~, TRANS+2 |
| DNSPORT | EN+1~, EN+8*, EN+9, EN+13, PROCESS1~, TRANS+2 |
| DONE | ZFM+2~, ZFM+20* |
| DRG | PROCESS1~, PROCESS1+7, PROCESS1+15, PROCESS1+16, MFE~, MFE+2, ZFM~, ZFM+10, TRANS+4 |
| DRGID | GIVECODE+1~, GIVECODE+4*, GIVECODE+7 |
| DRGNM | GIVECODE+1~, GIVECODE+4*, GIVECODE+5 |
| DRGNM2 | GIVECODE+1~, GIVECODE+6*, GIVECODE+7 |
| DRGSTR | GIVECODE+1~, GIVECODE+5*, GIVECODE+7*, GIVECODE+8 |
| DRUGND | GIVECODE+1~, GIVECODE+3*, GIVECODE+4, GIVECODE+6 |
| DT | EN+10, PROCESS1+7 |
| FILE50 | MFE~, ZFM~ |
| FILE50("DOS" | ZFM+27 |
| FILE50("ND" | ZFM+6, ZFM+13, ZFM+23, ZFM+31 |
| FILE50(0 | ZFM+14 |
| FILE50(1 | ZFM+20 |
| FILE50(2 | ZFM+6, ZFM+36 |
| FILE50(660 | ZFM+34 |
| GENDRG | ZFM+3~, ZFM+6*, ZFM+7*, ZFM+10 |
| HL | PROCESS1+2~, PROCESS1+8 |
| HL("ECH" | PROCESS1+9 |
| HL("FS" | PROCESS1+9 |
| HLA | PROCESS1+2~, PROCESS1+7!, PROCESS1+11! |
| HLEVN | PROCESS1+11! |
| HLP | TRANS+1~*, TRANS+5 |
| HLP("SUBSCRIBER" | TRANS+2* |
| HLSCOUNT | PROCESS1+3~, PROCESS1+14, PROCESS1+15, PROCESS1+16, MFE+5, ZFM+39 |
| I | STORE+1~, STORE+2*, STORE+3 |
| ID | GIVECODE~, GIVECODE+2, GIVECODE+3, GIVECODE+4, GIVECODE+5 |
| II | ZFM+2~, ZFM+20* |
| NATDRG | ZFM+23~* |
| ND | ZFM+2~, ZFM+20* |
| NDF | ZFM+2~, ZFM+13* |
| NEXTND | STORE+1~*, STORE+3* |
| NODE | STORE~, STORE+2 |
| PSS50 | PROCESS1+3~, PROCESS1+7*, PROCESS1+15, PROCESS1+16 |
| PSS50("I" | PROCESS1+7 |
| PSSACT | ENP~, EN+12*, EN+13, PROCESS1~, PROCESS1+14, PROCESS1+15, PROCESS1+16 |
| PSSARRAY | MFI+7!, MFE+5!, ZFM+39! |
| PSSARRAY("HLS" | MFI+6*, MFE+4*, ZFM+37* |
| PSSCLASS | ZFM+3~, ZFM+31*, ZFM+32 |
| PSSCNT | PROCESS1+12*, MFI~, MFI+1*, MFI+6, MFI+7*, MFE~, MFE+4, MFE+5*, ZFM~, ZFM+37 , ZFM+39* |
| PSSCPDU | ZFM+4~, ZFM+34* |
| PSSCPOU | ZFM+4~ |
| PSSD | EN+1~, EN+6*, EN+7, EN+8, EN+10, EN+11 |
| PSSDLNM | ZFM+4~ |
| PSSDOSF | ZFM+2~, ZFM+23*, ZFM+24*, ZFM+25 |
| PSSDRINF | ZFM+4~, ZFM+23*, ZFM+29 |
| PSSDSQ | ZFM+2~, ZFM+27*, ZFM+28, ZFM+29* |
| PSSEVDT | PROCESS1+3~, PROCESS1+5* |
| PSSFAC | PROCESS1+2~ |
| PSSFIEN | PROCESS1+2~, PROCESS1+10*, ZFM+18 |
| PSSFNAM | PROCESS1+2~, PROCESS1+10*, ZFM+18 |
| PSSHLCNT | PROCESS1+2~, PROCESS1+12* |
| PSSHLCS | PROCESS1+2~, PROCESS1+9*, MFI+3, MFE+2, ZFM+7, ZFM+10, ZFM+18 |
| PSSHLDRG | ENP~, EN+12*, EN+13 |
| PSSHLDT | PROCESS1+3~, PROCESS1+5* |
| PSSHLERR | PROCESS1+3~, PROCESS1+7* |
| PSSHLFS | PROCESS1+2~, PROCESS1+9*, MFI+2, MFI+3, MFI+4, MFI+5, MFE+1, MFE+2, MFE+3, ZFM+8 , ZFM+10, ZFM+12, ZFM+16, ZFM+18, ZFM+21, ZFM+25, ZFM+28, ZFM+29, ZFM+32, ZFM+34 , ZFM+36 |
| PSSHLSCS | PROCESS1+3~, PROCESS1+9* |
| PSSMFSND | TRANS+1~, TRANS+5, TRANS+6, TRANS+8 |
| PSSMSG | PROCESS1+2~ |
| PSSNDC | ZFM+4~ |
| PSSNM | EN+1~, EN+8*, EN+9 |
| PSSOI | ZFM+3~, ZFM+6*, ZFM+12, ZFM+24 |
| PSSORDU | ZFM+4~ |
| PSSPROD | ZFM+4~, ZFM+6*, ZFM+7 |
| PSSPROD0 | ZFM+2~ |
| PSSREOL | ZFM+4~ |
| PSSRSLT | PROCESS1+3~ |
| PSSSOL | ZFM+3~ |
| PSSSYN | ZFM+2~, ZFM+20*, ZFM+21 |
| PSSUIUO | PROCESS1+4~ |
| PSSUOFI | ZFM+4~ |
| PSSVOL | ZFM+3~ |
| PSSVOLU | ZFM+3~ |
| SCHED | ZFM+2~, ZFM+14*, ZFM+16 |
| SEG | PROCESS1+4~, MFI+2*, MFI+3*, MFI+4*, MFI+5*, MFI+6, MFE+1*, MFE+2*, MFE+3*, MFE+4 , ZFM+8*, ZFM+10*, ZFM+12*, ZFM+16*, ZFM+18*, ZFM+21*, ZFM+25*, ZFM+28*, ZFM+29*, ZFM+32* , ZFM+34*, ZFM+36*, ZFM+37 |
| SEGMENT | STORE~ |
| SEGMENT("HLS" | STORE+3 |
| SPNAM | EN+1~, EN+2*, EN+3, EN+4, EN+13, PROCESS1~, PROCESS1+8, TRANS+5 |
| STATUS | PROCESS1+3~ |
| U | TRANS+6, TRANS+8 |
| VAPROD | ZFM+23~* |
| VR | EN+1~, EN+3*, EN+4, EN+10*, EN+11* |
| X | ZFM+2~, ZFM+24* |
| XX | EN+1~, EN+5*, EN+6 |
| Y | ZFM+2~ |
