FBFHLX1 ;WOIFO/SAB-TRANSMIT HL7 MESSAGES TO FPPS (CON'T) ;9/9/2003
Source file <FBFHLX1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| FileNo | Call Tags |
|---|---|
| ^FBHL(163.5 - [#163.5] | GET1^DIQ, WP^DIE |
| 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* |
| >> | 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 |
