Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABSPOSFP

Package: Pharmacy Point of Sale

Routine: ABSPOSFP


Information

ABSPOSFP ; IHS/FCS/DRS - Print NCPDP claim ; [ 09/12/2002 10:09 AM ]

Source Information

Source file <ABSPOSFP.m>

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Point of Sale 2 ABSPOSFA  ABSPOSFX  

Entry Points

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

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~
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All