Routine: ABSPECR2

Package	Total	Call Graph
VA Fileman	2	$$GET1^DID $$GET1^DIQ

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPECR1

Entry Points

Name	Comments	DBIA/ICR reference
GS	; where a group separator occurs
CLAIM(N)	; where 2nd, 3rd, 4th claims go
EN1	;
EN2(NEXTIEN)	;
R2HEADER(IEN)	;
R2(IEN)	;EP -

Name	Field # of Occurrence
$$GET1^DID	R2HEADER+9
$$GET1^DIQ	R2+11, R2+44, R2HEADER+1, R2HEADER+4, R2HEADER+10

Name	Line Occurrences
Function Call: WRITE	Prompt: "Claim Header (Required) Record:",!! Line Location: R2+8
Function Call: WRITE	Prompt: "Claim Header (Optional) Record:",!! Line Location: R2+9
Function Call: WRITE	Prompt: ! Line Location: R2+12
Function Call: WRITE	Prompt: "Claim Information (Required) Record:",!! Line Location: R2+14
Function Call: WRITE	Prompt: "Claim Information (Optional) Record:",!! Line Location: R2+15
Function Call: WRITE	Prompt: " ",$J(POSITION,3)," " Line Location: GS+1
Function Call: WRITE	Prompt: "Group Separator ($C(29))",! Line Location: GS+2
Function Call: WRITE	Prompt: ! Line Location: CLAIM+1
Function Call: WRITE	Prompt: " ",$J(POSITION,3) Line Location: CLAIM+3
Function Call: WRITE	Prompt: "-",$J(POSITION+CLAIMLEN-1,3)," " Line Location: CLAIM+4
Function Call: WRITE	Prompt: "Claim #",N,! Line Location: CLAIM+5
Function Call: WRITE	Prompt: $$GET1^DIQ(9002313.92,IENS,.01) Line Location: R2HEADER+1
Function Call: WRITE	Prompt: " (`",IEN,")",! Line Location: R2HEADER+2
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","-"),! Line Location: R2HEADER+3
Function Call: WRITE	Prompt: $$GET1^DID(9002313.92,FIELD,,"LABEL"),": " Line Location: R2HEADER+9
Function Call: WRITE	Prompt: $$GET1^DIQ(9002313.92,IENS,FIELD) Line Location: R2HEADER+10
Function Call: WRITE	Prompt: ! Line Location: R2HEADER+11

FileNo	Call Tags
^ABSPF(9002313.92 - [#9002313.92]	GET1^DID, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ABSPF(9002313.91 - [#9002313.91]	R2+26, R2+57
^ABSPF(9002313.92 - [#9002313.92]	R2+18, R2+20, R2+22, R2+62, R2+64
^DD(9002313.92	R2HEADER+6

Name	Field # of Occurrence
CLAIMLEN	R2+43~*, CLAIM+4, CLAIM+6
FDATA	R2+1~, R2+26*, R2+27, R2+31, R2+40
FIELD	R2HEADER+5~, R2HEADER+6, R2HEADER+7, R2HEADER+8, R2HEADER+9, R2HEADER+10
FIEN	R2+1~, R2+24, R2+25, R2+26, R2+29, R2+55, R2+56, R2+57
GCODE	R2+1~, R2+64*, R2+65
GN	R2+1~, R2+60, R2+61, R2+62, R2+63, R2+64, R2+65
GSPOS	R2+2~, R2+13*, R2+43
IEN	R2~, R2+3, R2+5, R2+18, R2+20, R2+22, R2+62, R2+64, R2HEADER~, R2HEADER+2
IENS	R2+3~*, R2+11, R2+44, R2HEADER+1, R2HEADER+4, R2HEADER+10
IOM	R2+4~*, R2HEADER+3
LENGTH	R2+2~, R2+27, R2+28, R2+33, R2+34, R2+38
MDATA	R2+1~, R2+22, R2+23, R2+24, R2+29, R2+39
MIEN	R2+1~, R2+20, R2+21, R2+22, R2+29, R2+51, R2+52, R2+53*, R2+54, R2+55 , R2+62, R2+64
N	R2+44*, CLAIM~, CLAIM+5
NEXTIEN	EN1+8*, EN1+9, EN2~, EN2+3
NODE	R2+1~, R2+6, R2+8, R2+9, R2+10, R2+15, R2+18, R2+20, R2+22, R2+28 , R2+29, R2+48, R2+49, R2+53, R2+55, R2+62, R2+64
ORDER	R2+1~, R2+16, R2+17, R2+18, R2+19, R2+20, R2+30
POSITION	R2+2~, R2+13, R2+32, R2+34, R2+38, R2+43, GS+1, GS+3, CLAIM+3, CLAIM+4 , CLAIM+6
RDATA	R2+1~, R2+57*, R2+58, R2+59
U	R2+23, R2+24, R2+27, R2+29, R2+31, R2+39, R2+40, R2+59
XFLAG	R2+1~, R2+46
XFLAG(	R2+29*, R2+49, R2+53, R2+55