Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Health Level Seven 3 $$HLDATE^HLFNC  INIT^HLFNC2  GENERATE^HLMA  
Kernel 2 $$NOW^XLFDT  $$KSP^XUPARAM  
National Drug File 2 C^PSN50P65  $$DFSU^PSNAPIS  
VA FileMan 2 EN^DDIOL  $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Data Management 2 PSSDEE  PSSMSTR  

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

External References

Name Field # of Occurrence
EN^DDIOL EN+4
$$GET1^DIQ PROCESS1+10
$$HLDATE^HLFNC PROCESS1+5
INIT^HLFNC2 PROCESS1+8
GENERATE^HLMA TRANS+5
C^PSN50P65 ZFM+31
$$DFSU^PSNAPIS ZFM+23
$$NOW^XLFDT PROCESS1+5
$$KSP^XUPARAM PROCESS1+10

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

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
$$GIVECODE MFE+2, ZFM+10
MFE PROCESS1+15
MFI PROCESS1+14
PROCESS1 EN+13
STORE MFI+7, MFE+5, ZFM+39
TRANS PROCESS1+17
ZFM PROCESS1+16

Local Variables

Legend:

>> 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All