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 |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSAE

Package: Pharmacy Point of Sale

Routine: ABSPOSAE


Information

ABSPOSAE ; IHS/SD/lwj - send/receive E1 trans ; [ 10/07/2005 2:11 pM ]

Source Information

Source file <ABSPOSAE.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Pharmacy Point of Sale 12 $$DEVICE^ABSPOS6D  ($$IO,$$T1DIRECT)^ABSPOSA  (CLOSE,HANGUP)^ABSPOSAB  $$CONNECT^ABSPOSAQ  $$GETMSG^ABSPOSAR  SENDREQ^ABSPOSAS  DISPLAY^ABSPOSE2  PARSEE1^ABSPOSH4  
LOG^ABSPOSL2  ($$JOBCOUNT,$$MAXJOBS,$$SHUTDOWN,ENDJOB99)^ABSPOSQ3  BYE^ABSPOSU5  IMPOSS^ABSPOSUE  
VA Fileman 3 NOW^%DTC  ^DIC  (,WP)^DIE  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Pharmacy Point of Sale 4 ABSP5E1  ABSPDE1  ABSPOSE1  ABSPOSE2  

Entry Points

Name Comments DBIA/ICR reference
FILEMIN ; This subroutine will take out the data that was parsed
; out for the message and insurance segments and file it
; in the ^ABSPE file.
CONNERR ; can't connect - let user know and ask them to try again
; later
FILEDT ;this subroutine simply gets the current date and time
; and files it in the .03 field in ^ABSPE file.
FILESTS ;EP - NCPDP 5.1, D.0 response processing
; basic logic borrowed from ABSPOSH6
; process the response status segment - here's the fields we MIGHT
; encounter:
; 112 - transaction response status (mandatory)
; 503 - authorization number
; 510 - reject count
; 511 - reject code (repeating field)
; 546 - reject field occurrence indicator (repeating field)
; 547 - approved message code count
; 548 - approved message code (repeating field)
; 526 - additional message information
; 549 - help desk phone number qualifier
; 550 - help desk phone number
MESBLD ; Build the 504 message from the D.0 data
S12 ;
PRNTRESP ; let's print the response for them to see
REPAPP ; This subroutine will process the approved repeating field
; that is a part of the status segment.
; Field 548 - Approved Message Code
RECERR ; this will record that the response was not received in the 9999999
; field in the ^ABSPE file
ERRCPRC ; can't send just now - claims are processing - ask user to
; try again later
CLMSMSG ; let the user know that we are processing - please stand by
SHUTERR ; user requested that the comm line be shut down - can't
; process right now
ERRRESP ; we didn't get a good response - let user now, log it in the
; raw message in ^ABSPE
SEND(E1MSG,E1IEN) ;EP - from ABSPOSE1/ABSPOSE2
REPREJ ; This subroutine will process the reject repeating fields
; that are a part of the status segment.
; Two fields here - 511 - Reject Code and
; 546 - Reject field occurrence indicator
PRCRESP ; this subroutine is responsible for facilitating the parsing of the
; raw response and storing the information in ^ABSPE. We will leave
; the displaying of the data up to ^ABSPOSE1/^ABSPOSE2.
DIALOUT()
CALLOIT ; this is standard for all messages when we are communicating
; with the user
ADDBLD ;Build Field 526 - Additional message from D.0 fields

External References

Name Field # of Occurrence
NOW^%DTC FILEDT+4
$$DEVICE^ABSPOS6D PRNTRESP+4
$$IO^ABSPOSA S12+2
$$T1DIRECT^ABSPOSA S12+7
CLOSE^ABSPOSAB S12+36, RECERR+13
HANGUP^ABSPOSAB S12+32
$$CONNECT^ABSPOSAQ S12+12
$$GETMSG^ABSPOSAR S12+24
SENDREQ^ABSPOSAS S12+17
DISPLAY^ABSPOSE2 PRNTRESP+7
PARSEE1^ABSPOSH4 PRCRESP+16
LOG^ABSPOSL2 PRCRESP+12, RECERR+6
$$JOBCOUNT^ABSPOSQ3 SEND+20
$$MAXJOBS^ABSPOSQ3 SEND+20
$$SHUTDOWN^ABSPOSQ3 S12+9
ENDJOB99^ABSPOSQ3 S12+37, RECERR+14
BYE^ABSPOSU5 PRNTRESP+8
IMPOSS^ABSPOSUE SEND+25, S12+5
^DIC REPREJ+26, REPAPP+23
^DIE FILESTS+30, REPREJ+32, RECERR+11
WP^DIE PRCRESP+11, RECERR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Waiting to make a connection - please stand by."
  • Line Location: CLMSMSG+3
Function Call: WRITE
  • Prompt: !!,"*****************************************************",!
  • Line Location: SHUTERR+8
Function Call: WRITE
  • Prompt: "* COMM line is shut down- UNABLE to send *",!
  • Line Location: SHUTERR+9
Function Call: WRITE
  • Prompt: "* the eligibility check at this time. *",!
  • Line Location: SHUTERR+10
Function Call: WRITE
  • Prompt: !!,"*****************************************************",!
  • Line Location: CONNERR+8
Function Call: WRITE
  • Prompt: "* UNABLE to send *",!
  • Line Location: CONNERR+9
Function Call: WRITE
  • Prompt: "* the eligibility check at this time. *",!
  • Line Location: CONNERR+10
Function Call: WRITE
  • Prompt: !!,"*****************************************************",!
  • Line Location: ERRCPRC+8
Function Call: WRITE
  • Prompt: "* Claims are currently being sent - connection **",!
  • Line Location: ERRCPRC+9
Function Call: WRITE
  • Prompt: "* required for eligibility check is unavailable. *",!
  • Line Location: ERRCPRC+10
Function Call: WRITE
  • Prompt: !!,"*****************************************************",!
  • Line Location: ERRRESP+8
Function Call: WRITE
  • Prompt: "* Response was corrupt, or did not come back. *",!
  • Line Location: ERRRESP+9
Function Call: WRITE
  • Prompt: "* *",!
  • Line Location: CALLOIT+3
Function Call: WRITE
  • Prompt: "* Please wait a few minutes and try again. *",!
  • Line Location: CALLOIT+4
Function Call: WRITE
  • Prompt: "* *",!
  • Line Location: CALLOIT+5
Function Call: WRITE
  • Prompt: "* If the problem persist, please contact *",!
  • Line Location: CALLOIT+8
Function Call: WRITE
  • Prompt: "* your local helpdesk. *",!
  • Line Location: CALLOIT+9
Function Call: WRITE
  • Prompt: "*****************************************************",!!
  • Line Location: CALLOIT+11
Routine Call
  • DIE
  • Line Location:
    • FILESTS+30
    • REPREJ+32
    • RECERR+11
Routine Call
  • DIC
  • Line Location:
    • REPREJ+26
    • REPAPP+23
Routine Call
  • DIE
  • Line Location:
    • PRCRESP+11
    • RECERR+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSPR - [#9002313.03] Classic Fileman Calls
^ABSPE - [#9002313.7] Classic Fileman Calls,  WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.55 - [#9002313.55] DIALOUT+4, DIALOUT+5
^ABSP(9002313.99 - [#9002313.99] DIALOUT+3
^ABSPECX("ABSPOSQ3" SEND+14*, SEND+15*, SEND+21
^DD(9002313.7 REPREJ+14, REPAPP+14

Label References

Name Line Occurrences
$$DIALOUT SEND+8
ADDBLD FILESTS+25
CALLOIT SHUTERR+11, CONNERR+11, ERRCPRC+11, ERRRESP+10
CLMSMSG SEND+31
CONNERR S12+13
ERRCPRC SEND+33
ERRRESP S12+34
FILEDT PRCRESP+21
FILEMIN PRCRESP+22
FILESTS PRCRESP+23
MESBLD FILEMIN+5
PRCRESP S12+41
PRNTRESP S12+43
RECERR SEND+24, S12+4, SHUTERR+5, CONNERR+5, ERRCPRC+5, ERRRESP+5
REPAPP FILESTS+35
REPREJ FILESTS+34
SHUTERR S12+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% FILEDT+3~, FILEDT+5
ABSPERR SEND+16~, SEND+17*, SEND+18, SEND+23*, SEND+26, SEND+28, SEND+32
ACK SEND+3~, SEND+4*
APP REPAPP+4~
CNTR REPREJ+5~, REPREJ+21*, REPREJ+23, REPREJ+24, REPAPP+4~, REPAPP+20*, REPAPP+22
COUNT REPREJ+5~, REPREJ+8*, REPREJ+9, REPREJ+21, REPAPP+4~, REPAPP+7*, REPAPP+8, REPAPP+20
DA S12+29~, S12+30*, PRCRESP+5~, PRCRESP+20*, FILESTS+33!, REPREJ+6~, REPREJ+28~, REPREJ+30*, REPAPP+5~, RECERR+3~
, RECERR+8*
DA(1 REPREJ+13*, REPREJ+30*, REPAPP+13*
DIALOUT SEND+7~, SEND+8*, SEND+15, S12+2, S12+5, S12+7, S12+12, S12+17, S12+24, S12+32
, S12+36, RECERR+13
DIC REPREJ+6~, REPREJ+12*, REPREJ+29, REPAPP+5~, REPAPP+12*
DIC("P" REPREJ+14*, REPAPP+14*
DIC(0 REPREJ+15*, REPAPP+15*
DIE S12+29~, S12+30*, PRCRESP+5~, PRCRESP+19!, PRCRESP+20*, FILESTS+33!, REPREJ+6~, REPREJ+28~, REPREJ+29*, REPAPP+5~
, RECERR+3~, RECERR+9*
DLAYGO REPREJ+6~, REPREJ+16*
DR S12+29~, S12+30*, PRCRESP+5~, FILEDT+5*, FILEMIN+6*, FILEMIN+9*, FILEMIN+10*, FILEMIN+11*, FILEMIN+12*, FILEMIN+13*
, FILESTS+17*, FILESTS+18*, FILESTS+21*, FILESTS+22*, FILESTS+26*, FILESTS+27*, FILESTS+28*, REPREJ+6~, REPREJ+28~, REPREJ+31*
, REPAPP+5~, RECERR+3~, RECERR+10*
E1IEN SEND~, S12+30, PRCRESP+11, PRCRESP+16, PRCRESP+20, REPREJ+12, REPREJ+13, REPREJ+30, REPAPP+12, REPAPP+13
, PRNTRESP+7, RECERR+5, RECERR+8
E1MSG SEND~, S12+17
ENQ SEND+3~, SEND+4*
EOT SEND+3~, SEND+4*
ETB SEND+3~, SEND+5*
ETX SEND+3~, SEND+4*
FDATA PRCRESP+4~
FDATA("M" FILEMIN+5, MESBLD+3, MESBLD+4, MESBLD+5, MESBLD+6, MESBLD+7, MESBLD+8, MESBLD+9, MESBLD+10, MESBLD+11
, MESBLD+12, MESBLD+13, MESBLD+14, MESBLD+15, MESBLD+16, MESBLD+17, MESBLD+18, MESBLD+19, FILESTS+17, FILESTS+18
, FILESTS+21, FILESTS+22, FILESTS+25, FILESTS+26, FILESTS+27, FILESTS+28, FILESTS+34, FILESTS+35, REPREJ+8, REPREJ+23
, REPREJ+24, REPAPP+7, REPAPP+22, ADDBLD+4, ADDBLD+6, ADDBLD+7, ADDBLD+8, ADDBLD+9, ADDBLD+10, ADDBLD+11
, ADDBLD+12, ADDBLD+13*
FDATA(102 FILEMIN+5, FILESTS+25
FDATA(301 FILEMIN+9
FDATA(504 FILEMIN+6, MESBLD+20*
FDATA(524 FILEMIN+10
FDATA(545 FILEMIN+11
FDATA(568 FILEMIN+12
FDATA(569 FILEMIN+13
>> HMSG S12+24*, S12+28, S12+30, S12+32, S12+33
I PRCRESP+4~, PRCRESP+10*, ADDBLD+1~, ADDBLD+3*, ADDBLD+4, ADDBLD+6, ADDBLD+7, ADDBLD+8, ADDBLD+9, ADDBLD+10
, ADDBLD+11, ADDBLD+12
IO S12+2~*, S12+3, PRNTRESP+5
LVL ADDBLD+1~, ADDBLD+4*, ADDBLD+5
MEDN FILESTS+15~, FILESTS+16*, FILESTS+17, FILESTS+18, FILESTS+21, FILESTS+22, FILESTS+26, FILESTS+27, FILESTS+28, FILESTS+34
, FILESTS+35, REPREJ+8, REPREJ+23, REPREJ+24, REPAPP+7, REPAPP+22, ADDBLD+13
NAK SEND+3~, SEND+5*
RESPLRC SEND+7~, S12+24
RESPMSG SEND+7~, S12+24, PRCRESP+7
>> RET S12+12*, S12+13, S12+31, S12+33*, ERRRESP+4
RJOC REPREJ+5~, REPREJ+22*, REPREJ+24*, REPREJ+27, REPREJ+31
RREC PRCRESP+4~, PRCRESP+7*, PRCRESP+10, PRCRESP+16
SENDE1 SEND+7~, SEND+9*, SEND+18, SEND+27*, SEND+29, SEND+33
STX SEND+3~, SEND+5*
T1LINE S12+7~*
TRYCNT SEND+7~, SEND+9*, SEND+18, SEND+30*
U DIALOUT+3
WP PRCRESP+4~, SHUTERR+3~, SHUTERR+4*, CONNERR+3~, CONNERR+4*, ERRCPRC+3~, ERRCPRC+4*, ERRRESP+3~, ERRRESP+4*
WP( PRCRESP+10*
X FILEDT+3~, MESBLD+2~, MESBLD+3*, MESBLD+4*, MESBLD+5*, MESBLD+6*, MESBLD+7*, MESBLD+8*, MESBLD+9*, MESBLD+10*
, MESBLD+11*, MESBLD+12*, MESBLD+13*, MESBLD+14*, MESBLD+15*, MESBLD+16*, MESBLD+17*, MESBLD+18*, MESBLD+19*, MESBLD+20
, REPREJ+6~, REPREJ+17*, REPREJ+22*, REPREJ+23*, REPREJ+25, REPAPP+5~, REPAPP+16*, REPAPP+21*, REPAPP+22*, REPAPP+23
, ADDBLD+1~, ADDBLD+2*, ADDBLD+5*, ADDBLD+6*, ADDBLD+7*, ADDBLD+8*, ADDBLD+9*, ADDBLD+10*, ADDBLD+11*, ADDBLD+12*
, ADDBLD+13, DIALOUT+3*, DIALOUT+4*, DIALOUT+5*, DIALOUT+6
Y MESBLD+2~, MESBLD+3*, MESBLD+4*, MESBLD+5*, MESBLD+6*, MESBLD+7*, MESBLD+8*, MESBLD+9*, MESBLD+10*, MESBLD+11*
, MESBLD+12*, MESBLD+13*, MESBLD+14*, MESBLD+15*, MESBLD+16*, MESBLD+17*, MESBLD+18*, MESBLD+19*, REPREJ+30, ADDBLD+1~
, ADDBLD+6*, ADDBLD+7*, ADDBLD+8*, ADDBLD+9*, ADDBLD+10*, ADDBLD+11*, ADDBLD+12*
ZERR PRCRESP+4~, PRCRESP+12, RECERR+3~, RECERR+6

Marked Items

Name Field # of Occurrence
$T( SEND+25, S12+5
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 |  Marked Items |  All