Routine: ABSPOSFP

Package	Total	Caller Graph
Pharmacy Point of Sale	2	ABSPOSFA ABSPOSFX

Entry Points

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+8
Function Call: WRITE	Prompt: ?6+HOFF,NCPDP(302) Line Location: 1+0
Function Call: WRITE	Prompt: ?40+HOFF,NCPDP(301) Line Location: 1+1
Function Call: WRITE	Prompt: ! Line Location: 1+2
Function Call: WRITE	Prompt: ! Line Location: 1+3
Function Call: WRITE	Prompt: ?10+HOFF,NCPDP(313),",",NCPDP(312) Line Location: 2+0
Function Call: WRITE	Prompt: ?53+HOFF Line Location: 2+1
Function Call: WRITE	Prompt: ! Line Location: 2+2
Function Call: WRITE	Prompt: ! Line Location: 2+3
Function Call: WRITE	Prompt: ?10+HOFF,NCPDP(311),",",NCPDP(310) Line Location: 3+0
Function Call: WRITE	Prompt: ?44+HOFF,NCPDP(308) Line Location: 3+1
Function Call: WRITE	Prompt: ?59+HOFF,NCPDP(303) Line Location: 3+2
Function Call: WRITE	Prompt: ! Line Location: 3+3
Function Call: WRITE	Prompt: ! Line Location: 3+4
Function Call: WRITE	Prompt: ?14+HOFF,$$MM(NCPDP(304)) Line Location: 4+0
Function Call: WRITE	Prompt: ?19+HOFF,$$DD(NCPDP(304)) Line Location: 4+1
Function Call: WRITE	Prompt: ?23+HOFF,$$CCYY(NCPDP(304)) Line Location: 4+2
Function Call: WRITE	Prompt: ?47+HOFF,NCPDP(305) Line Location: 4+3
Function Call: WRITE	Prompt: ?65+HOFF,NCPDP(306) Line Location: 4+4
Function Call: WRITE	Prompt: ! Line Location: 4+5
Function Call: WRITE	Prompt: ! Line Location: 4+6
Function Call: WRITE	Prompt: ?11+HOFF,ABSP("Site","Name") Line Location: 5+0
Function Call: WRITE	Prompt: ! Line Location: 5+1
Function Call: WRITE	Prompt: ! Line Location: 5+2
Function Call: WRITE	Prompt: ?11+HOFF,ABSP("Site","Addr") Line Location: 6+0
Function Call: WRITE	Prompt: ?46+HOFF,NCPDP(201) Line Location: 6+1
Function Call: WRITE	Prompt: ?66 Line Location: 6+2
Function Call: WRITE	Prompt: ! Line Location: 6+3
Function Call: WRITE	Prompt: ?46+HOFF,"Tax ID #",X Line Location: 6+4
Function Call: WRITE	Prompt: ! Line Location: 6+5
Function Call: WRITE	Prompt: ?11+HOFF,ABSP("Site","City") Line Location: 7+0
Function Call: WRITE	Prompt: ?47+HOFF,ABSP("Site","Phone") Line Location: 7+1
Function Call: WRITE	Prompt: ! Line Location: 7+2
Function Call: WRITE	Prompt: ! Line Location: 7+3
Function Call: WRITE	Prompt: ?16+HOFF,ABSP("Site","State")," ",ABSP("Site","Zip") Line Location: 8+0
Function Call: WRITE	Prompt: ?47+HOFF,ABSP("Site","Fax") Line Location: 8+1
Function Call: WRITE	Prompt: ! Line Location: 8+2
Function Call: WRITE	Prompt: ! Line Location: 8+3
Function Call: WRITE	Prompt: ! Line Location: 8+4
Function Call: WRITE	Prompt: ?11+HOFF,NCPDP(315) Line Location: 9+0
Function Call: WRITE	Prompt: ! Line Location: 9+1
Function Call: WRITE	Prompt: ! Line Location: 9+2
Function Call: WRITE	Prompt: ?11+HOFF,NCPDP(316) Line Location: 10+0
Function Call: WRITE	Prompt: ?53,"Signature on file" Line Location: 10+1
Function Call: WRITE	Prompt: ! Line Location: 10+2
Function Call: WRITE	Prompt: ! Line Location: 10+3
Function Call: WRITE	Prompt: ?11+HOFF,NCPDP(317) Line Location: 11+0
Function Call: WRITE	Prompt: ?43+HOFF,NCPDP(318) Line Location: 11+1
Function Call: WRITE	Prompt: ?56+HOFF,NCPDP(319) Line Location: 11+2
Function Call: WRITE	Prompt: ! Line Location: 11+3
Function Call: WRITE	Prompt: ! Line Location: 11+4
Function Call: WRITE	Prompt: ?11+HOFF,NCPDP(327) Line Location: 12+0
Function Call: WRITE	Prompt: ?45+HOFF Line Location: 12+1
Function Call: WRITE	Prompt: ! Line Location: 12+2
Function Call: WRITE	Prompt: ! Line Location: 12+3
Function Call: WRITE	Prompt: ?11+HOFF,$$MM(NCPDP("RX",RX1,434)) Line Location: 13+0
Function Call: WRITE	Prompt: ?16+HOFF,$$DD(NCPDP("RX",RX1,434)) Line Location: 13+1
Function Call: WRITE	Prompt: ?21+HOFF,$$CCYY(NCPDP("RX",RX1,434)) Line Location: 13+2
Function Call: WRITE	Prompt: ?38+HOFF,NCPDP("RX",RX1,435) Line Location: 13+3
Function Call: WRITE	Prompt: ! Line Location: 13+4
Function Call: WRITE	Prompt: ! Line Location: 13+5
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX1,409)) Line Location: 14+1
Function Call: WRITE	Prompt: ! Line Location: 14+2
Function Call: WRITE	Prompt: ! Line Location: 14+3
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX1,412)) Line Location: 15+0
Function Call: WRITE	Prompt: ! Line Location: 15+1
Function Call: WRITE	Prompt: ! Line Location: 15+2
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX1,438)) Line Location: 16+0
Function Call: WRITE	Prompt: ! Line Location: 16+1
Function Call: WRITE	Prompt: ?5+HOFF,NCPDP("RX",RX1,402) Line Location: 17+0
Function Call: WRITE	Prompt: ?22+HOFF,$$MM(NCPDP("RX",RX1,414)) Line Location: 17+1
Function Call: WRITE	Prompt: ?25+HOFF,$$DD(NCPDP("RX",RX1,414)) Line Location: 17+2
Function Call: WRITE	Prompt: ?28+HOFF,$$CCYY(NCPDP("RX",RX1,414)) Line Location: 17+3
Function Call: WRITE	Prompt: ?33+HOFF,$$MM(NCPDP("RX",RX1,401)) Line Location: 17+4
Function Call: WRITE	Prompt: ?36+HOFF,$$DD(NCPDP("RX",RX1,401)) Line Location: 17+5
Function Call: WRITE	Prompt: ?39+HOFF,$$CCYY(NCPDP("RX",RX1,401)) Line Location: 17+6
Function Call: WRITE	Prompt: ?44+HOFF,$J(NCPDP("RX",RX1,403),2) Line Location: 17+7
Function Call: WRITE	Prompt: ?47+HOFF,$$QTY(NCPDP("RX",RX1,442)) Line Location: 17+8
Function Call: WRITE	Prompt: ?59+HOFF,$J(NCPDP("RX",RX1,405),3) Line Location: 17+9
Function Call: WRITE	Prompt: ! Line Location: 17+10
Function Call: WRITE	Prompt: ?5+HOFF,$P(^PSRX(ABSP("RX",RX1,"RX IEN"),0),U) Line Location: 18+1
Function Call: WRITE	Prompt: ?68+HOFF Line Location: 18+2
Function Call: WRITE	Prompt: ! Line Location: 18+3
Function Call: WRITE	Prompt: ! Line Location: 18+4
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX1,410)) Line Location: 19+0
Function Call: WRITE	Prompt: ! Line Location: 19+1
Function Call: WRITE	Prompt: ?5+HOFF,NCPDP("RX",RX1,407) Line Location: 20+0
Function Call: WRITE	Prompt: ?27+HOFF,NCPDP("RX",RX1,408) Line Location: 20+1
Function Call: WRITE	Prompt: ?31+HOFF,$$PANUM(NCPDP("RX",RX1,416)) Line Location: 20+2
Function Call: WRITE	Prompt: ?42+HOFF,$$PATYP(NCPDP("RX",RX1,416)) Line Location: 20+3
Function Call: WRITE	Prompt: ?46+HOFF,NCPDP("RX",RX1,411) Line Location: 20+4
Function Call: WRITE	Prompt: ! Line Location: 20+5
Function Call: WRITE	Prompt: ?5+HOFF,$E($P($G(^PSDRUG(+$G(ABSP("RX",RX1,"Drug IEN")),0)),U),1,40) Line Location: 20+6
Function Call: WRITE	Prompt: ?46+HOFF,$E($P($G(^VA(200,ABSP("RX",RX1,"Prescriber IEN"),0)),U),1,20) Line Location: 20+7
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY($$GROSSAMT(RX1)) Line Location: 20+8
Function Call: WRITE	Prompt: ! Line Location: 20+9
Function Call: WRITE	Prompt: ! Line Location: 20+10
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX1,433)) Line Location: 21+0
Function Call: WRITE	Prompt: ! Line Location: 21+1
Function Call: WRITE	Prompt: ?5+HOFF,NCPDP("RX",RX1,439) Line Location: 22+0
Function Call: WRITE	Prompt: ?9+HOFF,NCPDP("RX",RX1,440) Line Location: 22+1
Function Call: WRITE	Prompt: ?13+HOFF,NCPDP("RX",RX1,441) Line Location: 22+2
Function Call: WRITE	Prompt: ?17+HOFF,NCPDP("RX",RX1,423) Line Location: 22+3
Function Call: WRITE	Prompt: ?20+HOFF Line Location: 22+4
Function Call: WRITE	Prompt: ?38+HOFF,NCPDP("RX",RX1,424) Line Location: 22+5
Function Call: WRITE	Prompt: ! Line Location: 22+6
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX1,431)) Line Location: 23+0
Function Call: WRITE	Prompt: ! Line Location: 23+1
Function Call: WRITE	Prompt: ! Line Location: 23+2
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY($$NETAMT(RX1)) Line Location: 24+0
Function Call: WRITE	Prompt: ! Line Location: 24+1
Function Call: WRITE	Prompt: ?5+HOFF,$$MM(NCPDP("RX",RX1,443)) Line Location: 24+2
Function Call: WRITE	Prompt: ?8+HOFF,$$DD(NCPDP("RX",RX1,443)) Line Location: 24+3
Function Call: WRITE	Prompt: ?11+HOFF,$$CCYY(NCPDP("RX",RX1,443)) Line Location: 24+4
Function Call: WRITE	Prompt: ?16+HOFF Line Location: 24+5
Function Call: WRITE	Prompt: ?29+HOFF Line Location: 24+6
Function Call: WRITE	Prompt: ?49,$$MONEY(NCPDP("RX",RX1,426)) Line Location: 24+7
Function Call: WRITE	Prompt: ! Line Location: 24+8
Function Call: WRITE	Prompt: ! Line Location: 24+9
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX2,409)) Line Location: 25+2
Function Call: WRITE	Prompt: ! Line Location: 25+3
Function Call: WRITE	Prompt: ! Line Location: 25+4
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX2,412)) Line Location: 26+0
Function Call: WRITE	Prompt: ! Line Location: 26+1
Function Call: WRITE	Prompt: ! Line Location: 26+2
Function Call: WRITE	Prompt: ?5+HOFF,NCPDP("RX",RX2,402) Line Location: 26+3
Function Call: WRITE	Prompt: ?23+HOFF,$$MM(NCPDP("RX",RX2,414)) Line Location: 26+4
Function Call: WRITE	Prompt: ?26+HOFF,$$DD(NCPDP("RX",RX2,414)) Line Location: 26+5
Function Call: WRITE	Prompt: ?29+HOFF,$$CCYY(NCPDP("RX",RX2,414)) Line Location: 26+6
Function Call: WRITE	Prompt: ?34+HOFF,$$MM(NCPDP("RX",RX2,401)) Line Location: 26+7
Function Call: WRITE	Prompt: ?37+HOFF,$$DD(NCPDP("RX",RX2,401)) Line Location: 26+8
Function Call: WRITE	Prompt: ?40+HOFF,$$CCYY(NCPDP("RX",RX2,401)) Line Location: 26+9
Function Call: WRITE	Prompt: ?44+HOFF,$J(NCPDP("RX",RX2,403),3) Line Location: 26+10
Function Call: WRITE	Prompt: ?47+HOFF,$$QTY(NCPDP("RX",RX2,442)) Line Location: 26+11
Function Call: WRITE	Prompt: ?60+HOFF,$J(NCPDP("RX",RX2,405),3) Line Location: 26+12
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX2,438)) Line Location: 26+13
Function Call: WRITE	Prompt: ! Line Location: 26+14
Function Call: WRITE	Prompt: ?5+HOFF,$P(^PSRX(ABSP("RX",RX2,"RX IEN"),0),U) Line Location: 26+16
Function Call: WRITE	Prompt: ! Line Location: 26+17
Function Call: WRITE	Prompt: ?68+HOFF Line Location: 27+0
Function Call: WRITE	Prompt: ! Line Location: 27+1
Function Call: WRITE	Prompt: ! Line Location: 27+2
Function Call: WRITE	Prompt: ?5+HOFF,NCPDP("RX",RX2,407) Line Location: 28+0
Function Call: WRITE	Prompt: ?28+HOFF,NCPDP("RX",RX2,408) Line Location: 28+1
Function Call: WRITE	Prompt: ?31+HOFF,$$PANUM(NCPDP("RX",RX2,416)) Line Location: 28+2
Function Call: WRITE	Prompt: ?41+HOFF,$$PATYP(NCPDP("RX",RX2,416)) Line Location: 28+3
Function Call: WRITE	Prompt: ?46+HOFF,NCPDP("RX",RX2,411) Line Location: 28+4
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX2,410)) Line Location: 28+5
Function Call: WRITE	Prompt: ! Line Location: 28+6
Function Call: WRITE	Prompt: ?5+HOFF,$E($P($G(^PSDRUG(+$G(ABSP("RX",RX2,"Drug IEN")),0)),U),1,40) Line Location: 28+7
Function Call: WRITE	Prompt: ?46+HOFF,$E($P($G(^VA(200,ABSP("RX",RX2,"Prescriber IEN"),0)),U),1,20) Line Location: 28+8
Function Call: WRITE	Prompt: ! Line Location: 28+9
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY($$GROSSAMT(RX2)) Line Location: 29+0
Function Call: WRITE	Prompt: ! Line Location: 29+1
Function Call: WRITE	Prompt: ! Line Location: 29+2
Function Call: WRITE	Prompt: ?5+HOFF,NCPDP("RX",RX2,439) Line Location: 30+0
Function Call: WRITE	Prompt: ?8+HOFF,NCPDP("RX",RX2,440) Line Location: 30+1
Function Call: WRITE	Prompt: ?11+HOFF,NCPDP("RX",RX2,441) Line Location: 30+2
Function Call: WRITE	Prompt: ?18+HOFF,NCPDP("RX",RX2,423) Line Location: 30+3
Function Call: WRITE	Prompt: ?21+HOFF Line Location: 30+4
Function Call: WRITE	Prompt: ?39+HOFF,NCPDP("RX",RX2,424) Line Location: 30+5
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX2,433)) Line Location: 30+6
Function Call: WRITE	Prompt: ! Line Location: 30+7
Function Call: WRITE	Prompt: ! Line Location: 30+8
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY(NCPDP("RX",RX2,431)) Line Location: 31+0
Function Call: WRITE	Prompt: ! Line Location: 31+1
Function Call: WRITE	Prompt: ! Line Location: 31+2
Function Call: WRITE	Prompt: ?5+HOFF,$$MM(NCPDP("RX",RX2,443)) Line Location: 32+0
Function Call: WRITE	Prompt: ?8+HOFF,$$DD(NCPDP("RX",RX2,443)) Line Location: 32+1
Function Call: WRITE	Prompt: ?11+HOFF,$$CCYY(NCPDP("RX",RX2,443)) Line Location: 32+2
Function Call: WRITE	Prompt: ?16+HOFF Line Location: 32+3
Function Call: WRITE	Prompt: ?31+HOFF Line Location: 32+4
Function Call: WRITE	Prompt: ?49+HOFF,$$MONEY(NCPDP("RX",RX2,426)) Line Location: 32+5
Function Call: WRITE	Prompt: ?68+HOFF,$$MONEY($$NETAMT(RX2)) Line Location: 32+6
Function Call: WRITE	Prompt: ! Line Location: 32+7
Function Call: WRITE	Prompt: "Bill #",A Line Location: BILLINFO+7
Function Call: WRITE	Prompt: " VCN ",B Line Location: BILLINFO+11
Function Call: WRITE	Prompt: " Visit `",A Line Location: BILLINFO+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSBITMS(9002302	BILLINFO+5
^ABSPTL - [#9002313.57]	BILLINFO+2, BILLINFO+3, BILLINFO+8
^AUPNVSIT - [#9000010]	BILLINFO+10
^PSDRUG - [#50]	20+6, 28+7
^PSRX - [#52]	18+1, 26+16
^VA(200 - [#200]	20+7, 28+8

Label References

Name	Line Occurrences
$$CCYY	4+2, 13+2, 17+3, 17+6, 24+4, 26+6, 26+9, 32+2
$$DD	4+1, 13+1, 17+2, 17+5, 24+3, 26+5, 26+8, 32+1
$$GROSSAMT	20+8, 29, NETAMT+2
$$MM	4, 13, 17+1, 17+4, 24+2, 26+4, 26+7, 32
$$MONEY	14+1, 15, 16, 19, 20+8, 21, 23, 24, 24+7, 25+2 , 26, 26+13, 28+5, 29, 30+6, 31, 32+5, 32+6
$$NETAMT	24, 32+6
$$PANUM	20+2, 28+2, PATYP
$$PATYP	20+3, 28+3
$$QTY	17+8, 26+11
99	25+1
BILLINFO	14
PAGE	PRINT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PRINT+3~, BILLINFO+1~, BILLINFO+2, BILLINFO+4, BILLINFO+5, BILLINFO+6, BILLINFO+7, BILLINFO+8, BILLINFO+9, BILLINFO+10 , BILLINFO+12
>> ABSP("RX"	PRINT+6, 18, 18+1, 20+6, 20+7, 26+15, 26+16, 28+7, 28+8, BILLINFO+1
>> ABSP("Site"	5, 6, 6+4, 7, 7+1, 8, 8+1
B	PRINT+3~, BILLINFO+1~, BILLINFO+3, BILLINFO+4, BILLINFO+6, BILLINFO+10, BILLINFO+11
C	PRINT+3~
D	MM~, MM+1, DD~, DD+1, CCYY~, CCYY+1
F	GROSSAMT+2~, NETAMT+3~
HOFF	PRINT+2~*, 1, 1+1, 2, 2+1, 3, 3+1, 3+2, 4, 4+1 , 4+2, 4+3, 4+4, 5, 6, 6+1, 6+4, 7, 7+1, 8 , 8+1, 9, 10, 11, 11+1, 11+2, 12, 12+1, 13, 13+1 , 13+2, 13+3, 14+1, 15, 16, 17, 17+1, 17+2, 17+3, 17+4 , 17+5, 17+6, 17+7, 17+8, 17+9, 18+1, 18+2, 19, 20, 20+1 , 20+2, 20+3, 20+4, 20+6, 20+7, 20+8, 21, 22, 22+1, 22+2 , 22+3, 22+4, 22+5, 23, 24, 24+2, 24+3, 24+4, 24+5, 24+6 , 25+2, 26, 26+3, 26+4, 26+5, 26+6, 26+7, 26+8, 26+9, 26+10 , 26+11, 26+12, 26+13, 26+16, 27, 28, 28+1, 28+2, 28+3, 28+4 , 28+5, 28+7, 28+8, 29, 30, 30+1, 30+2, 30+3, 30+4, 30+5 , 30+6, 31, 32, 32+1, 32+2, 32+3, 32+4, 32+5, 32+6
I	PRINT+3~, PRINT+5*
IOF	PRINT+4, PRINT+8
MAXRXN	PRINT+6~*, PRINT+7, 25+1
>> NCPDP("RX"	13, 13+1, 13+2, 13+3, 14+1, 15, 16, 17, 17+1, 17+2 , 17+3, 17+4, 17+5, 17+6, 17+7, 17+8, 17+9, 19, 20, 20+1 , 20+2, 20+3, 20+4, 21, 22, 22+1, 22+2, 22+3, 22+5, 23 , 24+2, 24+3, 24+4, 24+7, 25+2, 26, 26+3, 26+4, 26+5, 26+6 , 26+7, 26+8, 26+9, 26+10, 26+11, 26+12, 26+13, 28, 28+1, 28+2 , 28+3, 28+4, 28+5, 30, 30+1, 30+2, 30+3, 30+5, 30+6, 31 , 32, 32+1, 32+2, 32+5, GROSSAMT+2, NETAMT+3
>> NCPDP(201	6+1
>> NCPDP(301	1+1
>> NCPDP(302	1
>> NCPDP(303	3+2
>> NCPDP(304	4, 4+1, 4+2
>> NCPDP(305	4+3
>> NCPDP(306	4+4
>> NCPDP(308	3+1
>> NCPDP(310	3
>> NCPDP(311	3
>> NCPDP(312	2
>> NCPDP(313	2
>> NCPDP(315	9
>> NCPDP(316	10
>> NCPDP(317	11
>> NCPDP(318	11+1
>> NCPDP(319	11+2
>> NCPDP(327	12
Q	QTY~, QTY+2*, QTY+3, QTY+4
RX1	PAGE+1~*, 13, 13+1, 13+2, 13+3, 14+1, 15, 16, 17, 17+1 , 17+2, 17+3, 17+4, 17+5, 17+6, 17+7, 17+8, 17+9, 18, 18+1 , 19, 20, 20+1, 20+2, 20+3, 20+4, 20+6, 20+7, 20+8, 21 , 22, 22+1, 22+2, 22+3, 22+5, 23, 24, 24+2, 24+3, 24+4 , 24+7, BILLINFO+1
RX2	PAGE+1~*, 25+1, 25+2, 26, 26+3, 26+4, 26+5, 26+6, 26+7, 26+8 , 26+9, 26+10, 26+11, 26+12, 26+13, 26+15, 26+16, 28, 28+1, 28+2 , 28+3, 28+4, 28+5, 28+7, 28+8, 29, 30, 30+1, 30+2, 30+3 , 30+5, 30+6, 31, 32, 32+1, 32+2, 32+5, 32+6
RXN	PRINT+7~*, PAGE+1
T	GROSSAMT+1~, GROSSAMT+2, GROSSAMT+3, NETAMT+1~, NETAMT+2, NETAMT+3*, NETAMT+4
U	18+1, 20+6, 20+7, 26+16, 28+7, 28+8, BILLINFO+2, BILLINFO+3, BILLINFO+5, BILLINFO+8 , BILLINFO+10
VOFF	PRINT+2~*, PRINT+5
X	PRINT+3~, 6+4, MONEY~, MONEY+1, MONEY+2, PANUM~, PANUM+2, PANUM+3, PATYP~, GROSSAMT~ , GROSSAMT+2, NETAMT~, NETAMT+2, NETAMT+3, BILLINFO+1~*, BILLINFO+2, BILLINFO+3, BILLINFO+8
Y	PRINT+3~
Z	PRINT+3~

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSFP

Information

Source Information

Caller Graph

Caller Graph Total: 2

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
BILLINFO	;
CCYY(D)	; year part of the date
PATYP(X)
QTY(Q)	; quantity - metric decimal quantity now ; but avoid printing "." unless there is actually a decimal part
PRINT	; EP - we have the ABSP() and NCPDP() arrays ; Print to the current device
NETAMT(X)	; compute it
24
25	; the second prescription
26
27
20
21
22
23
PANUM(X)	; prior auth # ; first digit is type, second digit undef ; then 10 digits for the actual number
28
29
1
3
2
5
4
7
6
9
8
MM(D)	; month part of the date
DD(D)	; day part of the date
99	;
11
10
13
12
15
14
17
16
19
18
31
30
GROSSAMT(X)	;add it up - don't rely on Gross Amount Due field
MONEY(X)	; format money amount
32
PAGE	; print one page