Routine: ABSPECP3

Information

ABSPECP3 ; IHS/FCS/DRS - Receipts ; [ 09/19/2002 10:16 AM ]

Source Information

Source file <ABSPECP3.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Pharmacy Point of Sale	3	($$DUR,$$OTHPHARM,$$OTHPRESC)^ABSPECP2 $$FORMTNDC^ABSPOS9 IMPOSS^ABSPOSUE

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPECP0

Entry Points

Name	Comments	DBIA/ICR reference
R1ANMC1	;;Response Status (Prescription);S TITLE="Prescription Status:"
C1PCS1	;;Medication Name;S TITLE=""
C0ANMC1	;;Patient Name;S TITLE=""
R0ALL	;;
FULL0	;EP - from ABSPECP0
PRINTSEG(SEG)	;
R0PCS1	;;
C1ANMC1	;;Medication Name;S TITLE=""
RECEIPT	;EP - from ABSPECP0, RECEIPT^ABSPOS6E
C1ALL	;;Date Filled
DUROUT1(X)
C0PCS1	;;Patient Name;S TITLE=""
R0ANMC1	;;
PRINT(SRC,FORMAT)	;
GETVALUE	; given SEG,FIELD,RX
R1PCS1	;;
ANMC	; ; Write any kind of page header here
R1ALL	;;
C0ALL	;;Claim ID
FULL(DIV,LEV,RX)	; print it all ; WHAT YOU'RE LOOKING FOR PROBABLY IS NOT HERE ; LOOK BELOW, AT "PRINTSEG" INSTEAD!!!!!!!!!!! ; recurse, filling in parameters
DUROUT(X)
TEST	;O 51:("TMP.OUT":"W") U 51 S SRC="TMP" D FULL() C 51 Q
OUTPUT	; TITLE,VALUE,!

External References

Name	Field # of Occurrence
$$DUR^ABSPECP2	DUROUT1+2
$$OTHPHARM^ABSPECP2	DUROUT1+6
$$OTHPRESC^ABSPECP2	DUROUT1+13
$$FORMTNDC^ABSPOS9	FULL+37
IMPOSS^ABSPOSUE	PRINTSEG+3, GETVALUE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " - RECEIPT -",! Line Location: FULL0+1
Function Call: WRITE	Prompt: " - - Prescription - -",! Line Location: FULL+56
Function Call: WRITE	Prompt: TITLE Line Location: OUTPUT+1
Function Call: WRITE	Prompt: $E(X,1,Y) Line Location: OUTPUT+3
Function Call: WRITE	Prompt: ! Line Location: OUTPUT+4
Function Call: WRITE	Prompt: $E(X,1,IOM) Line Location: OUTPUT+4
Function Call: WRITE	Prompt: " - - - DUR response data, part ",I+1," - - -",! Line Location: DUROUT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DUROUT1+8

Label References

Name	Line Occurrences
DUROUT	FULL+43, PRINTSEG+18
DUROUT1	DUROUT+8
FULL	RECEIPT+2, FULL+4, FULL+5, FULL+17, FULL+56
GETVALUE	PRINTSEG+19
OUTPUT	FULL+35, FULL+38, FULL+41, FULL+48, FULL+53, FULL+55, DUROUT1+3, DUROUT1+4, DUROUT1+6, DUROUT1+9 , DUROUT1+10, DUROUT1+11, DUROUT1+13, DUROUT1+14, PRINTSEG+12, PRINTSEG+16, PRINTSEG+17, PRINTSEG+26
PRINT	FULL0+2, ANMC+2
PRINTSEG	PRINT+1, PRINT+2, PRINT+5, PRINT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIV	FULL~, FULL+4, FULL+5, FULL+6, FULL+17, FULL+20, FULL+22, FULL+23, FULL+28, FULL+32 , FULL+33, FULL+37, FULL+40, FULL+45, FULL+46, FULL+50, FULL+51, FULL+54, FULL+56, PRINTSEG+1~* , PRINTSEG+9, PRINTSEG+10, PRINTSEG+14
FIELD	FULL+19~, FULL+20, FULL+22, FULL+23, FULL+26, FULL+28, FULL+31, FULL+32, FULL+33, FULL+36 , FULL+37, FULL+39, FULL+40, FULL+42~, FULL+44, FULL+45, FULL+46, FULL+49, FULL+50, FULL+51 , FULL+54, PRINTSEG+4~, PRINTSEG+5, PRINTSEG+6*, PRINTSEG+7, PRINTSEG+8, PRINTSEG+9, PRINTSEG+10, PRINTSEG+11, PRINTSEG+13 , PRINTSEG+14, PRINTSEG+15, PRINTSEG+16, PRINTSEG+18~, PRINTSEG+22, GETVALUE+2, GETVALUE+4
FORMAT	PRINT~, PRINT+1, PRINT+2, PRINT+5, PRINT+6, PRINTSEG+25
I	FULL+32~, FULL+45~, FULL+50~, DUROUT+1~, DUROUT+2, DUROUT+7, PRINTSEG+9~*
IOM	FULL+18~*, OUTPUT+3, OUTPUT+4
L	DUROUT+1~*, DUROUT+2
LEV	FULL~, FULL+5, FULL+12, FULL+17, FULL+22, FULL+23, FULL+28, FULL+30, FULL+56
LINE	PRINTSEG+2~*
OUTPUT	FULL+27~, FULL+28, FULL+31, FULL+36, FULL+39, FULL+44, FULL+49, FULL+54*, FULL+55
RX	FULL~, FULL+12, FULL+14, FULL+15, FULL+17, FULL+32, FULL+33, FULL+37, FULL+40, FULL+45 , FULL+46, FULL+50, FULL+51, FULL+54, PRINT+3~, PRINT+4, PRINTSEG+9, PRINTSEG+10, PRINTSEG+14, GETVALUE+4
SEG	PRINTSEG~, PRINTSEG+1, PRINTSEG+3, GETVALUE+1, GETVALUE+2, GETVALUE+3, GETVALUE+4, GETVALUE+5
SRC	RECEIPT+1~*, FULL+15, FULL+20, FULL+22, FULL+23, FULL+28, FULL+32, FULL+33, FULL+37, FULL+40 , FULL+45, FULL+46, FULL+50, FULL+51, FULL+54, PRINT~, PRINT+4, PRINTSEG+9, PRINTSEG+10, PRINTSEG+14 , GETVALUE+2, GETVALUE+4
STOP	PRINTSEG+2~, PRINTSEG+5*
TITLE	FULL+19~, FULL+26, FULL+34, FULL+47, FULL+52, OUTPUT+1, DUROUT1+2, DUROUT1+4, DUROUT1+5, DUROUT1+7 , DUROUT1+10, DUROUT1+11, DUROUT1+12, DUROUT1+14, PRINTSEG+11, PRINTSEG+15, PRINTSEG+16, PRINTSEG+20~, PRINTSEG+22*, PRINTSEG+23
VALUE	FULL+19~, FULL+28, FULL+33, FULL+37, FULL+41, FULL+46, FULL+51, FULL+54, OUTPUT+2, DUROUT1+2 , DUROUT1+4, DUROUT1+6, DUROUT1+7, DUROUT1+8, DUROUT1+10, DUROUT1+11, DUROUT1+13, DUROUT1+14, PRINTSEG+10, PRINTSEG+15 , PRINTSEG+17, PRINTSEG+19~, PRINTSEG+25, GETVALUE+2, GETVALUE+4*
X	FULL+32~, FULL+33, FULL+40~, FULL+43, FULL+45~, FULL+46, FULL+47, FULL+50~, FULL+51, FULL+52 , OUTPUT+2~, OUTPUT+3, OUTPUT+4, DUROUT~, DUROUT+2, DUROUT1~, DUROUT1+2, DUROUT1+4, DUROUT1+6, DUROUT1+7 , DUROUT1+10, DUROUT1+11, DUROUT1+13, DUROUT1+14, PRINTSEG+3~, PRINTSEG+4, PRINTSEG+9~, PRINTSEG+10, PRINTSEG+14, PRINTSEG+16 , PRINTSEG+18, PRINTSEG+20
Y	OUTPUT+3~, DUROUT+1~, DUROUT+2~, DUROUT+3, DUROUT+4, DUROUT+5, DUROUT+6, DUROUT+8, DUROUT1+1~, DUROUT1+8*

Marked Items

Name	Field # of Occurrence
$T(	PRINTSEG+3, GETVALUE+5
$T(@SEG+LINE	PRINTSEG+3

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPECP3

Call Graph Total: 3

Caller Graph Total: 1