Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 PSN*4*169
OVEX(PSNELORX) ;New Override Dose Form display added with patch PSN*4*169
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: Pending
    • Usage: Controlled Subscription
    FDR(PSNELFJ) ;DBIA #6754
  • ICR #6754
    • Status: Pending
    • Usage: Controlled Subscription
    FDT(PSNELFJ) ;DBIA #6754
  • ICR #6754
    • Status: Pending
    • Usage: Controlled Subscription

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call