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

Package: National Drug File

Routine: PSNACT


Information

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

Source Information

Source file <PSNACT.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 (,IX)^DIC  MIX^DIC1  ^DIE  ($$GET1,EN)^DIQ  ^DIR  
Kernel 2 ENDR^%ZISS  $$LJ^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNACT  

Entry Points

Name Comments DBIA/ICR reference
DT(Y) ;Inactivation Date display
TEXT
LINK ;LINK NDCS OR UPNS
CMOP
LKNDC
PRNT
PAD1
PRT
LISTNDC ;LOOK UP NDCS BY PRODUCT
NDOSE(PSNELXXX) ;New Dose Form/Strength/Unit display added with patch PSN*4*169
ENTER1
END
NFIP(PSNELFJ) ;
NDC ;OR UPN
HANG
GCN
NDCI ;INQUIRE INTO 50.67
ENTER
OVEX(PSNELORX) ;New Override Dose Form display added with patch PSN*4*169
LISTNDC1 ;LOOK UP PARTIAL NDC
EXPAN(PSNELFZA) ;
PRODI ;INQUIRE INTO 50.68
ASKIT
PAD

External References

Name Field # of Occurrence
ENDR^%ZISS PSNACT+5
^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 EXPAN+3
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
$$LJ^XLFSTR LISTNDC1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSNACT+6
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: ?23,$P(ING,"^")," Strength: ",$P(PSNELXY,"^",2)," Units: ",$P($G(^PS(50.607,+$P(PSNELXY,"^",3),0)),"^"),!
  • Line Location: ENTER+6
Function Call: WRITE
  • Prompt: ?26,$P($G(^PS(50.605,+K,0),"Unknown"),"^"),!
  • Line Location: ENTER+7
Function Call: WRITE
  • Prompt: !,"CS Federal Schedule: "_$S($P($G(^PSNDF(50.68,PSNELIEN,7)),"^")]"":$P(^PSNDF(50.68,PSNELIEN,7),"^"),1:"")
  • Line Location: ENTER+8
Function Call: WRITE
  • Prompt: !,"National Formulary Indicator: "
  • Line Location: ENTER+9
Function Call: WRITE
  • Prompt: "Yes"
  • Condition for execution: $P(Y5,"^")=1
  • Line Location: ENTER+9
Function Call: WRITE
  • Prompt: "No"
  • Condition for execution: $P(Y5,"^")=0
  • Line Location: ENTER+9
Function Call: WRITE
  • Prompt: !,"National Formulary Restriction: ",!
  • Line Location: ENTER+10
Function Call: WRITE
  • Prompt: !,"Exclude Drg-Drg Interaction Ck: Yes (No check for Drug-Drug Interactions)"
  • Line Location: ENTER+11
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: ?23,$P(ING,"^")," Strength: ",$P(PSNELXA,"^",2)," Units: ",$P($G(^PS(50.607,+$P(PSNELXA,"^",3),0)),"^"),!
  • Line Location: ENTER1+5
Function Call: WRITE
  • Prompt: ?26,$P($G(^PS(50.605,+K,0),"Unknown"),"^"),!
  • Line Location: ENTER1+6
Function Call: WRITE
  • Prompt: !,"CS Federal Schedule: "_$S($P(Z7,"^")]"":$P(Z7,"^"),1:"")
  • Line Location: ENTER1+7
Function Call: WRITE
  • Prompt: !,"National Formulary Indicator: "
  • Line Location: ENTER1+8
Function Call: WRITE
  • Prompt: "Yes"
  • Condition for execution: $P(Z5,"^")=1
  • Line Location: ENTER1+8
Function Call: WRITE
  • Prompt: "No"
  • Condition for execution: $P(Z5,"^")=0
  • Line Location: ENTER1+8
Function Call: WRITE
  • Prompt: !,"National Formulary Restriction: ",!
  • Line Location: ENTER1+9
Function Call: WRITE
  • Prompt: !,"Exclude Drg-Drg Interaction Ck: Yes (No check for Drug-Drug Interactions)"
  • Line Location: ENTER1+10
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: " "_$G(PSNELFZC)
  • Line Location: EXPAN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NFIP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NFIP+8
Routine Call
  • DIE
  • Line Location:
    • LINK+6
    • LINK+7
    • LINK+10
    • LINK+11
Routine Call
  • DIC
  • Line Location:
    • PRODI+1
    • LINK+7
    • LINK+11
    • LISTNDC+2
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
Routine Call
  • DIC
  • Line Location:
    • NDC+2
    • NDC+3
    • NDCI+2
    • LINK+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSNDF(50.67 - [#50.67] Classic Fileman Calls
^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] ENTER+5, ENTER1+4
^PS(50.605 - [#50.605] ENTER+7, ENTER1+6
^PS(50.606 - [#50.606] NDOSE+4, OVEX+5, OVEX+6, OVEX+7
^PS(50.607 - [#50.607] ENTER+6, ENTER1+5, 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] ENTER+2, ENTER1+1
^PSNDF(50.64 - [#50.64] ENTER+4, ENTER1+3
^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] ENTER, ENTER+5, ENTER+7, ENTER+8, ENTER+11, LKNDC, LISTNDC+2, ENTER1, ENTER1+4, ENTER1+6
, ENTER1+10, CMOP, PRNT+2, NDOSE+2, OVEX+2, OVEX+3, EXPAN+2, NFIP+3, NFIP+5
^TMP($J END!, LISTNDC+1!, LISTNDC1+2!, LISTNDC1+7*, LISTNDC1+12

Label References

Name Line Occurrences
$$DT ENTER+1, LKNDC
ASKIT PSNACT+6
CMOP ASKIT+3
END ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LISTNDC+2, LISTNDC1+13
ENTER LISTNDC+2, CMOP
ENTER1 LKNDC+3
EXPAN ENTER+8, ENTER1+7
GCN ENTER, ENTER1
HANG ENTER+6, ENTER+8, ENTER+9, ENTER+10, ENTER+11, ENTER+12, ENTER+13, PRT, ENTER1+5, ENTER1+7
, ENTER1+8, ENTER1+9, ENTER1+10, ENTER1+11, ENTER1+12, PRNT, NFIP+7
LINK LINK+12
LISTNDC ASKIT+2, NDCI+1
LISTNDC1 NDCI+1
LKNDC NDC+2, NDC+3
NDC ASKIT+1
NDOSE ENTER+2, ENTER1+1
NFIP ENTER+10, ENTER1+9
OVEX ENTER+12, ENTER1+11
PAD NDC+2
PAD1 PAD
PRNT LISTNDC+2, CMOP
TEXT PSNACT+6

Naked Globals

Name Field # of Occurrence
^( ENTER+5, LKNDC+1, LISTNDC1+8, ENTER1+4, PRNT+3
^(3 ENTER
^(5 ENTER
^(7 ENTER

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS PSNACT+7!, PAD*, PAD+1*, PAD+2*, PAD1*
ASK PSNACT+7!, ASKIT*, ASKIT+1, ASKIT+2, ASKIT+3
D PSNACT+7!, NDC+2*, NDC+3*, NDCI+2*, LINK+2*, CMOP*
DA ENTER*, ENTER+15!, 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+6!, PSNACT+7!, 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(0 NDC+2*, NDC+3*, PRODI+1*, NDCI+2*, LINK+2*, LINK+7*, LINK+11*, LISTNDC+2*, CMOP*
DIE ENTER+15!, END!, LINK+6*, LINK+7*, LINK+10*, LINK+11*
DIR PSNACT+6!, PSNACT+7!, 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+6, ASKIT, ENTER+15!, NDC+1, NDC+2, NDCI+1, LINK+1, LINK+2, LINK+3, LINK+5
, LINK+9, LISTNDC1+2
>> DLAYGO LINK+7*, LINK+11*
DO LINK+7!, LINK+11!
DR ENTER+15!, END!, LINK+6*, LINK+7*, LINK+10*, LINK+11*
DTOUT PSNACT+7!, LISTNDC1+10
DUOUT PSNACT+7!, LISTNDC1+10
DYAYGO PSNACT+7!
ENG PSNACT+7!, GCN+2*, GCN+4*
I PSNACT+7!
IEN PSNACT+7!, LISTNDC+2*, CMOP*
IN END!, LINK+5*, LINK+6, LINK+7, LINK+9*, LINK+10, LINK+11
ING ENTER+5*, ENTER+6, ENTER+15!, END!, ENTER1+4*, ENTER1+5
IOF ENTER+1, LKNDC, HANG
>> IORVOFF DT+1
>> IORVON PSNACT+5, DT+1
IOSL ENTER+6, ENTER+8, ENTER+9, ENTER+10, ENTER+11, ENTER+12, PRT, ENTER1+5, ENTER1+7, ENTER1+8
, ENTER1+9, ENTER1+10, ENTER1+11, PRNT, NFIP+7
J PSNACT+7!, END!
K ENTER+5*, ENTER+7*, ENTER+15!, LKNDC+1*, END!, ENTER1+4*, ENTER1+6*
L END!, LISTNDC+1!
MAP PSNACT+7!, GCN+2*, GCN+4*
MORE PSNACT+7!, LISTNDC1+8*, LISTNDC1+9
NDF NDC+2*, NDC+3*, LKNDC, LKNDC+2, LKNDC+3, END!
NDX PSNACT+7!, 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+7!, ENTER+15!, END!
PMIS PSNACT+7!, ENTER+5, ENTER1+4, GCN*, GCN+1*, GCN+2*, GCN+4*
PPP PSNACT+7!
PROMPT PSNACT+7!, NDC+1!*, NDC+2, NDC+3, END!, NDCI+1*, NDCI+2, NDCI+3!, LINK+1*, LINK+2
, LINK+3, LINK+4, LINK+8
PSN PSNACT+7!, LISTNDC1+2*, LISTNDC1+7, LISTNDC1+8
PSN1 PSNACT+7!, LISTNDC1+2*, LISTNDC1+3, LISTNDC1+5*, LISTNDC1+6*, LISTNDC1+7*, LISTNDC1+8
PSNELDFF OVEX+1~, OVEX+3*, OVEX+4, OVEX+5, OVEX+6, OVEX+7
PSNELFJ NFIP~, NFIP+3, NFIP+5
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 ENTER~*, ENTER+2, ENTER+5, ENTER+7, ENTER+8, ENTER+10, ENTER+11, ENTER+12
PSNELORX OVEX~, OVEX+2, OVEX+3
PSNELSTL NDOSE+1~, NDOSE+5*, NDOSE+8
PSNELUNL NDOSE+1~, NDOSE+6*, NDOSE+7*, NDOSE+8, NDOSE+10
PSNELXA ENTER1~, ENTER1+4*, ENTER1+5
PSNELXEN ENTER1~*, ENTER1+1, ENTER1+4, ENTER1+6, ENTER1+7, ENTER1+9, ENTER1+10, ENTER1+11
PSNELXXX NDOSE~, NDOSE+2
PSNELXY ENTER~, ENTER+5*, ENTER+6
PSNELZER NDOSE+1~, NDOSE+2*, NDOSE+3, NDOSE+4, NDOSE+5, NDOSE+6, NDOSE+7, NDOSE+8, NDOSE+9, NDOSE+10
, NDOSE+11
QQQ PSNACT+7!, ENTER!*, ENTER1!*, GCN, GCN+1, GCN+2, GCN+4
QUIT PSNACT+7!, ENTER+5, ENTER+6, ENTER+7, ENTER+8, ENTER+9, ENTER+10, ENTER+11, ENTER+12, LISTNDC+2
, PRT, LISTNDC1+2*, LISTNDC1+3*, LISTNDC1+4, LISTNDC1+7, LISTNDC1+10*, LISTNDC1+12*, ENTER1+4, ENTER1+5, ENTER1+6
, ENTER1+7, ENTER1+8, ENTER1+9, ENTER1+10, ENTER1+11, HANG*, PRNT, NFIP+3, NFIP+8
SIE PSNACT+7!, LISTNDC+2*, PRT, CMOP*, PRNT+1, PRNT+3
SIE1 PSNACT+7!, PRNT+3*
VV PAD*, PAD+1!, PAD1
VV1 PAD*, PAD+1!, PAD1
X PSNACT+5*, ENTER+5*, ENTER+15!, NDC+2, END!, PRODI+2!, NDCI+3!, LINK+7*, LINK+11*, ENTER1+4*
, PAD+2*
Y PSNACT+7!, ENTER, ENTER+15!, NDC+2, NDC+3, END!, PRODI+1, PRODI+2!, NDCI+2, NDCI+3!
, LINK+2, LINK+3, LINK+5, LINK+9, LISTNDC+2, LISTNDC1+2, LISTNDC1+11, LISTNDC1+12, CMOP, HANG
, PAD, DT~, DT+1
Y(0 ASKIT, ENTER+1, ENTER+2, ENTER+3, NDC+1, NDC+2, NDC+3, NDCI+1, LINK+1, LINK+2
Y1 PSNACT+7!, ENTER*, ENTER+3, ENTER+4, ENTER+15!, END!
Y3 PSNACT+7!, ENTER*, ENTER+7, ENTER+15!, END!
Y5 PSNACT+7!, ENTER*, ENTER+9
Y6 PSNACT+7!, ENTER*
Y7 PSNACT+7!, ENTER*, ENTER+1, ENTER+15!, END!
Z0 PSNACT+7!, ENTER1*, ENTER1+1, ENTER1+2
Z1 PSNACT+7!, ENTER1*, ENTER1+2, ENTER1+3
Z3 PSNACT+7!, ENTER1*, ENTER1+6
Z5 PSNACT+7!, ENTER1*, ENTER1+8
Z6 PSNACT+7!, ENTER1*
Z7 PSNACT+7!, ENTER1*, ENTER1+7
ZA PSNACT+7!, LKNDC+3*, ENTER1
ZCT PSNACT+7!, LISTNDC1+7*, LISTNDC1+8, LISTNDC1+9
ZXX PSNACT+6*, PSNACT+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All