Routine: ABSPECA9

Package	Total	Call Graph
Pharmacy Point of Sale	1	IMPOSS^ABSPOSUE

Entry Points

External References

Name	Field # of Occurrence
IMPOSS^ABSPOSUE	NAME+5, NEXT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " \| " Line Location: PRINTN+8
Function Call: WRITE	Prompt: "'",X," " Line Location: PRINTN+10
Function Call: WRITE	Prompt: $J($A(X),3) Line Location: PRINTN+11
Function Call: WRITE	Prompt: "Cannot find format for Bin# ",BIN,! Line Location: PRINTN+17
Function Call: WRITE	Prompt: "Production mode" Line Location: PRINT+6
Function Call: WRITE	Prompt: "Test mode" Line Location: PRINT+7
Function Call: WRITE	Prompt: "Mode ",X," unknown?" Line Location: PRINT+8
Function Call: WRITE	Prompt: "Format unknown",! Line Location: PRINT+13
Function Call: WRITE	Prompt: "Format: ",$P(X,U),! Line Location: PRINT+15
Function Call: WRITE	Prompt: "Mismatch; length of record = ",$L(REC) Line Location: PRINT+18
Function Call: WRITE	Prompt: "; +1 = ",$L(REC)+1," '= position ",POS,! Line Location: PRINT+19
Function Call: WRITE	Prompt: "X=",X,! Line Location: NAME+4
Function Call: WRITE	Prompt: " - - - ",$$NAME(SECTION)," - - - at position ",POS," - - -",! Line Location: PRINT1+1
Function Call: WRITE	Prompt: "Expected $C(29) separator was not found",! Line Location: PRINT1+4
Function Call: WRITE	Prompt: NUMBER Line Location: PRINT2+7
Function Call: WRITE	Prompt: "-",ID Line Location: PRINT2+8
Function Call: WRITE	Prompt: " " Line Location: PRINT2+9
Function Call: WRITE	Prompt: " ",NAME Line Location: PRINT2+14
Function Call: WRITE	Prompt: " (contains control character(s)!)" Line Location: PRINT2+19
Function Call: WRITE	Prompt: " not present" Line Location: PRINT2+20
Function Call: WRITE	Prompt: ! Line Location: PRINT2+22

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSPECX(	PRINTN+3
^ABSPF(9002313.91 - [#9002313.91]	PRINT2+1
^ABSPF(9002313.92 - [#9002313.92]	FINDFMT+7, FINDFMT+8, PRINT+14, NEXT+2, NEXT+4, NEXT+6

Label References

Name	Line Occurrences
$$FINDFMT	PRINTN+16, PRINT+12
$$NAME	PRINT1+1
$$PICKOFF	PRINT2+10
$$QUOTE	PRINT2+17
NEXT	PRINT1+6
PRINT	PRINTN+18
PRINT1	PRINT+16, PRINT+17
PRINT2	PRINT1+6
PRINTN	TESTING+1

Naked Globals

Name	Field # of Occurrence
^(	PRINTN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	FINDFMT+7~*, FINDFMT+8, FINDFMT+10
ANFORMAT	PRINT2+5~*
B	FINDFMT+8~*, FINDFMT+9
BIN	PRINTN+15~*, PRINTN+16, PRINTN+17, FINDFMT~, FINDFMT+9
DUMP	PRINTN~, PRINTN+4
END	PICKOFF+6~, PICKOFF+7, PICKOFF+9, PICKOFF+10, PICKOFF+13, PICKOFF+14
FIELD	PRINT1+5~, PRINT1+6, NEXT+3, NEXT+8*, PRINT2+1
FIXED	PICKOFF+5~*, PICKOFF+7
FMT	PRINTN+16~, PRINTN+17, PRINTN+18, PRINT~, PRINT+12~, PRINT+13, PRINT+14, NEXT+2, NEXT+4, NEXT+6
I	PRINTN+3~, PRINTN+5~, PRINTN+6, PRINTN+9
ID	PRINT2+3~*, PRINT2+8, PICKOFF+3, PICKOFF+4
IEN	PRINTN~, PRINTN+3, NEXT+4~*, NEXT+5, NEXT+6
J	PRINTN+5~, PRINTN+7*, PRINTN+8, PRINTN+9
JOB	PRINTN~, PRINTN+2*, PRINTN+3
LENGTH	PRINT2+6~*, PICKOFF+5, PICKOFF+9
NAME	PRINT2+4~*, PRINT2+14
NUMBER	PRINT2+2~*, PRINT2+7, PRINT2+21
ORDER	PRINT1+5~, NEXT+2, NEXT+3, NEXT+4
POS	PRINT+3~, PRINT+10, PRINT+12, PRINT+18, PRINT+19, PRINT1+1, PRINT1+3, PICKOFF+3, PICKOFF+4, PICKOFF+7 , PICKOFF+9, PICKOFF+10, PICKOFF+13, PICKOFF+14*
REC	PRINTN+1~, PRINTN+3, PRINTN+5, PRINTN+9, PRINTN+15, PRINTN+18, PRINT~, PRINT+4, PRINT+5, PRINT+12 , PRINT+18, PRINT+19, PRINT1+3, PICKOFF+3, PICKOFF+4, PICKOFF+9, PICKOFF+10
RET	PICKOFF+10~, PICKOFF+13, PICKOFF+15
SECTION	PRINT+16~, PRINT+17, PRINT1+1, PRINT1+2, NEXT+2, NEXT+4, NEXT+6
STOP	FINDFMT+6~, FINDFMT+7, FINDFMT+9*
TRANCODE	PRINT+11~, PRINT+17, NAME+2, PRINT2+21*
TRANNUM	PRINT+17~*, NAME+2
U	FINDFMT+8, PRINT+15, NEXT+7, PRINT2+2, PRINT2+3, PRINT2+4, PRINT2+5, PRINT2+6, PRINT2+12, PRINT2+13 , PICKOFF+13
VALUE	PRINT2+10~, PRINT2+11, PRINT2+12, PRINT2+13, PRINT2+15, PRINT2+17*, PRINT2+18, PRINT2+19, PRINT2+21
X	PRINTN+9~, PRINTN+10, PRINTN+11, PRINT+5~, PRINT+6, PRINT+7, PRINT+8, PRINT+14~, PRINT+15, NAME~ , NAME+1, NAME+2, NAME+3, NAME+4, NAME+5, NEXT+6~, NEXT+7, QUOTE~, PICKOFF+9~*
Y	NEXT+7~*, NEXT+8
Z	PRINT2+1~*, PRINT2+2, PRINT2+3, PRINT2+4, PRINT2+5, PRINT2+6

Marked Items

Name	Comments	DBIA/ICR reference
PRINT1	; printing one section
PICKOFF()
PRINT2	; printing one FIELD
NAME(X)
TESTING	;O 51:("TEMP.OUT":"W") U 51
PRINT(REC,FMT)
NEXT	; given SECTION and previous ORDER, ; advance ORDER and return the ncpdp FIELD number
PRINTN(IEN,JOB,DUMP)
QUOTE(X)
FINDFMT(BIN)

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPECA9

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items