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

Package: Pharmacy Data Management

Routine: PSSGIU


Information

PSSGIU ;BIR/CML3-GENERIC "APPLICATION PACKAGES' USE" SET ;01-Mar-2013 12:23;PLS

Source Information

Source file <PSSGIU.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIC  (FILE,YN)^DICN  ^DIE  ^DIR  
Pharmacy Data Management 1 ^PSSREF  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Pharmacy Data Management 6 PSSDEE  PSSFILED  PSSVX61  PSSVX64  ^PS(52.6  ^PS(52.7  
Controlled Substances 2 PSDAPU  PSDIPOST  
Surgery 1 SROCODE  

Entry Points

Name Comments DBIA/ICR reference
EDING ;IHS/MSC/WPB line tag EDING allows editing of current ingredients for the drug
QUIT ;IHS/MSC/WPB Quit adding and kill variables 3/8/2012
EN ;
  • ICR #895
    • Status: Active
    • Usage: Controlled Subscription
    END ;
  • ICR #208
    • Status: Active
    • Usage: Private
  • ICR #895
    • Status: Active
    • Usage: Controlled Subscription
    ADD1
    LIST ;IHS/MSC/WPB line tag LIST added to display a list of current ingredients for the drug
    ADD ;IHS/MSC/WPB line tag COMPND added to add the ingredients 3/8/2012
    BRNCH
    ENS ;
  • ICR #208
    • Status: Active
    • Usage: Private
  • ICR #895
    • Status: Active
    • Usage: Controlled Subscription
    MQ ;
    GQTY ;IHS/MSC/PB - code added to get quantity and then check to be sure it is > 0
    EXIT
    COMPND ;IHS/MSC/WPB line tag COMPND added to mark drug as compounded and to add the ingredients 3/8/2012
    DONE ;
    CMOP

    External References

    Name Field # of Occurrence
    ^DIC ADD+4, EDING+4
    FILE^DICN ADD+20
    YN^DICN EN+2
    ^DIE COMPND+3, ADD+25, EDING+9
    ^DIR COMPND+7, BRNCH+1, ADD1, ADD1+3, ADD1+4, EDING+11, EDING+13, EDING+15, GQTY+5
    ^PSSREF CMOP

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"A",PSIUT," ITEM"
    • Line Location: EN+2
    Function Call: WRITE
    • Prompt: !!?2
    • Line Location: MQ+2
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $X+$L(Y)>79
    • Line Location: MQ+2
    Function Call: WRITE
    • Prompt: Y," "
    • Line Location: MQ+2
    Function Call: WRITE
    • Prompt: !,"This item has just been UNMARKED for CMOP transmission.",!
    • Line Location: CMOP+0
    Function Call: WRITE
    • Prompt: !,"This ingredient is marked as inactive, please select an active ingredient!"
    • Line Location: ADD+9
    Function Call: WRITE
    • Prompt: !,"This ingredient has already been added"
    • Line Location: ADD+10
    Function Call: WRITE
    • Prompt: !,"No ingredients have been added yet"
    • Line Location: LIST+6
    Function Call: WRITE
    • Prompt: !,"INGREDIENT NAME",?44,"INGREDIENT QTY",?62,"UOM",?70,"SEQUENCE"
    • Line Location: LIST+7
    Function Call: WRITE
    • Prompt: !,?44,"PER ORDER UNIT",!
    • Line Location: LIST+8
    Routine Call
    • DIE
    • Line Location:
      • COMPND+3
      • ADD+25
      • EDING+9
    Routine Call
    • DIC
    • Line Location:
      • ADD+4
      • EDING+4
    Routine Call
    • DIR
    • Line Location:
      • COMPND+7
      • BRNCH+1
      • ADD1
      • ADD1+3
      • ADD1+4
      • EDING+11
      • EDING+13
      • EDING+15
      • GQTY+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.607 - [#50.607] ADD+24, LIST+15
    ^PSDRUG - [#50] EN+1, EN+4*, EN+5*, CMOP*, ENS+1, ENS+2*, END+1, END+2*, COMPND+6, ADD+9
    , ADD+10, ADD+11, ADD+24, LIST+6, LIST+10, LIST+11, LIST+13, LIST+14, LIST+16, LIST+17
    ^PSDRUG("AIU" EN+4*, EN+5!, ENS+3*, END+3!
    ^PSDRUG("AQ" CMOP!
    ^PSDRUG("IU" EN+6!*, ENS+2!, ENS+3*, END+2!, END+3*

    Label References

    Name Line Occurrences
    ADD BRNCH+1, ADD1+1
    ADD1 ADD+10, GQTY+13
    BRNCH COMPND+9
    CMOP EN+5
    COMPND ADD+9
    DONE EN+3, EN+4, ENS+4, END+4
    EDING BRNCH+1, ADD1+4, EDING+11, EDING+15
    EXIT BRNCH+1
    GQTY ADD+15, GQTY+14
    LIST COMPND+8, ADD1+3, EDING+13
    MQ EN+2
    QUIT COMPND+2, COMPND+8, ADD1+3, ADD1+4, EDING+10, EDING+13, EDING+14, EXIT

    Naked Globals

    Name Field # of Occurrence
    ^(0 EN+4, EN+5, ENS+1, END+1
    ^(2 EN+1, ENS+1, END+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % EN+1*, EN+2*, EN+3, EN+4, EN+5, CMOP~
    DA CMOP*, COMPND+1~, COMPND+3*!, ADD+21*, ADD+26!, EDING+5*
    DA(1 ADD+16*, ADD+19, ADD+25, ADD+26!, EDING+3*, EDING+4, EDING+6!, EDING+9*
    DIC COMPND+1~, ADD+1!, ADD+4*!, ADD+19*, ADD+20!, ADD+22!, EDING+2!, EDING+4*!
    DIC("DR" ADD+19*
    DIC("T" ADD+1!, ADD+4*, EDING+2!, EDING+4*
    DIC(0 ADD+1!, ADD+4*, ADD+19*, ADD+22!, EDING+2!, EDING+4*
    DIE COMPND+1~, COMPND+3*!, ADD+25*, ADD+26!, EDING+6!, EDING+9*
    DIR GQTY+1!, GQTY+5!, GQTY+11!
    DIR("?" GQTY+3*, GQTY+5!, GQTY+11!
    DIR("A" COMPND+6*, BRNCH!, ADD+1!, ADD1*, ADD1+3*, ADD1+4*, QUIT+1!, EDING+2!, EDING+11*, EDING+13*
    , EDING+15*, GQTY+1!, GQTY+2*, GQTY+5!, GQTY+11!, GQTY+12*
    DIR("B" COMPND+6*, BRNCH!, ADD+1!, ADD1*, ADD1+3*, ADD1+4*, QUIT+1!, EDING+2!, EDING+11*, EDING+13*
    , EDING+15*, GQTY+11!, GQTY+12*
    DIR(0 COMPND+6*, BRNCH!, BRNCH+1*, ADD+1!, ADD1*, ADD1+3*, ADD1+4*, QUIT+1!, EDING+2!, EDING+11*
    , EDING+13*, EDING+15*, GQTY+1!, GQTY+4*, GQTY+5!, GQTY+11!, GQTY+12*
    DIROUT GQTY+1!, GQTY+9
    DIRUT BRNCH+1, GQTY+1!, GQTY+8
    DR COMPND+1~, COMPND+3*!, ADD+22!, ADD+25*, ADD+26!, EDING+6!, EDING+9*
    DTOUT ADD+5, GQTY+1!, GQTY+7
    DUOUT ADD+6, GQTY+1!, GQTY+6
    IDRUG LIST+9!, LIST+13*, LIST+18, LIST+19!
    PSIU DONE+1!, MQ+2*, ENS+1*, ENS+3, END+1*, END+3
    >> PSIUA EN+3*, EN+4*
    >> PSIUDA EN+1, EN+4, EN+5, EN+6, CMOP, ENS+1, ENS+2, ENS+3, END+1, END+2
    , END+3, COMPND+3, COMPND+6, ADD+10, ADD+11, ADD+16, LIST+6, LIST+10, LIST+11, LIST+14
    , LIST+16, LIST+17, EDING+3, EDING+9
    PSIUO EN+1*, EN+4, EN+5, EN+6, DONE+1!, ENS+1*, ENS+2, END+1*, END+2
    PSIUQ EN+1*, EN+2, EN+4, DONE+1!
    PSIUT EN+1*, EN+2, DONE+1!, MQ+1, ENS+1*, ENS+2, ENS+3, END+1*, END+2, END+3
    >> PSIUX EN+1, EN+4, EN+5, CMOP, ENS+1, END+1
    PSIUY EN+4*, EN+5*, EN+6, DONE+1!, ENS+1*, ENS+2*, ENS+3, END+1*, END+2*, END+3
    PTR LIST+9!, LIST+11*, LIST+13, LIST+19!
    PTR1 LIST+9!, LIST+14*, LIST+15, LIST+19!
    QTY ADD+19, ADD+26!, LIST+9!, LIST+17*, LIST+18, LIST+19!, GQTY+1!, GQTY+5*, GQTY+10
    REC ADD+26!
    SEQ LIST+9!, LIST+16*, LIST+18, LIST+19!
    TEST ADD+1!, ADD+4*, ADD+10, ADD+11, ADD+19, ADD+24, ADD+26!, EDING+2!, EDING+4*
    UOM LIST+9!, LIST+15*, LIST+18, LIST+19!
    UOM1 ADD+21*, ADD+24*, ADD+25, ADD+26!
    X MQ+1*, MQ+2, COMPND+3!, BRNCH!, ADD+1!, ADD+19*, ADD+22!, ADD+26!, QUIT+1!, EDING+2!
    >> X1 ADD+24*
    XX LIST+10*, LIST+11, LIST+14, LIST+16, LIST+17, LIST+20!
    Y MQ+2*, COMPND+3!, COMPND+8, BRNCH!, BRNCH+1, ADD+1!, ADD+4, ADD+7, ADD+9, ADD+21
    , ADD+22!, ADD+26!, ADD1+1, ADD1+3, ADD1+4, QUIT+1!, EDING+2!, EDING+4, EDING+5, EDING+11
    , EDING+13, EDING+15, GQTY+5, GQTY+13, GQTY+14
    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