Routine: PSNACT

Information

PSNACT ;BIR/DMA&WRT-inquiries by VAPN, CMOP ID, or NDC ;07/02/03 14:01

Package	Total	Call Graph
VA FileMan	8	DD^%DT NOW^%DTC (,IX)^DIC MIX^DIC1 ^DIE ($$GET1,EN)^DIQ ^DIR ^DIWP
National Drug File	3	($$CPTIER,$$POSDOS)^PSNAPIS (CLEFF,HAZWASTE)^PSNCLEHW $$DATE^PSNLOOK
Kernel	2	ENDR^%ZISS $$LJ^XLFSTR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
National Drug File	3	PSNACT PSNLOOK PSNVFY
Pharmacy Data Management	2	PSSDEE PSSLOOK

Entry Points

Name	Comments	DBIA/ICR reference
TEXT
ASKIT
NDC	;OR UPN
LKNDC
END
PRODI	;INQUIRE INTO 50.68
NDCI	;INQUIRE INTO 50.67
LINK	;LINK NDCS OR UPNS
LISTNDC	;LOOK UP NDCS BY PRODUCT
PRT
LISTNDC1	;LOOK UP PARTIAL NDC
PRINT(VAPRDIEN)	; Prints the Va Product field
CMOP
HANG
PRNT
PAD
PAD1
DT(Y)	;Inactivation Date display
GCN
NDOSE(PSNELXXX)	;New Dose Form/Strength/Unit display added with patch PSN4169
OVEX(PSNELORX)	;New Override Dose Form display added with patch PSN4169
CPTIER(VAPRD)	; ; Input: VAPRD - VA PRODUCT (#50.68) entry IEN
EXPAN(PSNELFZA)	;
NFIP(PSNELFJ)	;
POSDOS(VAPRD)	; Display Possible Dosage Auto-Create Setting fields ; Input: VAPRD - VA PRODUCT (#50.68) entry IEN
CODSYS(PSNCIEN)	;CODING SYSTEM
GETTIERN(PSNCTNDC)	;Get copay tier by NDC; called by DIC to get copay tier for today's date
GETTIER(PSNTDRUG)	;called by DIC; look up copay tier by VA product for the current date
FD(PSNELFJ)	;DBIA #6754	ICR #6754 Status: Active Usage: Controlled Subscription
FDR(PSNELFJ)	;DBIA #6754	ICR #6754 Status: Active Usage: Controlled Subscription
FDT(PSNELFJ)	;DBIA #6754	ICR #6754 Status: Active Usage: Controlled Subscription

External References

Name	Field # of Occurrence
DD^%DT	CPTIER+5
NOW^%DTC	CPTIER+2, GETTIERN+2, GETTIER+4
ENDR^%ZISS	PSNACT+6
^DIC	PRODI+1, LINK+7, LINK+11, LISTNDC+2
IX^DIC	NDC+2, NDC+3, NDCI+2, LINK+2
MIX^DIC1	CMOP
^DIE	LINK+6, LINK+7, LINK+10, LINK+11
$$GET1^DIQ	PRINT+10, PRINT+54, EXPAN+3, GETTIERN+3, GETTIERN+4, GETTIERN+5, GETTIERN+9, GETTIER+2, GETTIER+7, FD+2 , FDR+2
EN^DIQ	PRODI+1, NDCI+2, PRT, LISTNDC1+3, LISTNDC1+12
^DIR	ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LINK+3, LINK+5, LINK+9, LISTNDC1+2, LISTNDC1+10 , HANG
^DIWP	FDT+11
$$CPTIER^PSNAPIS	CPTIER+2, GETTIERN+7, GETTIER+5
$$POSDOS^PSNAPIS	POSDOS+4
CLEFF^PSNCLEHW	PRINT+50
HAZWASTE^PSNCLEHW	PRINT+56
$$DATE^PSNLOOK	GETTIERN+10, GETTIER+8
$$LJ^XLFSTR	LISTNDC1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSNACT+7
Function Call: WRITE	Prompt: !,"This option allows you to lookup NDF file information three ways (VA Product",!,"Name, NDC, or CMOP ID number).",! Line Location: TEXT+0
Function Call: WRITE	Prompt: @IOF,!,"NDC: ",$P(NDF,"^",2),$$DT($P(NDF,"^",7))," UPN: ",$P(NDF,"^",3),!,"VA Product Name: ",$P(^PSNDF(50.68,$P(NDF,"^",6),0),"^"),!,"Manufacturer: ",$P($G(^PS(55.95,+$P(NDF,"^",4),0)),"^")," Trade Name: ",$P(NDF,"^",5),!,"Route: " Line Location: LKNDC+0
Function Call: WRITE	Prompt: $P(^(K,0),"^")," " Line Location: LKNDC+1
Function Call: WRITE	Prompt: !,"Package Size: ",$P(^PS(50.609,$P(NDF,"^",8),0),"^")," Package Type: ",$P(^PS(50.608,$P(NDF,"^",9),0),"^") Line Location: LKNDC+2
Function Call: WRITE	Prompt: !,"Unlinked",! Line Location: LINK+6
Function Call: WRITE	Prompt: !,"Linked",! Line Location: LINK+7
Function Call: WRITE	Prompt: !,"Unlinked",! Line Location: LINK+10
Function Call: WRITE	Prompt: !,"Linked",! Line Location: LINK+11
Function Call: WRITE	Prompt: ! Line Location: PRT+0
Function Call: WRITE	Prompt: ! Line Location: LISTNDC1+3
Function Call: WRITE	Prompt: !,$J(ZCT,5)," ",PSN1 Line Location: LISTNDC1+7
Function Call: WRITE	Prompt: !! Line Location: LISTNDC1+12
Function Call: WRITE	Prompt: !,"VA Product Name: ",$P(Z0,"^"),$$DT($P(Z7,"^",3)) Line Location: PRINT+12
Function Call: WRITE	Prompt: !,"VA Generic Name: ",$P(^PSNDF(50.6,+$P(Z0,"^",2),0),"^") Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"National Formulary Name: ",$P(Z0,"^",6) Line Location: PRINT+15
Function Call: WRITE	Prompt: !,"VA Print Name: ",$P(Z1,"^") Line Location: PRINT+16
Function Call: WRITE	Prompt: !,"VA Product Identifier: ",$P(Z1,"^",2)," Transmit to CMOP: ",$S($P(Z1,"^",3):"Yes",1:"No")," VA Dispense Unit: ",$P($G(^PSNDF(50.64,+$P(Z1,"^",4),0)),"^") Line Location: PRINT+17
Function Call: WRITE	Prompt: !,"PMIS: ",PMIS,!,"Active Ingredients: " Line Location: PRINT+18
Function Call: WRITE	Prompt: ?23,$P(ING,"^")," Strength: ",$P(PSNELXY,"^",2)," Units: ",$P($G(^PS(50.607,+$P(PSNELXY,"^",3),0)),"^") Line Location: PRINT+22
Function Call: WRITE	Prompt: ! Line Location: PRINT+23
Function Call: WRITE	Prompt: !,"Primary VA Drug Class: ",$P($G(^PS(50.605,+Z3,0),"Unknown"),"^") Line Location: PRINT+25
Function Call: WRITE	Prompt: !,"Secondary VA Drug Class: " Line Location: PRINT+26
Function Call: WRITE	Prompt: ?26,$P($G(^PS(50.605,+K,0),"Unknown"),"^") Line Location: PRINT+28
Function Call: WRITE	Prompt: ! Line Location: PRINT+29
Function Call: WRITE	Prompt: !,"CS Federal Schedule: "_$S($P($G(^PSNDF(50.68,VAPRDIEN,7)),"^")]"":$P(^PSNDF(50.68,VAPRDIEN,7),"^"),1:"") Line Location: PRINT+32
Function Call: WRITE	Prompt: !,"National Formulary Indicator: ",$S($P(Z5,"^"):"Yes",1:"No") Line Location: PRINT+34
Function Call: WRITE	Prompt: !,"National Formulary Restriction: ",! Line Location: PRINT+38
Function Call: WRITE	Prompt: !,"Exclude Drg-Drg Interaction Ck: Yes (No check for Drug-Drug Interactions)" Line Location: PRINT+44
Function Call: WRITE	Prompt: !!,"PGx ELIGIBLE: ",PGXE,!,"PGx SUPPRESSED: ",PGXS Line Location: PRINT+48
Function Call: WRITE	Prompt: !,"Maximum Days Supply: ",$$GET1^DIQ(50.68,VAPRDIEN,32) Line Location: PRINT+54
Function Call: WRITE	Prompt: ! Line Location: PRINT+59
Function Call: WRITE	Prompt: !!,"NDC: ",$P(NDX,"^",2)," UPN: ",$P(NDX,"^",3),!,"VA Product Name: ",$P(^PSNDF(50.68,$P(NDX,"^",6),0),"^"),!,"Manufacturer: ",$P($G(^PS(55.95,+$P(NDX,"^",4),0)),"^")," Trade Name: ",$P(NDX,"^",5),!,"Route: " Line Location: PRNT+2
Function Call: WRITE	Prompt: $P(^(SIE1,0),"^") Line Location: PRNT+3
Function Call: WRITE	Prompt: !,"Package Size: ",$P(^PS(50.609,$P(NDX,"^",8),0),"^")," Package Type: ",$P(^PS(50.608,$P(NDX,"^",9),0),"^") Line Location: PRNT+4
Function Call: WRITE	Prompt: !,"Dose Form: " Line Location: NDOSE+3
Function Call: WRITE	Prompt: !,"Dose Form: ",$P($G(^PS(50.606,+$P(PSNELZER,"^",3),0)),"^")_$S($P($G(^PS(50.606,+$P(PSNELZER,"^",3),1)),"^")=1:" (Exclude from Dosing Cks)",1:"") Line Location: NDOSE+4
Function Call: WRITE	Prompt: !,"Strength: ",$P(PSNELZER,"^",4)," Units: ",$S($P(PSNELZER,"^",5):$P($G(^PS(50.607,+$P(PSNELZER,"^",5),0)),"^"),1:"") Line Location: NDOSE+8
Function Call: WRITE	Prompt: !,"Strength: ",$P(PSNELZER,"^",4) Line Location: NDOSE+9
Function Call: WRITE	Prompt: !,"Units: " Line Location: NDOSE+10
Function Call: WRITE	Prompt: $S($P(PSNELZER,"^",5):$P($G(^PS(50.607,+$P(PSNELZER,"^",5),0)),"^"),1:"") Line Location: NDOSE+10
Function Call: WRITE	Prompt: !," "_$P($G(^PS(50.607,+$P(PSNELZER,"^",5),0)),"^") Line Location: NDOSE+11
Function Call: WRITE	Prompt: !,"Override DF Exclude from Dosage Checks: "_$S($P($G(^PSNDF(50.68,PSNELORX,9)),"^")=1:"Yes",$P($G(^PSNDF(50.68,PSNELORX,9)),"^")=0:"No",1:"") Line Location: OVEX+2
Function Call: WRITE	Prompt: " (Dosage Checks shall be performed)" Line Location: OVEX+6
Function Call: WRITE	Prompt: " (No dosage checks performed)" Line Location: OVEX+7
Function Call: WRITE	Prompt: !,"Copay Tier: ",$P(PSNTIER,"^",1) Line Location: CPTIER+4
Function Call: WRITE	Prompt: !,"Copay Effective Date: " Line Location: CPTIER+5
Function Call: WRITE	Prompt: Y Line Location: CPTIER+5
Function Call: WRITE	Prompt: ! Line Location: CPTIER+6
Function Call: WRITE	Prompt: " "_$G(PSNELFZC) Line Location: EXPAN+4
Function Call: WRITE	Prompt: ! Line Location: NFIP+4
Function Call: WRITE	Prompt: ! Line Location: NFIP+8
Function Call: WRITE	Prompt: !!,"Auto-Create Default Possible Dosage? ",$S($P(POSDOS,"^")="Y":"Yes",1:"No") Line Location: POSDOS+5
Function Call: WRITE	Prompt: !," Possible Dosages To Auto-Create: ",$S($P(POSDOS,"^",2)="N":"No Possible Dosages",$P(POSDOS,"^",2)="O":"1x Possible Dosage",$P(POSDOS,"^",2)="B":"1x and 2x Possible Dosages",1:"") Line Location: POSDOS+7
Function Call: WRITE	Prompt: !," Package: ",$S($P(POSDOS,"^",3)="O":"Outpatient",$P(POSDOS,"^",3)="I":"Inpatient",$P(POSDOS,"^",3)="IO":"Both Inpatient and Outpatient",1:"") Line Location: POSDOS+9
Function Call: WRITE	Prompt: !!,"Coding System: ",$P(^PSNDF(50.68,PSNCIEN,11,PSNCODX,0),"^",1) Line Location: CODSYS+4
Function Call: WRITE	Prompt: !,"Code: ",$P(^PSNDF(50.68,PSNCIEN,11,PSNCODX,1,PSNCODJ,0),"^",1) Line Location: CODSYS+6
Function Call: WRITE	Prompt: ! Line Location: CODSYS+7
Function Call: WRITE	Prompt: " ",VAPNAM Line Location: GETTIERN+4
Function Call: WRITE	Prompt: " Tier ",$P(PSSCP,"^") Line Location: GETTIERN+8
Function Call: WRITE	Prompt: " Tier ",$P(PSSCP,"^") Line Location: GETTIER+6
Function Call: WRITE	Prompt: !,"Product Text: " Line Location: FDT+14
Function Call: WRITE	Prompt: !," " Line Location: FDT+15
Routine Call	DIC Line Location: PRODI+1 LINK+7 LINK+11 LISTNDC+2
Routine Call	DIC Line Location: NDC+2 NDC+3 NDCI+2 LINK+2
Routine Call	DIE Line Location: LINK+6 LINK+7 LINK+10 LINK+11
Routine Call	DIR Line Location: ASKIT NDC+1 NDC+2 NDCI+1 LINK+1 LINK+3 LINK+5 LINK+9 LISTNDC1+2 LISTNDC1+10 HANG

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSNDF(50.67 - [#50.67]	Classic Fileman Calls, GET1^DIQ
^PSNDF(50.68 - [#50.68]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DT+1
^DD(50.67	LINK+7, LINK+11
^PS(50.416 - [#50.416]	PRINT+20, PRINT+21
^PS(50.605 - [#50.605]	PRINT+25, PRINT+28
^PS(50.606 - [#50.606]	NDOSE+4, OVEX+5, OVEX+6, OVEX+7
^PS(50.607 - [#50.607]	PRINT+22, NDOSE+6, NDOSE+8, NDOSE+10, NDOSE+11
^PS(50.608 - [#50.608]	LKNDC+2, PRNT+4
^PS(50.609 - [#50.609]	LKNDC+2, PRNT+4
^PS(50.621 - [#50.621]	GCN+2, GCN+4
^PS(50.623 - [#50.623]	GCN+1, GCN+2, GCN+4
^PS(55.95 - [#55.95]	LKNDC, PRNT+2
^PSNDF(50.6 - [#50.6]	PRINT+13
^PSNDF(50.64 - [#50.64]	PRINT+17
^PSNDF(50.67 - [#50.67]	LKNDC+1, LINK+5, LINK+9, LISTNDC1+3, LISTNDC1+7, LISTNDC1+8, PRNT+1, PRNT+3
^PSNDF(50.68 - [#50.68]	LKNDC, LISTNDC+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+19, PRINT+20 , PRINT+27, PRINT+32, PRINT+44, CMOP, PRNT+2, NDOSE+2, OVEX+2, OVEX+3, EXPAN+2, NFIP+3 , NFIP+5, CODSYS+2, CODSYS+3, CODSYS+4, CODSYS+5, CODSYS+6, FDT+1, FDT+5, FDT+6, FDT+9 , FDT+10
^TMP($J	END!, LISTNDC+1!, LISTNDC1+2!, LISTNDC1+7*, LISTNDC1+12
^UTILITY($J	FDT+3!, FDT+13, FDT+16, FDT+17!

Label References

Name	Line Occurrences
$$DT	LKNDC, PRINT+12
ASKIT	PSNACT+7
CMOP	ASKIT+3
CODSYS	PRINT+58
CPTIER	PRINT+42
END	ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LISTNDC+2, LISTNDC1+13
EXPAN	PRINT+32
FD	PRINT+36
FDT	PRINT+40
GCN	PRINT+11
HANG	PRT, PRINT+23, PRINT+29, PRINT+31, PRINT+33, PRINT+35, PRINT+37, PRINT+39, PRINT+41, PRINT+43 , PRINT+45, PRINT+47, PRINT+49, PRINT+51, PRINT+53, PRINT+55, PRINT+57, PRINT+59, PRNT, NFIP+7
LINK	LINK+12
LISTNDC	ASKIT+2, NDCI+1
LISTNDC1	NDCI+1
LKNDC	NDC+2, NDC+3
NDC	ASKIT+1
NDOSE	PRINT+14
NFIP	PRINT+38
OVEX	PRINT+46
PAD	NDC+2
PAD1	PAD
POSDOS	PRINT+52
PRINT	LKNDC+3, LISTNDC+3, CMOP
PRNT	LISTNDC+3, CMOP
TEXT	PSNACT+7

Naked Globals

Name	Field # of Occurrence
^(	LKNDC+1, LISTNDC1+8, PRNT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETTIERN+2, GETTIER+4
ANS	PSNACT+9~, PAD, PAD+1, PAD+2, PAD1
ASK	PSNACT+8!, ASKIT*, ASKIT+1, ASKIT+2, ASKIT+3
CPDATE	CPTIER+2~!, GETTIERN+1~, GETTIERN+2, GETTIERN+7!, GETTIER+1~, GETTIER+4*, GETTIER+5!
D	PSNACT+9~, NDC+2, NDC+3, NDCI+2, LINK+2, CMOP*
DA	NDC+2, NDC+3, LKNDC+1, END!, PRODI+1, PRODI+2!, NDCI+2, NDCI+3!, LINK+2, LINK+5 , LINK+6, LINK+7, LINK+9, LINK+10, LINK+11, LISTNDC+1!, PRT, LISTNDC1+3, LISTNDC1+7, LISTNDC1+8 , LISTNDC1+12*
DA(1	LINK+6, LINK+7, LINK+10, LINK+11
DD	LINK+7!, LINK+11!
DIC	PSNACT+7!, PSNACT+8!, NDC+2, NDC+3, END!, PRODI+1, PRODI+2!, NDCI+2, NDCI+3!, LINK+2* , LINK+7, LINK+11, LISTNDC+1!, LISTNDC+2, PRT, LISTNDC1+3, LISTNDC1+12, CMOP!*
DIC("A"	NDC+3, NDCI+2, LINK+2, CMOP
DIC("P"	LINK+7, LINK+11
DIC("W"	NDC+2, NDC+3, LISTNDC+2, LISTNDC1+2, CMOP*
DIC(0	NDC+2, NDC+3, PRODI+1, NDCI+2, LINK+2, LINK+7, LINK+11, LISTNDC+2, CMOP*
DIE	END!, LINK+6, LINK+7, LINK+10, LINK+11
DIR	PSNACT+7!, PSNACT+8!, END!, NDCI+3!, LINK+3!, HANG!
DIR("A"	ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LINK+3, LINK+5, LINK+9, LISTNDC1+2, LISTNDC1+9 , HANG*
DIR("B"	LINK+1*
DIR(0	ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LINK+3, LINK+5, LINK+9, LISTNDC1+2, LISTNDC1+9 , HANG*
>> DIRUT	PSNACT+7, ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LINK+2, LINK+3, LINK+5, LINK+9 , LISTNDC1+2
DIWF	FDT+2~
DIWL	FDT+2~, FDT+8*, FDT+13, FDT+16
DIWR	FDT+2~, FDT+8*
>> DLAYGO	LINK+7, LINK+11
DO	LINK+7!, LINK+11!
DR	END!, LINK+6, LINK+7, LINK+10, LINK+11
DTOUT	PSNACT+9~, LISTNDC1+10
DUOUT	PSNACT+9~, LISTNDC1+10
DYAYGO	PSNACT+9~
ENG	PSNACT+9~, GCN+2, GCN+4
FDTCNT	FDT+2~, FDT+13*, FDT+16
FDTCNT2	FDT+2~, FDT+8, FDT+14, FDT+15, FDT+16
I	PSNACT+8!, CODSYS+1~, CODSYS+2*
IEN	PSNACT+8!, LISTNDC+3, CMOP
IN	END!, LINK+5, LINK+6, LINK+7, LINK+9, LINK+10, LINK+11
ING	END!, PRINT+3~, PRINT+20, PRINT+21, PRINT+22
IOF	LKNDC, LISTNDC+3, HANG
>> IORVOFF	DT+1
>> IORVON	PSNACT+6, DT+1
IOSL	PRT, PRINT+23, PRINT+29, PRINT+31, PRINT+33, PRINT+35, PRINT+37, PRINT+39, PRINT+41, PRINT+43 , PRINT+45, PRINT+47, PRINT+49, PRINT+51, PRINT+53, PRINT+55, PRINT+57, PRNT, NFIP+7
J	PSNACT+8!, END!, CODSYS+1~, CODSYS+5*
K	LKNDC+1, END!, PRINT+3~, PRINT+19, PRINT+20, PRINT+27*, PRINT+28
L	END!, LISTNDC+1!
MAP	PSNACT+9~, GCN+2, GCN+4
MORE	PSNACT+8!, LISTNDC1+8*, LISTNDC1+9
NDF	NDC+2, NDC+3, LKNDC, LKNDC+2, LKNDC+3, END!
NDX	PSNACT+8!, PRNT+1*, PRNT+2, PRNT+4
NEW	END!, LINK+3*, LINK+5, LINK+7, LINK+9, LINK+11
OLD	END!, LINK+2*, LINK+7, LINK+11
OLDDA	PSNACT+8!, END!
PGXE	PRINT+3~, PRINT+10*, PRINT+48
PGXS	PRINT+3~, PRINT+10*, PRINT+48
PMIS	PSNACT+9~, PRINT+18, GCN, GCN+1, GCN+2, GCN+4
POSDOS	POSDOS+3~, POSDOS+4*, POSDOS+5, POSDOS+6, POSDOS+7, POSDOS+8, POSDOS+9
PPP	PSNACT+8!
PROMPT	PSNACT+8!, NDC+1!, NDC+2, NDC+3, END!, NDCI+1, NDCI+2, NDCI+3!, LINK+1*, LINK+2 , LINK+3, LINK+4, LINK+8, GETTIERN+4
PSN	PSNACT+8!, LISTNDC1+2*, LISTNDC1+7, LISTNDC1+8
PSN1	PSNACT+8!, LISTNDC1+2, LISTNDC1+3, LISTNDC1+5, LISTNDC1+6, LISTNDC1+7, LISTNDC1+8
PSNCIEN	CODSYS~, CODSYS+2, CODSYS+3, CODSYS+4, CODSYS+5, CODSYS+6
PSNCODJ	CODSYS+1~, CODSYS+4, CODSYS+5, CODSYS+6
PSNCODX	CODSYS+1~, CODSYS+2, CODSYS+3, CODSYS+4, CODSYS+5, CODSYS+6
PSNCONVD	GETTIERN+1~, GETTIERN+10, GETTIERN+11, GETTIER+1~, GETTIER+8, GETTIER+9
PSNCTNDC	GETTIERN~, GETTIERN+3, GETTIERN+9
PSNDND	FDT+2~, FDT+4, FDT+6, FDT+8, FDT+10, FDT+11
PSNELDFF	OVEX+1~, OVEX+3*, OVEX+4, OVEX+5, OVEX+6, OVEX+7
PSNELFJ	NFIP~, NFIP+3, NFIP+5, FD~, FD+2, FDR~, FDR+2, FDT~, FDT+1, FDT+5 , FDT+6, FDT+9, FDT+10
PSNELFJC	NFIP+1~, NFIP+2, NFIP+4, NFIP+6, NFIP+8
PSNELFJZ	NFIP+1~, NFIP+3*, NFIP+5
PSNELFZA	EXPAN~, EXPAN+2, EXPAN+3
PSNELFZB	EXPAN+1~, EXPAN+3*
PSNELFZC	EXPAN+1~, EXPAN+3*, EXPAN+4
PSNELIEN	PRINT+3~
PSNELORX	OVEX~, OVEX+2, OVEX+3
PSNELSTL	NDOSE+1~, NDOSE+5*, NDOSE+8
PSNELUNL	NDOSE+1~, NDOSE+6, NDOSE+7, NDOSE+8, NDOSE+10
PSNELXXX	NDOSE~, NDOSE+2
PSNELXY	PRINT+3~, PRINT+20*, PRINT+22
PSNELZER	NDOSE+1~, NDOSE+2*, NDOSE+3, NDOSE+4, NDOSE+5, NDOSE+6, NDOSE+7, NDOSE+8, NDOSE+9, NDOSE+10 , NDOSE+11
PSNFD	GETTIERN+1~, GETTIERN+5, GETTIERN+6, GETTIER+1~, GETTIER+2, GETTIER+3, FDR+1~, FDR+2*, FDR+3
PSNFDTXT	FDT+1~*
PSNINACT	GETTIERN+1~, GETTIERN+9, GETTIERN+10, GETTIER+1~, GETTIER+7, GETTIER+8
PSNJ	FDT+2~, FDT+4, FDT+5, FDT+6, FDT+8, FDT+9, FDT+10
PSNRXCUI	CODSYS+1~, CODSYS+3*
PSNTDRUG	GETTIER~, GETTIER+2, GETTIER+5, GETTIER+7
PSNTEXT	FDT+2~, FDT+4, FDT+6, FDT+7
PSNTIER	PSNACT+9~, CPTIER+2*, CPTIER+4, CPTIER+5
PSSCP	GETTIERN+1~, GETTIERN+7, GETTIERN+8, GETTIER+1~, GETTIER+5, GETTIER+6
PSSFD	FD+1~, FD+2*, FD+3
QQQ	PSNACT+9~, PRINT+3~, PRINT+11*, GCN, GCN+1, GCN+2, GCN+4
QUIT	PSNACT+8!, LISTNDC+3, PRT, LISTNDC1+2, LISTNDC1+3, LISTNDC1+4, LISTNDC1+7, LISTNDC1+10, LISTNDC1+12, PRINT+19* , PRINT+23, PRINT+24, PRINT+27, PRINT+29, PRINT+30, PRINT+31, PRINT+33, PRINT+35, PRINT+37, PRINT+38 , PRINT+39, PRINT+40, PRINT+41, PRINT+43, PRINT+45, PRINT+47, PRINT+49, PRINT+50, PRINT+51, PRINT+53 , PRINT+55, PRINT+57, HANG, PRNT, NFIP+3, NFIP+8
SIE	PSNACT+8!, LISTNDC+3, PRT, CMOP, PRNT+1, PRNT+3
SIE1	PSNACT+8!, PRNT+3*
VAPID	GETTIERN+1~, GETTIERN+3*, GETTIERN+4, GETTIERN+5, GETTIERN+7
VAPNAM	GETTIERN+1~, GETTIERN+4*
VAPRD	CPTIER~, CPTIER+2, POSDOS~, POSDOS+3, POSDOS+4
VAPRDIEN	PRINT~, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+14, PRINT+19 , PRINT+20, PRINT+27, PRINT+32, PRINT+36, PRINT+38, PRINT+40, PRINT+42, PRINT+44, PRINT+46, PRINT+50 , PRINT+52, PRINT+54, PRINT+56, PRINT+58
VV	PAD*, PAD+1!, PAD1
VV1	PAD*, PAD+1!, PAD1
X	PSNACT+6, NDC+2, END!, PRODI+2!, NDCI+3!, LINK+7, LINK+11, PRINT+3~, PRINT+20, PAD+2* , CPTIER+2~!, GETTIERN+1~, GETTIERN+7!, GETTIER+1~, GETTIER+5!, FDT+2~, FDT+11*
Y	PSNACT+8!, NDC+2, NDC+3, END!, PRODI+1, PRODI+2!, NDCI+2, NDCI+3!, LINK+2, LINK+3 , LINK+5, LINK+9, LISTNDC+2, LISTNDC+3, LISTNDC1+2, LISTNDC1+11, LISTNDC1+12, CMOP, HANG, PAD , DT~, DT+1, CPTIER+5*!
Y(0	ASKIT, NDC+1, NDC+2, NDC+3, NDCI+1, LINK+1, LINK+2
Y1	PSNACT+8!, END!
Y3	PSNACT+8!, END!
Y5	PSNACT+8!
Y6	PSNACT+8!
Y7	PSNACT+8!, END!
Z0	PSNACT+8!, PRINT+3~, PRINT+4*, PRINT+12, PRINT+13, PRINT+15
Z1	PSNACT+8!, PRINT+3~, PRINT+5*, PRINT+11, PRINT+16, PRINT+17
Z3	PSNACT+8!, PRINT+3~, PRINT+6*, PRINT+25
Z5	PSNACT+8!, PRINT+3~, PRINT+7*, PRINT+34
Z6	PSNACT+8!, PRINT+3~, PRINT+8*
Z7	PSNACT+8!, PRINT+3~, PRINT+9*, PRINT+12
ZA	PSNACT+8!, LKNDC+3*
ZCT	PSNACT+9~, LISTNDC1+7*, LISTNDC1+8, LISTNDC1+9
ZXX	PSNACT+7*, PSNACT+8!

Customize PDF page

Package: National Drug File