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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSNOUT

Package: National Drug File

Routine: PSNOUT


Information

PSNOUT ;BIR/CCH&WRT-output transform routine ; 10/31/98 19:19

Source Information

Source file <PSNOUT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
National Drug File 5 $$PSJING^PSNAPIS  BLDIT^PSNCOMP  GONE^PSNDRUG  SET^PSNMRG  CHK^PSNVFY  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
National Drug File 6 PSNHELP  PSNHIT  PSNPFN  PSNRPT3  PSNSTCK  PSNVFY  
Pharmacy Data Management 2 PSSDEE  ^PSDRUG  

Entry Points

Name Comments DBIA/ICR reference
DISP
REACT ; code for reactivation of inactive drug in local drug file
INGRED ; output transform for ingredient
PKSIZE ; output transform for package size
FORM ; output transform for va product code
REACT1
  • ICR #2080
    • Status: Active
    • Usage: Private
    INGRD1
    INGRD2
    BREAK
    PKTYPE ; output transform for package type
    INGRED1 ; output transform for ingredient-used in NDF Info Report
    ARRAY
    ING0
    ING00
    ING000

    External References

    Name Field # of Occurrence
    $$PSJING^PSNAPIS INGRED+1, INGRED1+1
    BLDIT^PSNCOMP REACT1
    GONE^PSNDRUG REACT1
    SET^PSNMRG REACT1
    CHK^PSNVFY REACT1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?5,$P(INGT,"^",1)_" "_$P(INGT,"^",2)_" "_$P(INGT,"^",3)
    • Line Location: DISP+0
    Function Call: READ
    • Timeout: DTIME
    • Variable: PSNCON
    • Line Location: BREAK+0
    Function Call: WRITE
    • Prompt: !!,"points to ",$P(^("ND"),"^",2)," in the National Drug File."
    • Line Location: REACT+1
    Function Call: WRITE
    • Prompt: !,?42,IN," ",$P(^TMP($J,"PSNING",IN,IN1),"^",3)," ",$P(^TMP($J,"PSNING",IN,IN1),"^",4)
    • Line Location: INGRD2+0

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.608 - [#50.608] PKTYPE+1
    ^PS(50.609 - [#50.609] PKSIZE+1
    ^PSDRUG - [#50] FORM+1, REACT+1, REACT1
    ^PSNDF(50.6 - [#50.6] REACT1
    ^PSNDF(50.68 - [#50.68] FORM+2, FORM+4
    ^PSNTRAN - [#50.612] REACT1!
    ^TMP($J INGRED+1!, INGRED+2!, ING0*, ING00, ING000, ARRAY*, INGRD1!*, INGRD2

    Label References

    Name Line Occurrences
    ARRAY ING000
    BREAK INGRED+1
    DISP INGRED+1
    ING0 INGRED+1
    ING00 INGRED+1
    ING000 ING00
    INGRD1 INGRED1+1
    INGRD2 INGRED1+1

    Naked Globals

    Name Field # of Occurrence
    ^("ND" REACT+1, REACT1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D0 FORM+1
    >> DA REACT+1, REACT1*
    DTIME BREAK
    >> FNM INGRED1+1
    IN ING00*, ING000, ARRAY, INGRED1+1!, INGRD2*
    >> IN1 ING000*, ARRAY, INGRD2*
    >> INGT INGRED+1*, DISP
    >> INT ING0*, INGRD1*
    >> K INGRED+1*, INGRED1+1*
    LIST INGRED+1!, INGRED1+1!
    LIST( ING0, ARRAY, INGRD1
    >> PSNB REACT1*
    >> PSNCON BREAK*
    PSNDF FORM+3*, FORM+4!
    >> PSNDRG REACT1*
    >> PSNFNM INGRED+1
    >> PSNLOC REACT1*
    PSNLOCL FORM+1*, FORM+2, FORM+3, FORM+4!
    PSNPTR FORM+3*, FORM+4!
    >> PSNRAN ING00*, ARRAY*
    >> PSNSIZE PKSIZE+1
    >> PSNSZE PKSIZE+1*
    >> PSNTPE PKTYPE+1*
    >> PSNTYPE PKTYPE+1
    >> PSNXZ INGRED+1*, BREAK
    >> STOP INGRED+1*, BREAK
    VV INGRED1+1!
    VVV INGRED1+1!
    X INGRED+1!*, INGRED1+1!*
    XX REACT1*!
    >> Y FORM+4*
    Z9 REACT1*!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All