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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBFHLX1

Package: Fee Basis

Routine: FBFHLX1


Information

FBFHLX1 ;WOIFO/SAB-TRANSMIT HL7 MESSAGES TO FPPS (CON'T) ;9/9/2003

Source Information

Source file <FBFHLX1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 2 (FILE,WP)^DIE  $$GET1^DIQ  
Fee Basis 1 $$LAST^FBFHLU  
Health Level Seven 1 $$MSGSTAT^HLUTIL  
Kernel 1 $$FMTE^XLFDT  
MailMan 1 ^XMD  

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 FBFHLX  

Entry Points

Name Comments DBIA/ICR reference
CHKACK ; check for acknowledgements
; input - none
; output
; FBCNT("ACKT") - count of previously transmitted invoices w/o ack
; FBCNT("ACKA") - count of these that were accepted
; FBCNT("ACKR") - count of these that were rejected
; FBCNT("ACKW") - count of these that are still waiting for ack
; ^TMP($J,"FBNA",invoice number)="" - list waiting for ack
; update file 163.5
SUMMSG ; Summary Message (build and send)
; input
; ^TMP($J,"FBE",invoice number,seq number)=error text
; ^TMP($J,"FBW",invoice number,seq number)=warning text
; ^TMP($J,"FBNA",invoice number)="" for invoices not acknowledged
; ^TMP($J,"FBX",seq number)=message text so far
; FBXL = last line used in ^TMP($J,"FBX",seq number)
; FBXMIT("START") = start process, FileMan date/time
; FBXMIT("ACK") = start check for acks, FileMan date/time
; FBXMIT("SEND") = start transmit, FileMan date/time
; FBXMIT("END") = end process, FileMan date/time
; FBCNT("PENDT")= count of pending invoices that were transmitted
; FBCNT("PENDE")= count of pending invoices that had exception
; FBCNT("ACKT") = count of previously transmitted invoices w/o ack
; FBCNT("ACKA") = count of these that were accepted
; FBCNT("ACKR") = count of these that were rejected
; FBCNT("ACKW") = count of these that are still waiting for ack
; output
; ^TMP($J,"FBX",
; mail message
PTXT(FBXL,FBTXT) ; Post line of text in global array for summary message
; input
; FBXL - last line number used, passed by reference
; FBTXT - line of text
; output
; FBXL - increments value by 1
; ^TMP($J,"FBX",input line+1)=text

External References

Name Field # of Occurrence
FILE^DIE CHKACK+31, CHKACK+40, SUMMSG+74
WP^DIE CHKACK+42
$$GET1^DIQ SUMMSG+67
$$LAST^FBFHLU CHKACK+46
$$MSGSTAT^HLUTIL CHKACK+24
$$FMTE^XLFDT SUMMSG+24, SUMMSG+25, SUMMSG+30, SUMMSG+33, SUMMSG+80
^XMD SUMMSG+84

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBHL(163.5 - [#163.5] GET1^DIQ,  WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBHL(163.5 - [#163.5] CHKACK+16, CHKACK+18, SUMMSG+57, SUMMSG+61, SUMMSG+62
^TMP($J CHKACK+12!, CHKACK+49*, SUMMSG+24*, SUMMSG+25*, SUMMSG+26*, SUMMSG+27*, SUMMSG+28*, SUMMSG+29*, SUMMSG+30*, SUMMSG+31*
, SUMMSG+32*, SUMMSG+33*, SUMMSG+34*, SUMMSG+35*, SUMMSG+42, SUMMSG+44, SUMMSG+45, SUMMSG+53, PTXT+9*
^XTMP("FBFHLX" CHKACK+17*

Label References

Name Line Occurrences
PTXT SUMMSG+40, SUMMSG+41, SUMMSG+43, SUMMSG+46, SUMMSG+51, SUMMSG+52, SUMMSG+54, SUMMSG+59, SUMMSG+60, SUMMSG+64
, SUMMSG+70, SUMMSG+76, SUMMSG+77

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
FBAAIN CHKACK+9~, CHKACK+19*, CHKACK+20, CHKACK+49, SUMMSG+39~, SUMMSG+42*, SUMMSG+43, SUMMSG+44, SUMMSG+45, SUMMSG+50~
, SUMMSG+53*, SUMMSG+54, SUMMSG+58~, SUMMSG+63*, SUMMSG+64
>> FBCNT( CHKACK+13*
>> FBCNT("10K" SUMMSG+35
>> FBCNT("ACKA" CHKACK+32*, CHKACK+52, SUMMSG+27
>> FBCNT("ACKR" CHKACK+43*, CHKACK+52, SUMMSG+28
>> FBCNT("ACKT" CHKACK+52*, SUMMSG+26
>> FBCNT("ACKW" CHKACK+50*, CHKACK+52, SUMMSG+29, SUMMSG+49
>> FBCNT("PENDE" SUMMSG+32, SUMMSG+38
>> FBCNT("PENDT" SUMMSG+31
FBFDA CHKACK+27~, CHKACK+31, CHKACK+35~, CHKACK+40, SUMMSG+58~, SUMMSG+72!, SUMMSG+74
FBFDA( CHKACK+28*, CHKACK+29*, CHKACK+30*, CHKACK+36*, CHKACK+37*, CHKACK+38*, CHKACK+39*
FBFDA(163 SUMMSG+73*
FBI SUMMSG+58~, SUMMSG+68*, SUMMSG+69
FBL SUMMSG+39~, SUMMSG+44*, SUMMSG+45
FBMSGID CHKACK+9~, CHKACK+21*, CHKACK+22, CHKACK+24
FBQDA CHKACK+9~, CHKACK+16*, CHKACK+17, CHKACK+18, CHKACK+28, CHKACK+29, CHKACK+30, CHKACK+36, CHKACK+37, CHKACK+38
, CHKACK+39, CHKACK+42, CHKACK+46, SUMMSG+58~, SUMMSG+61*, SUMMSG+62, SUMMSG+67, SUMMSG+73
FBQY CHKACK+9~, CHKACK+18*, CHKACK+19, CHKACK+21, CHKACK+46, SUMMSG+62*, SUMMSG+63
FBSTATUS CHKACK+9~, CHKACK+24*, CHKACK+26, CHKACK+30, CHKACK+34, CHKACK+38, CHKACK+41
FBTXT CHKACK+35~, SUMMSG+58~, SUMMSG+69*, SUMMSG+70, PTXT~, PTXT+9
FBTXT(1 CHKACK+41*, CHKACK+42
FBWP SUMMSG+58~, SUMMSG+66!
FBWP( SUMMSG+68, SUMMSG+69
FBX CHKACK+9~, CHKACK+13*, SUMMSG+39~, SUMMSG+45*, SUMMSG+46, SUMMSG+58~, SUMMSG+67*
FBXL SUMMSG+40, SUMMSG+41, SUMMSG+43, SUMMSG+46, SUMMSG+51, SUMMSG+52, SUMMSG+54, SUMMSG+59, SUMMSG+60, SUMMSG+64
, SUMMSG+70, SUMMSG+76, SUMMSG+77, PTXT~, PTXT+8*, PTXT+9
>> FBXMIT("ACK" SUMMSG+25
>> FBXMIT("END" SUMMSG+33
>> FBXMIT("SEND" SUMMSG+30
>> FBXMIT("START" SUMMSG+24, SUMMSG+80
U CHKACK+17, CHKACK+19, CHKACK+21, CHKACK+26, CHKACK+30, CHKACK+34, CHKACK+38, CHKACK+41, CHKACK+46, SUMMSG+63
XMDUZ SUMMSG+21~, SUMMSG+81*
XMSUB SUMMSG+21~, SUMMSG+80*
XMTEXT SUMMSG+21~, SUMMSG+83*
XMY SUMMSG+21~
XMY("G.FEE" SUMMSG+82*
XMZ SUMMSG+21~
>> ZTSTOP SUMMSG+34
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All