Routine: ABSPOSC2

Call Graph Total: 11

Package	Total	Call Graph
Pharmacy Point of Sale	9	$$REVERSE^ABSPECA8 ZWRITE^ABSPOS (PRINT02,PRINT03)^ABSPOSAY RUNTEST^ABSPOSC3 NEWCLAIM^ABSPOSCE (INIT,LOG,PRINTLOG)^ABSPOSL PASCII1^ABSPOSQH COMMSLOG^ABSPOSU6 IMPOSS^ABSPOSUE
VA Fileman	2	^DIE $$GET1^DIQ

Package

Total

Call Graph

$$REVERSE^ABSPECA8 ZWRITE^ABSPOS (PRINT02,PRINT03)^ABSPOSAY RUNTEST^ABSPOSC3 NEWCLAIM^ABSPOSCE (INIT,LOG,PRINTLOG)^ABSPOSL PASCII1^ABSPOSQH COMMSLOG^ABSPOSU6
IMPOSS^ABSPOSUE

VA Fileman

^DIE $$GET1^DIQ

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSC4

Package

Total

Caller Graph

Pharmacy Point of Sale

ABSPOSC4

Entry Points

Name	Comments	DBIA/ICR reference
REVERSAL(ENTRY,N)
ALL	; Construct packets for all entries in 9002313.31
SETABSP(ENTRY)	; Construct packet for just one entry in 9002313.31
LOG	;EP -
SEND(ENTRY)
PACKET(ENTRY,DIALOUT,DUMPABSP)
SETABSP1(FIELD,VALUE,N)
SAVEABSP
P12
PRINTR(IEN31)	;
TABLE	;
MYIEN59(N)	; a fake number
TEST(ENTRY)
PRINT(IEN31,FLAG)	;
DIALOUT()
PRINTLOG(N)	; print the log file for test claim number N

External References

Name	Field # of Occurrence
$$REVERSE^ABSPECA8	REVERSAL+8
ZWRITE^ABSPOS	PACKET+3
PRINT02^ABSPOSAY	PRINT+5
PRINT03^ABSPOSAY	P12+2
RUNTEST^ABSPOSC3	SEND+2
NEWCLAIM^ABSPOSCE	PACKET+6
INIT^ABSPOSL	SETABSP+39
LOG^ABSPOSL	REVERSAL+1
PRINTLOG^ABSPOSL	PRINTLOG+1
PASCII1^ABSPOSQH	REVERSAL+14, PACKET+9
COMMSLOG^ABSPOSU6	LOG+2
IMPOSS^ABSPOSUE	ALL+1, REVERSAL+7, REVERSAL+11
^DIE	REVERSAL+17, PACKET+10
$$GET1^DIQ	SETABSP+11, SETABSP+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Testing in ",$T(+0),! Line Location: TEST+1
Function Call: WRITE	Prompt: "Field .04 in 9002313.31 needs to have pointer to insurer.",! Line Location: TEST+3
Function Call: WRITE	Prompt: "Input: 9002313.31 entry `",ENTRY,! Line Location: TEST+6
Function Call: WRITE	Prompt: "Output: 9002313.02 entry `",X,! Line Location: TEST+7
Function Call: WRITE	Prompt: !,"To send this claim, DO SEND^ABSPOSC2(",ENTRY,")",! Line Location: TEST+8
Function Call: WRITE	Prompt: "Reversal: 9002313.02 entry `",REVERSAL,! Line Location: REVERSAL+9
Function Call: WRITE	Prompt: "The log file can be viewed by DO LOG^",$T(+0),! Line Location: SEND+3
Function Call: WRITE	Prompt: !,"At the prompt, just type RES to get the RESERVED - DO NOT USE",! Line Location: LOG+1
Function Call: WRITE	Prompt: "IEN31=",IEN31,! Line Location: PRINT+1
Function Call: WRITE	Prompt: "No claim for IEN31=",IEN31,! Line Location: PRINT+3
Function Call: WRITE	Prompt: "No response for CLAIM=",CLAIM,! Line Location: P12+1
Function Call: WRITE	Prompt: "Create 9002313.02 claim for " Line Location: SETABSP+1
Function Call: WRITE	Prompt: $P(^ABSP(9002313.31,ENTRY,0),U),! Line Location: SETABSP+2
Function Call: WRITE	Prompt: !,"Failed to find field ",FIELD," in TABLE^",$T(+0),! Line Location: SETABSP1+7
Routine Call	DIE Line Location: REVERSAL+17 PACKET+10

FileNo	Call Tags
^ABSPEI - [#9002313.4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.31 - [#9002313.31]	TEST+2, REVERSAL+5, SEND+1, PRINT+2, PACKET+5, SETABSP+2, SETABSP+3, SETABSP+4, SETABSP+22, SETABSP+24 , SETABSP+28, SETABSP+30, SETABSP+31
^ABSP(9002313.55 - [#9002313.55]	DIALOUT
^ABSP(9002313.56 - [#9002313.56]	SETABSP+20
^ABSP(9002313.99 - [#9002313.99]	SETABSP+8
^ABSPC - [#9002313.02]	REVERSAL+1
^ABSPC(0	PACKET+7
^ABSPEI - [#9002313.4]	SETABSP+6
^ABSPF(9002313.91 - [#9002313.91]	SETABSP+25, SETABSP+32
^ABSPF(9002313.92 - [#9002313.92]	SETABSP+17, SETABSP+18, SETABSP+19
^ABSPR("B"	P12
^TMP($J	SAVEABSP!, SAVEABSP+2*

Name	Line Occurrences
$$DIALOUT	TEST+4, REVERSAL+14, SEND+2
$$MYIEN59	SETABSP+38, PRINTLOG+1
$$PACKET	TEST+5
P12	PRINT+4
PRINT	PRINTR+1
SAVEABSP	PACKET+4
SETABSP	PACKET+2
SETABSP1	SETABSP+26, SETABSP+33
TEST	REVERSAL+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SAVEABSP+1~, SAVEABSP+2
A	SETABSP+21~, SETABSP+22, SETABSP+24, SETABSP+29~, SETABSP+30, SETABSP+31
ABSP	PACKET+1~
ABSP("Envoy T	erminal ID" , SETABSP+20*
ABSP("Insurer"	SETABSP+3*, SETABSP+6
ABSP("NCPDP"	SETABSP+6, SETABSP+10, SETABSP+12, SETABSP+13, SETABSP+14, SETABSP+17, SETABSP+18, SETABSP+19*
ABSP("Patient"	SETABSP+41*
ABSP("RX"	SETABSP+38*, SETABSP+39
ABSP("Site"	SETABSP+4, SETABSP+5, SETABSP+35*
CLAIM	PRINT+2~*, PRINT+3, PRINT+5, P12, P12+1
CLAIMIEN	REVERSAL+13~, REVERSAL+14, PACKET+7~, PACKET+10, PACKET+11
COUNT	REVERSAL+13~, PACKET+8~
DA	REVERSAL+17, PACKET+10~
DIALOUT	TEST+4~, TEST+5, REVERSAL+13~, REVERSAL+14, PACKET~
DIE	REVERSAL+17~, PACKET+10~
DO	SETABSP+9~, SETABSP+10*, SETABSP+11, SETABSP+14
DR	REVERSAL+17, PACKET+10~
DUMPABSP	PACKET~, PACKET+3, PACKET+4
ENTRY	TEST~, TEST+2, TEST+5, TEST+6, TEST+8, REVERSAL~, REVERSAL+4, REVERSAL+5, REVERSAL+17, SEND~ , SEND+1, PACKET~, PACKET+2, PACKET+5, PACKET+10, SETABSP~, SETABSP+2, SETABSP+3, SETABSP+4, SETABSP+22 , SETABSP+24, SETABSP+28, SETABSP+30, SETABSP+31
FIELD	SETABSP+25~, SETABSP+26, SETABSP+32~, SETABSP+33, SETABSP1~, SETABSP1+4, SETABSP1+7
FLAG	PRINT~, PRINT+4
I	SETABSP1+2~*
IEN02	SEND+1~*, SEND+2
IEN31	PRINT~, PRINT+1, PRINT+2, PRINT+3, PRINTR~, PRINTR+1
N	REVERSAL~, REVERSAL+8, PACKET+5~, PACKET+6, SETABSP+21~, SETABSP+27, SETABSP+28*, SETABSP+30, SETABSP+31, SETABSP+33 , SETABSP+38, SETABSP+39, PRINTLOG~, PRINTLOG+1, MYIEN59~, MYIEN59+1, SETABSP1~
OK	SETABSP1+1~, SETABSP1+2, SETABSP1+6, SETABSP1+7
ORIG	REVERSAL+5~*, REVERSAL+6, REVERSAL+8
RESP	P12~*, P12+1, P12+2
>> REV	REVERSAL+1
REVERSAL	REVERSAL+8~*, REVERSAL+9, REVERSAL+10, REVERSAL+14, REVERSAL+17
U	TEST+2, REVERSAL+1, REVERSAL+5, SEND+1, PRINT+2, PACKET+5, PACKET+7, SETABSP+2, SETABSP+3, SETABSP+4 , SETABSP+6, SETABSP+17, SETABSP+18, SETABSP+19, SETABSP+20, SETABSP+25, SETABSP+26, SETABSP+32, SETABSP+33
VALUE	SETABSP1~
VERSION	SETABSP+9~, SETABSP+11*, SETABSP+12, SETABSP+13
X	TEST+5~, TEST+7, SETABSP+24~, SETABSP+25, SETABSP+26, SETABSP+31, SETABSP+32, SETABSP+33, SETABSP1+3~, SETABSP1+4 , SETABSP1+5

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSC2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	ALL+1, TEST+1, REVERSAL+7, REVERSAL+11, SEND+3, SAVEABSP, SAVEABSP+2, SETABSP1+7
$T(TABLE+I	SETABSP1+2, SETABSP1+3