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

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZISC  (ENDR,KILL)^%ZISS  $$HTE^XLFDT  EN^XUTMDEVQ  
VA FileMan 4 ^DIC  $$GET1^DIQ  EN^DIQ1  ^DIR  
National Drug File 1 (,ONELN)^PSNPPIP1  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
National Drug File 1 PSNPMIS PRINT  
Outpatient Pharmacy 1 PSOHELP  

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

    External References

    Name Field # of Occurrence
    ^%ZISC DOMORE+2
    ENDR^%ZISS IMP+2
    KILL^%ZISS QUIT+1
    ^DIC PICK+6
    $$GET1^DIQ DEFLT+1
    EN^DIQ1 DEFLT+2
    ^DIR EN1+1, EN1+8, HEAD+1
    ^PSNPPIP1 BRAND+2
    ONELN^PSNPPIP1 TXT1+7
    DEM^VADPT DOONE+9
    $$HTE^XLFDT HEAD+3
    EN^XUTMDEVQ EN1+11

    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
    Routine Call
    • DIC
    • Line Location:
      • PICK+6
    Routine Call
    • DIR
    • Line Location:
      • EN1+1
      • EN1+8
      • HEAD+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^%ZIS(1 - [#3.5] Classic Fileman Calls
    ^PS(55 - [#55] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] DOONE+9
    ^PS( DOONE+31, DOONE+32, DOONE+33, DOONE+34, DOONE+35, TITLE+2, TITLE+3, TITLE+7, TITLE+8, BRAND+4
    TXT1+5, TXT1+7, TXT1+8, TXT1+30
    ^PS(50.621 - [#50.621] PICK+4
    ^PS(50.622 - [#50.622] PICK+4
    ^PS(59.7 - [#59.7] LANGEDEFLTDEFLT+2
    ^PSDRUG - [#50] PICK+7, PICK+10, DOONE+17, DICS+2, DICS+3, ENOP+16
    ^PSNDF(50.68 - [#50.68] PICK+10, DOONE+17, DICS+2, LANGE+1
    ^TMP($J QUIT!, DOONE+8!, TITLE+3*, TITLE+8*, TITLE+9*, TXT1+13*, TXT1+14*, TXT1+17*, TXT1+30*, BRK+3*
    PRINT+1

    Label References

    Name Line Occurrences
    BRK TXT1+20
    DEFLT PICK+1
    DOONE DOMORE+1
    EN1 LANGE+4
    HEAD PRINT+1
    PAUSE PICK+4, PICK+12, EN1+1, EN1+8
    PRINT BRAND+5
    QUIT EN1+11
    TXT1 IMP+4, BRAND+4

    Naked Globals

    Name Field # of Occurrence
    ^( PRINT+1
    ^("I" DICS+2
    ^("ND" DOONE+17

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %ZIS EN1+11
    >> %ZIS("B" EN1+10*
    >> A TXT1+18, TXT1+19*, TXT1+27*, BRK+4, BRK+6*
    A1 DEFLT+1~*
    CNTI QUIT!, DOONE+5~, DOONE+38*, TITLE+3, TITLE+8
    CNTO QUIT!, DOONE+5~, DOONE+38*, TITLE+3, TITLE+4*, TITLE+8*, TITLE+9*, TXT1+13*, TXT1+14, TXT1+15*
    TXT1+17*, TXT1+21*, TXT1+30*, BRK+3
    >> DA DEFLT+2*
    DEFLANG QUIT!, LANGE*, DEFLT*, DEFLT+1*
    DEFPRTR QUIT!, DEFLT+2*
    >> DFN DOONE+9*
    DIC PICK+6*!, DEFLT+2*
    DIC("S" PICK+6*
    DIC(0 PICK+6*
    >> DIQ DEFLT+2*
    >> DIQ(0 DEFLT+2*
    DIR EN1+1!, EN1+8!, HEAD+1!
    DIR("A" EN1+1*, EN1+8*
    DIR("B" EN1+1*, EN1+8*
    DIR(0 EN1+1*, EN1+8*, HEAD+1*
    DIRUT EN1+1, EN1+8, QUIT!
    >> DR DEFLT+2*
    DRG PICK+6!, QUIT!, DOMORE+1*, DOONE+17, ENOP+15!, ENOP+16*, ENOP+18!, LANGE+3!, LANGE+4, LANGE+5!
    DRG( PICK+11*, DOMORE+1, LANGE+4*
    DRG(0 PICK+12
    DRUG QUIT!, DOONE+5~, DOONE+16!*, DOONE+17*, HEAD+2
    DT DICS+2
    I QUIT!, TXT1+12*, TXT1+13, TXT1+14, TXT1+23*, TXT1+24, BRK+2*, BRK+3, BRK+4
    IN QUIT!, DOONE+5~
    IOF DOONE+31, HEAD+2
    >> IOINHI TITLE+3, TITLE+8, TXT1+24
    >> IOINORM TITLE+8, TXT1+24
    IOM DOONE+10, TXT1+11, TXT1+12, TXT1+16, TXT1+19, TXT1+27, BRK+2, BRK+6
    IOSL PRINT+1
    IOST HEAD+1
    IOST(0 IMP+2
    J QUIT!, DOONE+5~, DOONE+17*, TXT1+2*, TXT1+7*, TXT1+8, TXT1+9, PRINT+1*
    K QUIT!, DOONE+5~, DOONE+17*, PRINT+1*
    L QUIT!, TXT1+3*, TXT1+10, TXT1+11, TXT1+12, TXT1+13, TXT1+14, TXT1+16, TXT1+17
    LENGTH QUIT!, TXT1+27*, BRK+6*
    LIN0 QUIT!, DOONE+5~, DOONE+10*, HEAD+2
    LINE QUIT!, DOONE+5~, DOONE+10*, TXT1+8*, TXT1+10, TXT1+18, TXT1+22, BRK+4
    LINE( TXT1+2*, TXT1+3*, TXT1+10*, TXT1+11, TXT1+12, TXT1+13, TXT1+14, TXT1+16, TXT1+17, TXT1+18*
    TXT1+19, TXT1+22*, TXT1+25*, TXT1+26*, TXT1+27, BRK+2, BRK+3, BRK+4*, BRK+5*, BRK+6
    LM QUIT!, DOONE+5~, DOONE+10*
    N QUIT!, TXT1+2*, TXT1+10, TXT1+18, TXT1+19, TXT1+21*, TXT1+22, TXT1+25, TXT1+26, TXT1+27
    TXT1+28*, BRK+2, BRK+3, BRK+4, BRK+5, BRK+6
    NAM QUIT!, DOONE+5~, DOONE+9*, HEAD+3
    NUM EN1+9*, QUIT!, DOONE+6*, PRINT+1
    P QUIT!, TXT1+22*, TXT1+23, TXT1+24
    PG QUIT!, PRINT+1*, HEAD+1, HEAD+2*
    POP EN1+11, QUIT!
    PPIN1 QUIT!
    PPIN2 QUIT!
    PPIND QUIT!
    PROD QUIT!
    PSNALPHA QUIT!, IMP+3*, IMP+4*, BRAND+4*, TXT1+5, TXT1+7, TXT1+8, TXT1+30
    PSNBND QUIT+1!
    PSNBOLD QUIT+1!, TXT1+3*, TXT1+24*, TXT1+25
    PSNDEV QUIT!
    PSNDEV( DEFLT+2
    PSNDF DOONE+31!, DOONE+32!, ENOP+16*, ENOP+17*, ENOP+18!, LANGE+3!, LANGE+5!
    PSNDFN DOONE+9, ENOP~, DEFLT+1
    PSNDRUG PICK+2, ENOP~, ENOP+16, LANGE+5!
    PSNEMAP QUIT+1!, DOONE+30*, DOONE+33*, DOONE+34, DOONE+35
    PSNENG QUIT+1!, DOONE+30*, DOONE+35*, DOONE+36, TITLE+2, TITLE+3, TITLE+7, TITLE+8, BRAND+4, TXT1+5
    TXT1+7, TXT1+8, TXT1+30
    >> PSNFILE1 DOONE+24*, DOONE+26*, DOONE+31, DOONE+32, DOONE+33, DOONE+34, DOONE+35
    >> PSNFILE2 DOONE+25*, DOONE+27*, TITLE+2, TITLE+3, TITLE+7, TITLE+8, BRAND+4, TXT1+5, TXT1+7, TXT1+8
    TXT1+30
    PSNFLAG QUIT+1!, DOONE+32*, ENOP+16*, ENOP+18*, LANGE+3*, LANGE+4
    PSNGCN PICK+9*, QUIT!, DOMORE+1*, DOONE+31!, DOONE+32!, DOONE+33, DOONE+34, DICS+2, LANGE+1*, LANGE+3!
    LANGE+4, LANGE+5!
    PSNLANG EN1+1, QUIT!, LANGE*, DEFLT*
    PSNLAST QUIT+1!, TXT1+2*, TXT1+5*, TXT1+9
    PSNORM QUIT+1!, TXT1+3*, TXT1+24*, TXT1+25
    PSNPN DOONE+31!, DOONE+32!, ENOP+15!, ENOP+17*, ENOP+18!, LANGE+1, LANGE+3!, LANGE+5!
    >> PSNPPI("MESSAGE" DOONE+32*, ENOP+18*, LANGE+3*
    PSNPRTR EN1+10, QUIT!, DEFLT+2*
    PSNSP QUIT+1!, DOONE+38*, TITLE+9, TXT1+30
    PSNTRADE DOONE+16, ENOP~, LANGE+5!
    PSNTYPE EN1+5*, QUIT!, DOONE+6*, DOONE+24, DOONE+25, DOONE+26, DOONE+27, HEAD+2, LANGE*
    >> PSODFN QUIT+1, DOONE+31, DOONE+32
    PSRX HEAD+3, ENOP~
    QQQ DICS+2~*, DICS+3*
    QUIT QUIT!, PRINT+1*, HEAD+1*
    RM QUIT!, DOONE+5~, DOONE+10*
    SPEC QUIT!, DOONE+5~
    TYP QUIT!
    U DOONE+34, DOONE+35
    X PICK+10*, PICK+11, PAUSE*, QUIT!, DOONE+5~, DOONE+17*, IMP+2*
    Y PICK+6, PICK+7, PICK+10, PICK+11, EN1+5, EN1+9, QUIT!, HEAD+1, DICS+2, DICS+3
    ZTDESC QUIT!
    >> ZTQUEUED DOMORE+2
    >> ZTREQ DOMORE+2*
    ZTRTN QUIT!
    ZTSAVE EN1+10!, EN1+11, QUIT!
    ZTSAVE("DRG(" EN1+10*
    ZTSAVE("NUM" EN1+10*
    ZTSAVE("PSNDFN" EN1+10*
    ZTSAVE("PSNTRADE" EN1+10*
    ZTSAVE("PSNTYPE" EN1+10*
    ZTSAVE("PSRX" EN1+10*
    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