Routine: ABSPOSCE

Information

ABSPOSCE ; IHS/FCS/DRS - New entry in 9002313.02 ; [ 12/20/2002 11:24 AM ]

Source file <ABSPOSCE.m>

Package	Total	Call Graph
Pharmacy Point of Sale	10	EN^ABSP5B1 EN^ABSP5B2 EN^ABSPDB1 EN^ABSPDB2 $$DTF1^ABSPECFM $$CLAIMID^ABSPECX1 XLOOP^ABSPOSCF LOG59^ABSPOSQ $$NOWFM^ABSPOSU1 $$IMPOSS^ABSPOSUE
VA Fileman	2	^DIC IX1^DIK

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPOSC2 ABSPOSCA

Name	Comments	DBIA/ICR reference
PROCRX	;IHS/SD/lwj 8/1/02 This routine contains the calls to ; ABSPOSCF needed to actually get the values, and store them ; in the claim file. It was created as a result of the major ; segment changes that took place in NCPDP 5.1. For 3.2 claims ; we will still only call ABSPOSCF with nodes 30 and 40, but for ; 5.1 claims, we will call the routine with nodes 130, 140, 150, ; 160, 170, 180, 190, 200, 210, 220, 230. These nodes are defined ; in the ABSPF(9002313.92 file.
LOG(X)	; write the message to all of the log files for the IEN59's ; being bundled into this 9002313.02 claim (usually, up to 4 presc's)
NEWCLAIM(START,END,TOTAL)	;EP
L

Name	Line Occurrences
Function Call: WRITE	Prompt: "Creating CLAIMID ",CLAIMID,"...",! Line Location: L+4
Routine Call	DIC Line Location: L+6

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	L+57, L+61, L+99
^ABSPC - [#9002313.02]	L+14, L+21, L+22, L+72, L+83, L+84, L+112, L+113, L+114, L+116 , L+117
^TMP(	L+2
^TMP("ABSPOSCE"	L, L+7

Name	Field # of Occurrence
>> ABSP(	L+11, L+12, L+14, L+21, L+22, L+48, L+72, L+83, L+84, L+85* , L+112, L+113, L+114, L+116, L+117, L+121
>> ABSP("Insurer"	L+15
>> ABSP("NCPDP"	L+1, L+24, L+53, L+54, L+59, L+62, L+66, L+102, L+106, PROCRX+10 , PROCRX+11, PROCRX+13
>> ABSP("Patient"	L+22
>> ABSP("RX"	L+80, L+82, L+84, LOG+4
>> ABSP("Transac	tion Code" , L+24, tion Count" , L+33, L+34*
CLAIMID	NEWCLAIM+2~, L+1*, L+2, L+5, L+12
COUNT	NEWCLAIM+2~, L+74, L+77, L+115
DA	NEWCLAIM+2~, L+121*
DIC	NEWCLAIM+2~, L+5*
DIC(0	L+5*
DIK	NEWCLAIM+2~, L+120*
DLAYGO	NEWCLAIM+2~, L+5*
END	NEWCLAIM~, L+75, LOG+3
>> ERROR	L+2, L+8
I	LOG+2~, LOG+3*, LOG+4
IEN59	LOG+2~, LOG+4*, LOG+5
INDEX	NEWCLAIM+2~, L+75*, L+79, L+80, L+81, L+82, L+83, L+84, L+85, L+104 , L+105, L+108, L+109, L+112, L+113, PROCRX+13
NODE0	NEWCLAIM+2~, L+14, L+15, L+17, L+20, L+21, L+78, L+79, L+80, L+81 , L+82, L+83, L+114, L+115, L+116, L+117
ROU	NEWCLAIM+2~*, L+3, L+9, L+12
SEG	L+52~, L+58, L+59, PROCRX+9~, PROCRX+12, PROCRX+13
SEGBEG	L+52~, L+53, L+54, L+58, PROCRX+9~, PROCRX+10, PROCRX+11, PROCRX+12
SEGEND	L+52~, L+53, L+54, L+58, PROCRX+9~, PROCRX+10, PROCRX+11, PROCRX+12
START	NEWCLAIM~, L+75, LOG+3
TOTAL	NEWCLAIM~, L+24, L+33, L+34, L+63, L+67, L+103, L+107
U	L+15, L+17, L+20, L+22, L+79, L+80, L+81, L+82, L+84, L+115 , L+116
X	NEWCLAIM+2~, L+5*, LOG~, LOG+5
Y	NEWCLAIM+2~, L+6*, L+8, L+11