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: PSNPPIP

Package: National Drug File

Routine: PSNPPIP


Information

PSNPPIP ;BIR/DMA-WRT-print a medication instruction sheet ; 12 Apr 2007 8:38 AM

Source Information

Source file <PSNPPIP.m>

Entry Points

Name Comments DBIA/ICR reference
PICK ;select a drug from file 50
EN1 ; entry
PAUSE
QUIT
DOMORE ;multiple
DOONE ;Print one PMI sheet
IMP ;Important note about the drug of choice
TITLE ;Title and phonic pronunciation
BRAND ;Common Brand Name
TXT1 ;Text portion
BRK ;Break line between words rather than within a word
PRINT ;
HEAD ;
DICS ;set DIC("S") to screen out inactives and entries in file 50
ENOP(PSNDRUG,PSNTRADE,PSRX,PSNDFN) ;
  • ICR #2261
    • Status: Active
    • Usage: Private
    LANGE
    DEFLT

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Patient Medication Instruction Sheets data has not been installed",!!
    • Line Location: PICK+4
    Function Call: WRITE
    • Prompt: !,"Drug not matched to NDF"
    • Line Location: PICK+7
    Function Call: WRITE
    • Prompt: !,"Sorry No PMI sheet available"
    • Line Location: PICK+10
    Function Call: WRITE
    • Prompt: !,"No device selected and no PMIS printed",!
    • Line Location: EN1+12
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DOONE+31
    Function Call: WRITE
    • Prompt: !,"Drug is not linked to a valid Medication Information Sheet for language selected"
    • Line Location: DOONE+31
    Function Call: WRITE
    • Prompt: PSNPPI("MESSAGE"),!
    • Line Location: DOONE+32
    Function Call: WRITE
    • Prompt: !,"No PMI sheet available"
    • Line Location: DOONE+36
    Function Call: WRITE
    • Prompt: ^(K),!
    • Line Location: PRINT+1
    Function Call: WRITE
    • Prompt: @IOF
    • Condition for execution: $Y
    • Line Location: HEAD+2
    Function Call: WRITE
    • Prompt: !!,?70,$S(PSNTYPE<4:"Page ",1:"P"_$C(160)_"gina "),PG,!,LIN0,$S(PSNTYPE<4:"Medication instructions for ",1:"Informaci"_$C(162)_"n sobre su medicin a "),DRUG
    • Line Location: HEAD+2
    Function Call: WRITE
    • Prompt: !!,?2,"Printed for: ",NAM,?60,$$HTE^XLFDT(+$H),!,?2,"Rx Number: "_$G(PSRX)
    • Line Location: HEAD+3
    Function Call: WRITE
    • Prompt: !!!
    • Line Location: HEAD+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^%ZIS(1 - [#3.5] Classic Fileman Calls
    ^PS(55 - [#55] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call