Routine: ABSPOSH5

Information

ABSPOSH5 ; IHS/SD/lwj - Post 5.1 Claim Response ;8/7/02 [ 09/04/2002 12:57 PM ]

Source file <ABSPOSH5.m>

Package	Total	Call Graph
Pharmacy Point of Sale	4	(RESPCLM,RESPSTS)^ABSPOSH6 (RESPDUR,RESPPA,RESPPRC)^ABSPOSH7 CLNDATA^ABSPOSHU $$IMPOSS^ABSPOSUE

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPDR ABSPOSH4

Name	Comments	DBIA/ICR reference
WRTTMSN	; The purpose of this subroutine is to read through the ; FDATA transmission level fields, and write out the data ; to the ^ABSPR (ABSP Responses) file.
FILE(RESPIEN)	;EP - from ABSPOSH4
WRTTRAN	;The purpose of this routine is to write the transaction level ; information out to the ^ABSPR (ABSP Responses) file. ; **Special Note - the cross references and header for the subfiles ; are hard set within this subroutine - this is done to stay ; consistent with the original POS software (please see ABSPECA5)

Name	Line Occurrences (* Changed, ! Killed)
^ABSPC - [#9002313.02]	WRTTRAN+15
^ABSPR - [#9002313.03]	WRTTMSN+5, WRTTMSN+6, WRTTMSN+7, WRTTMSN+8, WRTTMSN+9, WRTTMSN+10, WRTTMSN+11, WRTTMSN+14, WRTTMSN+17, WRTTMSN+18 , WRTTMSN+19, WRTTMSN+20, WRTTMSN+21, WRTTRAN+14, WRTTRAN+29, WRTTRAN+42, WRTTRAN+45

Name	Line Occurrences
WRTTMSN	FILE+7
WRTTRAN	FILE+8

Name	Field # of Occurrence
CLAIMIEN	FILE+4~, WRTTRAN+11~, WRTTRAN+14*, WRTTRAN+15
COUNT	FILE+4~, WRTTRAN+11~, WRTTRAN+17, WRTTRAN+26, WRTTRAN+45
>> FDATA("M"	WRTTRAN+23
>> FDATA(102	WRTTMSN+5
>> FDATA(103	WRTTMSN+6
>> FDATA(109	WRTTMSN+7
>> FDATA(201	WRTTMSN+9
>> FDATA(202	WRTTMSN+10
>> FDATA(301	WRTTMSN+17
>> FDATA(401	WRTTMSN+11
>> FDATA(501	WRTTMSN+8
>> FDATA(504	WRTTMSN+14
>> FDATA(524	WRTTMSN+18
>> FDATA(545	WRTTMSN+19
>> FDATA(568	WRTTMSN+20
>> FDATA(569	WRTTMSN+21
INDEX	FILE+4~, WRTTRAN+11~, WRTTRAN+15, WRTTRAN+16, WRTTRAN+27*, WRTTRAN+29, WRTTRAN+42, WRTTRAN+45
MEDN	FILE+4~, WRTTRAN+11~, WRTTRAN+21, WRTTRAN+22, WRTTRAN+23, WRTTRAN+24
NEXT	FILE+4~
RESPIEN	FILE~, FILE+2, WRTTMSN+5, WRTTMSN+6, WRTTMSN+7, WRTTMSN+8, WRTTMSN+9, WRTTMSN+10, WRTTMSN+11, WRTTMSN+14 , WRTTMSN+17, WRTTMSN+18, WRTTMSN+19, WRTTMSN+20, WRTTMSN+21, WRTTRAN+14, WRTTRAN+29, WRTTRAN+42, WRTTRAN+45
RJTCODE	FILE+4~
RJTCOUNT	FILE+4~
RJTN	FILE+4~
U	WRTTMSN+5, WRTTMSN+6, WRTTMSN+7, WRTTMSN+8, WRTTMSN+9, WRTTMSN+10, WRTTMSN+11, WRTTMSN+14, WRTTMSN+17, WRTTMSN+18 , WRTTMSN+19, WRTTMSN+20, WRTTMSN+21, WRTTRAN+14

Name	Field # of Occurrence
$T(	FILE+2