Routine: ABSPECP1

Information

ABSPECP1 ; IHS/FCS/DRS - printing for PCS ; [ 10/09/2002 8:01 AM ]

Source Information

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Pharmacy Point of Sale	3	$$DFF2EXT^ABSPECFM ($$DAW,$$REIMB,$$TCODE)^ABSPECP2 IMPOSS^ABSPOSUE
VA Fileman	1	EN^DIQ1

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPECP0 ABSPOS6E

Entry Points

Name	Comments	DBIA/ICR reference
SETCDUR	;------------------------------------------------------------
FORMAT	; ^UTILITY("DIQ1",$J,file,DA,field,*)->@TMP@(...)
INCLUDE(EFORMAT,FILE,FIELD)
FILEMAN(DEST,IEN,FIELDS,RX,RXFIELDS)
SETCDIAG	;
FM1
ISVARFLD(EFORMAT,FILE,FIELD)	; is it a variable length field?
FIELDID(FIELD)
2	; with RX determined
TEST
SETRDUR	;----------------------------------------------------------------
FETCH	;
FMTFIELD	; given FILE,DA,FIELD,@SRC@(FILE,DA,FIELD,"E" and "I"), set @TMP ; given INSURER and EFORMAT, too ; Fetch the INT and EXT values

Name	Field # of Occurrence
$$DFF2EXT^ABSPECFM	FMTFIELD+38, FMTFIELD+42
$$DAW^ABSPECP2	FMTFIELD+62
$$REIMB^ABSPECP2	FMTFIELD+63
$$TCODE^ABSPECP2	FMTFIELD+50
IMPOSS^ABSPOSUE	FMTFIELD+85, FM1+5
EN^DIQ1	2+23, SETCDUR+13, SETRDUR+13, SETCDIAG+13

Name	Line Occurrences
Function Call: WRITE	Prompt: "Internal error - no FORMAT for INSURER=",INSURER,! Line Location: FORMAT+16
Function Call: WRITE	Prompt: ^(X,0),! Line Location: 2+3

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	FORMAT+16, INCLUDE+19
^ABSPC - [#9002313.02]	SETCDUR+10, SETCDIAG+10
^ABSPEI - [#9002313.4]	FORMAT+14
^ABSPF(9002313.91 - [#9002313.91]	INCLUDE+16, FIELDID+9, FIELDID+12, FIELDID+13
^ABSPF(9002313.92 - [#9002313.92]	INCLUDE+25, INCLUDE+26
^ABSPF(9002313.93 - [#9002313.93]	2+5, 2+7
^ABSPR - [#9002313.03]	2+2, 2+4, 2+11, 2+12, 2+16, 2+17, SETRDUR+10
^ABSPR("B"	FILEMAN+14
^DD(	FMTFIELD+52
^DD("DD"	FMTFIELD+55
^UTILITY("DIQ1"	FILEMAN+12!

Name	Line Occurrences
$$FIELDID	INCLUDE+19, INCLUDE+28
$$INCLUDE	FORMAT+26, ISVARFLD+7, FMTFIELD+66
$$ISVARFLD	FMTFIELD+22
2	FETCH+6
FETCH	FM1+6
FILEMAN	TEST
FM1	FILEMAN+13, FILEMAN+16
FMTFIELD	FORMAT+30
FORMAT	FILEMAN+17
SETCDIAG	2+32
SETCDUR	2+26
SETRDUR	2+27

Name	Field # of Occurrence
^(0	2+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CKFLD	FMTFIELD+14~, FMTFIELD+41*, FMTFIELD+42
DA	FORMAT+7~, FORMAT+12, FORMAT+13, FORMAT+18, FORMAT+20, FORMAT+24, FORMAT+25, FORMAT+29, FMTFIELD+8, FMTFIELD+9 , FMTFIELD+70, FMTFIELD+75, FMTFIELD+77, FMTFIELD+82, FMTFIELD+84, FM1~, 2+19*
DA(	2+21, SETCDUR+11, SETRDUR+11, SETCDIAG+11
DEST	FILEMAN~, FMTFIELD+68, FMTFIELD+70, FMTFIELD+75, FMTFIELD+77, FMTFIELD+79, FMTFIELD+82, FMTFIELD+84, FM1+5, 2+8 , 2+14, 2+18
DIAGCNT	SETCDIAG+4~, SETCDIAG+6, SETCDIAG+10, SETCDIAG+11
DIC	FM1~, 2+19*
DIQ	FM1~
DIQ(0	2+19, SETCDUR+12, SETRDUR+12, SETCDIAG+12
DR	FM1~, 2+19*
DR(	2+22, SETCDUR+7, SETCDUR+8, SETRDUR+7, SETRDUR+8, SETCDIAG+7, SETCDIAG+8*
DURCNT	SETCDUR+4~, SETCDUR+6, SETCDUR+10, SETCDUR+11, SETRDUR+4~, SETRDUR+6, SETRDUR+10, SETRDUR+11
EFORMAT	FORMAT+7~, FORMAT+14, FORMAT+15, FORMAT+16, FORMAT+26, INCLUDE~, INCLUDE+25, INCLUDE+26, ISVARFLD~, ISVARFLD+7 , FMTFIELD+22, FMTFIELD+66
END	INCLUDE+8~, INCLUDE+9, INCLUDE+10, INCLUDE+23
EXT	FMTFIELD+9~, FMTFIELD+25, FMTFIELD+28, FMTFIELD+36, FMTFIELD+38, FMTFIELD+42, FMTFIELD+45, FMTFIELD+48, FMTFIELD+50, FMTFIELD+54 , FMTFIELD+55, FMTFIELD+59, FMTFIELD+61, FMTFIELD+62, FMTFIELD+63, FMTFIELD+66, FMTFIELD+68, FMTFIELD+70, FMTFIELD+75, FMTFIELD+77 , FMTFIELD+79, FMTFIELD+82, FMTFIELD+84
FIELD	FORMAT+7~, FORMAT+25~*, FORMAT+26, FORMAT+29, INCLUDE~, INCLUDE+15, INCLUDE+16, INCLUDE+19, INCLUDE+28, FIELDID~ , FIELDID+9, ISVARFLD~, ISVARFLD+7, FMTFIELD+8, FMTFIELD+9, FMTFIELD+21, FMTFIELD+22, FMTFIELD+35, FMTFIELD+37, FMTFIELD+41 , FMTFIELD+45, FMTFIELD+48, FMTFIELD+50, FMTFIELD+52, FMTFIELD+66
FIELDIEN	INCLUDE+16~, INCLUDE+17, INCLUDE+26, FIELDID+9~, FIELDID+10, FIELDID+12, FIELDID+13
FIELDS	FILEMAN~, FM1+1*, 2+19
FILE	FILEMAN+13~, FILEMAN+14, FORMAT+7~, FORMAT+23*, FORMAT+24, FORMAT+25, FORMAT+26, FORMAT+29, INCLUDE~, INCLUDE+12 , INCLUDE+13, INCLUDE+14, ISVARFLD~, ISVARFLD+7, FMTFIELD+8, FMTFIELD+9, FMTFIELD+22, FMTFIELD+45, FMTFIELD+48, FMTFIELD+52 , FMTFIELD+66, FMTFIELD+67, FMTFIELD+69, FMTFIELD+71, FMTFIELD+76, FMTFIELD+78, FMTFIELD+80, FMTFIELD+83, FETCH+3, FETCH+4 , FETCH+5, 2+1, 2+19, 2+20, 2+26, 2+27, 2+32
FIND	INCLUDE+23~, INCLUDE+25, INCLUDE+27, INCLUDE+28*, INCLUDE+29
FLDLST	FMTFIELD+14~, FMTFIELD+20*, FMTFIELD+42
FLDNAME	FMTFIELD+52~, FMTFIELD+54, FMTFIELD+58, FMTFIELD+60, FMTFIELD+62, FMTFIELD+63, FMTFIELD+64, FMTFIELD+68, FMTFIELD+70, FMTFIELD+75 , FMTFIELD+77, FMTFIELD+79, FMTFIELD+81*, FMTFIELD+82, FMTFIELD+84
GLO	FETCH+3~*, FETCH+5
I	INCLUDE+23~*, INCLUDE+25, INCLUDE+26, INCLUDE+27
ID	FIELDID+8~, FIELDID+12, FIELDID+13, FIELDID+17
IEN	FILEMAN~, FILEMAN+14*, FILEMAN+15, FETCH+5, 2+2, 2+4, 2+11, 2+12, 2+16, 2+17 , 2+19, SETCDUR+10, SETRDUR+10, SETCDIAG+10
INSURER	FORMAT+7~, FORMAT+13*, FORMAT+14, FORMAT+16
INT	FMTFIELD+8~, FMTFIELD+24
J	INCLUDE+24~, INCLUDE+25, INCLUDE+26
NCPDP51	FORMAT+8~, FORMAT+9, FORMAT+18, FORMAT+20*, INCLUDE+10, FIELDID+12, FIELDID+13, ISVARFLD+8
RX	FILEMAN~, FM1+2, FETCH+1~, FETCH+5, 2+2, 2+4, 2+8, 2+11, 2+12, 2+14 , 2+16, 2+17, 2+18, 2+21, SETCDUR+10, SETRDUR+10, SETCDIAG+10
RXFIELDS	FILEMAN~, FM1+3*, 2+22
RXSEQ	FORMAT+10~, FORMAT+11, FORMAT+29, FMTFIELD+75, FMTFIELD+77, FMTFIELD+84
SRC	FORMAT+6~*, FORMAT+12, FORMAT+13, FORMAT+18, FORMAT+20, FORMAT+23, FORMAT+24, FORMAT+25, FMTFIELD+8, FMTFIELD+9
START	INCLUDE+8~, INCLUDE+9, INCLUDE+10, INCLUDE+23
SUB	FETCH+4~*, FETCH+5
SUBFILE	FM1~, 2+20*, 2+21, 2+22
TMP	TEST!
U	FORMAT+14, INCLUDE+26, INCLUDE+28, FIELDID+12, FIELDID+13, ISVARFLD+8, ISVARFLD+9, FMTFIELD+52, 2+4, 2+7
VARFIELD	FMTFIELD+11~, FMTFIELD+21, FMTFIELD+22, FMTFIELD+23, FMTFIELD+24, FMTFIELD+25
X	ISVARFLD+7~, ISVARFLD+8, ISVARFLD+9, 2+2~, 2+4, 2+11~, 2+12, 2+14, 2+16~, 2+17 , 2+18
Y	FMTFIELD+55~, 2+4~, 2+5, 2+8, 2+12~, 2+13, 2+17~, 2+18
Z	2+5~, 2+7, 2+8, 2+13~*, 2+14

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPECP1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items