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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBHL(163.5 - [#163.5] Classic Fileman Calls,  WP^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call