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/CML-GENERIC "APPLICATION PACKAGES' USE" SET; Jun 04, 2024@14:00

Source Information

Source file <PSSGIU.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  YN^DICN  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 2 EN2^PSSHL1  ^PSSREF  

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

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

Entry Points

Name Comments DBIA/ICR reference
EN ;
  • ICR #895
    • Status: Active
    • Usage: Controlled Subscription
    DONE ;
    MQ ;
    CMOP
    ENS ;
  • ICR #208
    • Status: Active
    • Usage: Private
  • ICR #895
    • Status: Active
    • Usage: Controlled Subscription
    END ;
  • ICR #208
    • Status: Active
    • Usage: Private
  • ICR #895
    • Status: Active
    • Usage: Controlled Subscription
    ENIU ; mark/unmark drugs for Unit Dose use
    ENIUH ;

    External References

    Name Field # of Occurrence
    ^DIC ENIU+9
    YN^DICN EN+2
    $$GET1^DIQ ENS+6, END+6
    ^DIR ENIU+5
    EN2^PSSHL1 ENS+8, END+8
    ^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: !
    • Line Location: ENIU+5
    Function Call: WRITE
    • Prompt: "..."
    • Line Location: ENIU+13
    Function Call: WRITE
    • Prompt: "UN"
    • Condition for execution: PSGY="U"
    • Line Location: ENIU+14
    Function Call: WRITE
    • Prompt: "MARKED..."
    • Line Location: ENIU+14
    Function Call: WRITE
    • Prompt: !!?2,"Enter 'M' to mark items for use by the Unit Dose Medications package."
    • Line Location: ENIUH+1
    Function Call: WRITE
    • Prompt: " (You",!,"will only be shown items that have not been marked for Unit Dose.)"
    • Line Location: ENIUH+2
    Function Call: WRITE
    • Prompt: !?2,"Enter 'U' to unmark items that have previously been marked for use with Unit"
    • Line Location: ENIUH+3
    Function Call: WRITE
    • Prompt: !,"Dose. (You will be shown only items that have already been marked for Unit",!,"Dose.)"
    • Line Location: ENIUH+4
    Function Call: WRITE
    • Prompt: !!,"Choose from:",!?3,"M MARK ITEMS FOR UNIT DOSE",!?3,"U UNMARK ITEMS FOR UNIT DOSE"
    • Line Location: ENIUH+5
    Routine Call
    • DIC
    • Line Location:
      • ENIU+9
    Routine Call
    • DIR
    • Line Location:
      • ENIU+5

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PSDRUG - [#50] EN+1, EN+4*, EN+5*, CMOP*, ENS+1, ENS+2*, END+1, END+2*
    ^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
    CMOP EN+5
    DONE EN+3, EN+4, ENS+9, END+9
    END ENIU+11
    ENS ENIU+12
    MQ EN+2

    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*
    DIC ENIU+1~, ENIU+8*
    DIC("A" ENIU+8*
    DIC("S" ENIU+8*
    DIC(0 ENIU+8*
    DIR ENIU+1~
    DIR("?" ENIU+4*
    DIR("A" ENIU+3*
    DIR("B" ENIU+4*
    DIR(0 ENIU+2*
    DIROUT ENIU+1~
    DIRUT ENIU+1~
    DTOUT ENIU+1~
    DUOUT ENIU+1~
    PSGOI ENS+5~, ENS+6*, ENS+7, ENS+8, END+5~, END+6*, END+7, END+8
    PSGS ENIU+1~, ENIU+7*, ENIU+8
    PSGY ENIU+1~, ENIU+7*, ENIU+11, ENIU+12, ENIU+14
    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, ENS+6, END+1
    , END+2, END+3, END+6, ENIU+1~, ENIU+10*
    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, ENIU+1~, ENIU+7*
    PSIUY EN+4*, EN+5*, EN+6, DONE+1!, ENS+1*, ENS+2*, ENS+3, END+1*, END+2*, END+3
    X MQ+1*, MQ+2, ENIU+1~
    Y MQ+2*, ENIU+1~, ENIU+6, ENIU+7, ENIU+9, ENIU+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