Routine: ABSPOSAE

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

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

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSAE

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items