PSSHLDFS ;BIR/MHA - PADE HL7 SERVER ;6/10/15
Source file <PSSHLDFS.m>
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 |