Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSSHLDFS

Package: Pharmacy Data Management

Routine: PSSHLDFS


Information

PSSHLDFS ;BIR/MHA - PADE HL7 SERVER ;6/10/15

Source Information

Source file <PSSHLDFS.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Generating HL7 message and Sending "_DRG_"-"_$P(^PSDRUG(DRG,0),"^"),!
  • Line Location: TRANS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call