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: FBFHLX

Package: Fee Basis

Routine: FBFHLX


Information

FBFHLX ;WOIFO/SAB - TRANSMIT HL7 MESSAGES TO FPPS ;7/14/14 16:08

Source Information

Source file <FBFHLX.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Fee Basis 5 FILEQUE^FBFHLL  EN^FBFHLS  ($$LAST,POST)^FBFHLU  (CHKACK,PTXT,SUMMSG)^FBFHLX1  TIME^FBFHLX2  
VA FileMan 3 ^DIC  (FILE,WP)^DIE  ^DIR  
Health Level Seven 2 INIT^HLFNC2  GENERATE^HLMA  
Kernel 2 $$S^%ZTLOAD  $$NOW^XLFDT  

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: 1

Package Total Caller Graph
Fee Basis 1 FB FPPS TRANSMIT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry Point
; may be called by scheduled option as non-interactive task
; may be called by user menu option as interactive task
ALL ; Transmit All Pending Invoices (interactive and non-interactive)
; input
; FBQUIT - boolean value (0 or 1), true if process should stop
; output
; FBQUIT - may change value
BYINV ; Transmit Selected Invoices (interactive)
INVOICE ; transmit invoice
; input
; FBQDA - ien of entry in file 163.5 to transmit, required
; output
; FBERR - error flag (0 or 1), true if error prevented transmit
; FBSTA - station number in transmitted message (may be null if err)
; FBTTYP - transaction type in transmitted message (may be null)
; ^TMP($J,"FBE",invoice number,#) - any exceptions
; ^TMP($J,"FBW",invoice number,#) - any warnings
MOVEHL ; Copy HL segment data into word-processing style array
; input
; ^TMP("HLS",$J, array
; output
; ^TMP($J,"HLSEG",#)=line of text
; there will be a blank line after each segment

External References

Name Field # of Occurrence
$$S^%ZTLOAD ALL+39
^DIC BYINV+15
FILE^DIE INVOICE+65
WP^DIE INVOICE+69
^DIR EN+20, EN+25, BYINV+28
FILEQUE^FBFHLL BYINV+32
EN^FBFHLS INVOICE+47
$$LAST^FBFHLU BYINV+20, BYINV+33
POST^FBFHLU INVOICE+25, INVOICE+34, INVOICE+39, INVOICE+55
CHKACK^FBFHLX1 ALL+31
PTXT^FBFHLX1 ALL+22, ALL+23
SUMMSG^FBFHLX1 ALL+54
TIME^FBFHLX2 ALL+16, ALL+51
INIT^HLFNC2 ALL+19, BYINV+5
GENERATE^HLMA INVOICE+52
$$NOW^XLFDT ALL+14, ALL+29, ALL+33, ALL+49, INVOICE+62

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,$C(7)_"You must hold the FBAA LEVEL 2 security key to transmit messages."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"This option transmits HL7 messages to FPPS for EDI invoices."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"Starting Process..."
  • Line Location: ALL+15
Function Call: WRITE
  • Prompt: !!,"Checking for acknowledgements..."
  • Line Location: ALL+30
Function Call: WRITE
  • Prompt: !!,"Transmitting Pending Invoices..."
  • Line Location: ALL+35
Function Call: WRITE
  • Prompt: !!,"Process complete. Sending Summary Message to G.FEE..."
  • Line Location: ALL+50
Function Call: WRITE
  • Prompt: !,$C(7),"ERROR: Couldn't initialize HL variables!"
  • Line Location: BYINV+7
Function Call: WRITE
  • Prompt: !,FBHL
  • Line Location: BYINV+8
Function Call: WRITE
  • Prompt: !,"Error, invalid data for invoice ",FBAAIN," in file 163.5"
  • Line Location: BYINV+21
Function Call: WRITE
  • Prompt: !,"Error adding entry to file 163.5. Can't re-transmit invoice."
  • Line Location: BYINV+39
Function Call: WRITE
  • Prompt: !,"Invoice has been transmitted to the HL7 package.",!!
  • Line Location: BYINV+45
Function Call: WRITE
  • Prompt: $C(7),!,"Problems prevented transmission of the invoice."
  • Line Location: BYINV+48
Function Call: WRITE
  • Prompt: !," ",$G(^TMP($J,"FBE",FBAAIN,FBL))
  • Line Location: BYINV+50
Function Call: WRITE
  • Prompt: !
  • Line Location: BYINV+51
Routine Call
  • DIC
  • Line Location:
    • BYINV+15
Routine Call
  • DIE
  • Line Location:
    • INVOICE+65
Routine Call
  • DIE
  • Line Location:
    • INVOICE+69
Routine Call
  • DIR
  • Line Location:
    • EN+20
    • EN+25
    • BYINV+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBHL(163.5 - [#163.5] Classic Fileman Calls,  WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBHL(163.5 - [#163.5] ALL+37, BYINV+19, BYINV+22, BYINV+34, INVOICE+21, INVOICE+24, INVOICE+30, INVOICE+73
^TMP("HLS" INVOICE+76!, MOVEHL+10, MOVEHL+11, MOVEHL+12, MOVEHL+13
^TMP($J ALL+57!, BYINV+49, BYINV+50, BYINV+54!, BYINV+55!, INVOICE+42, INVOICE+47, INVOICE+70!, MOVEHL+8!, MOVEHL+11*
, MOVEHL+13*, MOVEHL+14*
^XTMP("FBFHLX" ALL+40*
^XUSEC("FBAA LEVEL 2" EN+10

Label References

Name Line Occurrences
@( INVOICE+42
ALL EN+28
BYINV EN+29
INVOICE ALL+42, BYINV+42
MOVEHL INVOICE+68

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DIC BYINV+14*
>> DIC(0 BYINV+14*
DIR EN+20!, EN+25!, BYINV+28!
DIR("?" EN+15*, EN+16*, EN+17*, EN+18*, EN+19*
DIR("A" EN+14*, EN+24*, BYINV+27*
DIR(0 EN+13*, EN+24*, BYINV+26*
>> DIRUT EN+20, EN+25, BYINV+28
DUZ EN+10
FBAAIN BYINV+2~, BYINV+19*, BYINV+20, BYINV+21, BYINV+27, BYINV+32, BYINV+33, BYINV+49, BYINV+50, BYINV+54
, BYINV+55, INVOICE+24*, INVOICE+25, INVOICE+31*, INVOICE+32, INVOICE+39, INVOICE+42, INVOICE+47, INVOICE+55
FBCNT ALL+6~
FBCNT("10K" ALL+46*
FBCNT("PENDE" ALL+11*, ALL+44*, ALL+46
FBCNT("PENDT" ALL+10*, ALL+45*, ALL+46
>> FBD(0 INVOICE+43, INVOICE+44
FBERR ALL+6~, ALL+44, BYINV+2~, BYINV+45, BYINV+46, INVOICE+13*, INVOICE+18*, INVOICE+23*, INVOICE+28, INVOICE+33*
, INVOICE+35, INVOICE+38*, INVOICE+42*, INVOICE+47*, INVOICE+50, INVOICE+54*, INVOICE+58
FBFDA INVOICE+59~, INVOICE+65
FBFDA( INVOICE+60*, INVOICE+61*, INVOICE+62*, INVOICE+63*, INVOICE+64*
>> FBFILE INVOICE+36*, INVOICE+37, INVOICE+42
FBFTRACK ALL+6~, ALL+16
FBHL ALL+6~, ALL+19, ALL+20, ALL+23, BYINV+2~, BYINV+5, BYINV+6, BYINV+8
FBHL("ECH" ALL+26, BYINV+10
FBHL("FS" ALL+25, BYINV+9
FBI MOVEHL+7~, MOVEHL+10*, MOVEHL+11, MOVEHL+12, MOVEHL+13
FBII MOVEHL+7~, MOVEHL+12*, MOVEHL+13
FBL BYINV+47~, BYINV+49*, BYINV+50, MOVEHL+7~, MOVEHL+9*, MOVEHL+11*, MOVEHL+13*, MOVEHL+14*
FBMODE EN+4~, EN+8*, EN+21*, EN+23, EN+28, EN+29
FBQDA ALL+6~, ALL+37*, ALL+40, BYINV+2~, BYINV+16*, BYINV+19, BYINV+20*, BYINV+21, BYINV+22, BYINV+33*
, BYINV+34, INVOICE+18, INVOICE+21, INVOICE+24, INVOICE+25, INVOICE+30, INVOICE+34, INVOICE+39, INVOICE+60, INVOICE+61
, INVOICE+62, INVOICE+63, INVOICE+64, INVOICE+69, INVOICE+73
FBQUIT EN+4~, EN+5*, EN+10*, EN+20*, EN+25*, EN+26, ALL+21*, ALL+30, ALL+31, ALL+35
, ALL+37, ALL+39*, ALL+46*, BYINV+13, BYINV+15*, BYINV+28*
FBQY BYINV+22*, BYINV+25, BYINV+32, BYINV+34*, BYINV+35*, BYINV+38, INVOICE+29~, INVOICE+30*, INVOICE+31, INVOICE+36
FBRESULT INVOICE+51!, INVOICE+52, INVOICE+53, INVOICE+55, INVOICE+61
FBSTA ALL+6~, BYINV+2~, INVOICE+14*, INVOICE+44*, INVOICE+64
FBTTYP ALL+6~, BYINV+2~, INVOICE+15*, INVOICE+43*, INVOICE+63
FBX BYINV+2~, BYINV+25*, BYINV+27, BYINV+31, BYINV+38
FBXL ALL+6~, ALL+9*, ALL+22, ALL+23
FBXMIT ALL+6~
FBXMIT("ACK" ALL+29*
FBXMIT("END" ALL+49*, ALL+51
FBXMIT("SEND" ALL+33*
FBXMIT("START" ALL+14*, ALL+16
HLECH ALL+6~, ALL+26*, BYINV+2~, BYINV+10*
HLFS ALL+6~, ALL+25*, BYINV+2~, BYINV+9*
IOST EN+8, EN+9, ALL+15, ALL+30, ALL+35, ALL+50
U ALL+40, BYINV+19, BYINV+25, BYINV+32, BYINV+38, INVOICE+24, INVOICE+31, INVOICE+36, INVOICE+37, INVOICE+43
, INVOICE+44, INVOICE+53, INVOICE+55, INVOICE+61
>> Y EN+21, EN+25, BYINV+15, BYINV+16, BYINV+28
>> ZTQUEUED ALL+39
>> ZTSTOP ALL+39*
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