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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSOLSET

Package: Outpatient Pharmacy

Routine: PSOLSET


Information

PSOLSET ;BHAM ISC/SAB - site parameter set up ;12/03/92

Source Information

Source file <PSOLSET.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 5 DEVBAR^PSOBMST  $$SELPRT^PSOFDAUT  CUTDATE^PSOFUNC  ^PSOLBLT  ^PSOSITED  
Kernel 3 ^%ZIS  ^%ZISC  $$VERSION^XPDUTL  
VA FileMan 3 ^DIC  EN^DIQ1  ^DIR  

Caller Graph

Caller Graph Total: 85

Package Total Caller Graph
Outpatient Pharmacy 80 PSO MAINTENANCE  PSO MANAGER  PSO P  PSO PAT  PSO PND  PSO PNDLBL  PSO RELEASE REPORT  PSO RX  
PSO TPB RX ENTRY  PSO USER1  PSO USER2  PSOB  PSOBAI  PSOBAIR2  PSOBBC  PSOBGMG2  
PSOBGMGR  PSOBING1  PSOBINGO  PSOBPSSP  PSOCMOPR  PSOCP  PSOCP EXEMPTION  PSOCP MENU  
PSOCP RESET COPAY STATUS  PSOCPB  PSOCPBA2  PSOCPBK2  PSOCPBK4  PSOCPD  PSOCPE  PSOCPF1  
PSOCPIBC  PSOCPTRI  PSOCSRL  PSOD EDIT ANSWER SHEET  PSOD SUPERVISOR  PSODGDG2  PSODISP  PSODISP1  
PSODISP3  PSODISPS  PSOERXC1  PSOERXEN  PSOEXRST  PSOHLD  PSOLLL7  PSOLLLH  
PSOLLLHN  PSOLMPAT  PSOLMUTL  PSOMPHRC  PSONDCV  PSOORFI2  PSOORFIN  PSOPAT  
PSOPMP0  PSOPMPPF  PSOPRI  PSOPTC0  PSOREJP3  PSORESK  PSORX1  PSORXDL  
PSORXEDT  PSORXPA1  PSORXRP2  PSOSITED  PSOSUCHG  PSOSUCLE  PSOSUDCN  PSOSUDPR  
PSOSULB1  PSOSULOG  PSOSUPRX  PSOSURST  PSOTALK  PSOTALK3  PSOTPRX1  PSOVER  
CMOP 2 PSXRPPL  PSXSRST  
Controlled Substances 1 PSDOPT  
Integrated Billing 1 IBECUSM  
Vendor - Audiofax Inc 1 VEXRX  

Entry Points

Name Comments DBIA/ICR reference
VERS ;;7.0;OUTPATIENT PHARMACY;**10,22,32,40,120,247,359,367**;DEC 1997;Build 62
DIV1
DIV2
DIV3
PLBL ; Profile Printer Selection
LBL ; Label Printer Selection
LASK
P2
FDAPRT ; FDA Med Guide Printer Selection
LEAVE
Q
EXIT
FINAL ;exit action from main menu - kill and quit
  • ICR #982
    • Status: Active
    • Usage: Private
    GROUP ;display group
    GROUP1

    External References

    Name Field # of Occurrence
    ^%ZIS PLBL+3, LBL+2, P2
    ^%ZISC PLBL+3, LBL+4, P2+2, P2+3, EXIT
    ^DIC DIV2+2, GROUP1+2
    EN^DIQ1 DIV3+2
    ^DIR VERS+11, DIV2+3, LASK+3, P2+2, P2+6, GROUP1+3
    DEVBAR^PSOBMST LBL+3
    $$SELPRT^PSOFDAUT FDAPRT+3
    CUTDATE^PSOFUNC DIV3
    ^PSOLBLT P2+3
    ^PSOSITED VERS+13
    $$VERSION^XPDUTL DIV3+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$C(7),"DUZ Number must be defined !!",!
    • Line Location: VERS+5
    Function Call: WRITE
    • Prompt: !,"Outpatient Pharmacy software - Version "_$P($T(VERS),";",3)
    • Line Location: VERS+6
    Function Call: WRITE
    • Prompt: !!,"Outpatient Pharmacy software is being installed. PLEASE TRY LATER!",!
    • Line Location: VERS+7
    Function Call: WRITE
    • Prompt: !,$C(7)
    • Line Location: VERS+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: VERS+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: DIV2+0
    Function Call: WRITE
    • Prompt: $C(7),!?5,"Printer is busy.",!
    • Line Location: P2+0
    Function Call: WRITE
    • Prompt: !,"Align labels so that a perforation is at the top of the",!,"print head and the left side is at column zero."
    • Line Location: P2+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: P2+2
    Function Call: WRITE
    • Prompt: !?10,$C(7),"Default printer for labels must be entered."
    • Line Location: Q+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: GROUP1+0
    Routine Call
    • %ZIS
    • Line Location:
      • PLBL+3
      • LBL+2
      • P2
    Routine Call
    • DIC
    • Line Location:
      • DIV2+2
      • GROUP1+2
    Routine Call
    • DIR
    • Line Location:
      • VERS+11
      • DIV2+3
      • LASK+3
      • P2+2
      • P2+6
      • GROUP1+3

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(2 - [#3.2] LASK
    ^PS(59 - [#59] VERS+9, DIV3, DIV3+1, GROUP1+1
    ^PS(59.3 - [#59.3] GROUP+1, GROUP+4
    ^PS(59.7 - [#59.7] DIV3
    ^PSX(550 - [#550] DIV3+3, DIV3+6
    ^VA(200 - [#200] DIV3+10
    ^XMB(1 - [#4.3] DIV3+2
    ^XTMP("PSO_V7 INSTALL" VERS+7

    Label References

    Name Line Occurrences
    DIV1 VERS+10
    DIV2 DIV2+3
    DIV3 DIV1
    EXIT FDAPRT+1, FDAPRT+3, FDAPRT+5
    FDAPRT LBL+2, LASK, LASK+3, P2+2, P2+6
    FINAL LEAVE
    GROUP EXIT+1, GROUP1+3
    GROUP1 GROUP+3
    LASK P2
    LBL Q
    LEAVE VERS+5, VERS+7, VERS+12, DIV2+2, DIV2+3
    P2 P2+7
    PSOLSET VERS+13
    VERS VERS+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %ZIS PLBL+2*, PLBL+3!, LBL+1*, LBL+2!, EXIT+1!, FINAL+3!
    %ZIS("A" PLBL+2*, LBL+1*
    %ZIS("B" PLBL+2*, LBL+1*
    AGROUP GROUP+1*, GROUP+2, GROUP+5!, GROUP1+5!
    AGROUP1 GROUP+2*, GROUP+3, GROUP+5!, GROUP1+5!
    DA DIV3+2*!
    DIC DIV2*, DIV2+2!, DIV3+2*!, EXIT+1!, FINAL+3!, GROUP1*, GROUP1+2!, GROUP1+5!
    DIC("A" DIV2*, GROUP1*
    DIC("B" GROUP1+1*
    DIC("S" DIV2+1*
    DIC(0 DIV2*, GROUP1*
    >> DIQ DIV3+2*
    >> DIQ(0 DIV3+2*!
    DIR DIV3!, LASK+1!, P2+2!, P2+4!, EXIT+1!, FINAL+3!, GROUP1+5!
    DIR("?" VERS+11*, DIV1*, LASK+2*, P2+5*, GROUP1*, GROUP1+3*
    DIR("A" VERS+10*, VERS+11*, DIV2+3*, LASK+1*, P2+4*, GROUP1+3*
    DIR("B" VERS+11*, DIV2+3*, LASK+1*, P2+4*, GROUP1+3*
    DIR(0 VERS+11*, DIV1*, LASK+1*, P2+2*, P2+4*, GROUP1*
    DIROUT EXIT+1!, FINAL+3!
    DIRUT LASK+3, P2+2!, P2+4!, P2+6, EXIT+1!, FINAL+3!
    DISGROUP FINAL+2!, GROUP+4*, GROUP1+4*
    DR DIV3+2*!
    DTOUT DIV2+2, P2+2!, EXIT+1!, FINAL+3!, GROUP1+2
    DUOUT DIV2+2, P2+2!, EXIT+1!, FINAL+3!, GROUP1+2
    DUZ VERS+5, DIV3+10
    FDAPRT FDAPRT+2~, FDAPRT+3*, FDAPRT+4
    GROUPCNT FINAL+2!, GROUP+1*, GROUP+2*, GROUP+3
    GRPNME GROUP+3*, GROUP+4, GROUP+5!, GROUP1+5!
    I VERS+9*, EXIT+1!, FINAL+3!
    II GROUP+3*, GROUP+4*, GROUP+5!, GROUP1+5!
    IO("Q" PLBL+3!, LBL+2!
    IO(0 P2+1
    ION PLBL+3, LBL+2
    IOP PLBL+3!, LBL+2!, P2*!, EXIT+1!
    >> IOS LBL+3, LBL+4
    IOST(0 LBL+2
    J EXIT+1!, FINAL+3!
    PFIO FINAL+2!
    >> POP PLBL+3, LBL+2, P2
    PRCA FINAL+1!
    PSL FINAL+1!
    PSLION LBL+1, FINAL+1!
    PSNP FINAL+1!
    PSOBAR0 LBL+4, FINAL+3!
    PSOBAR1 VERS+8*, LBL+4, FINAL+3!
    PSOBARS VERS+8*, LBL+4*, FINAL+3!
    >> PSOBFLAG FDAPRT+1, EXIT+1
    PSOCAP FINAL+2!
    >> PSOCLBL PLBL+2, LBL+1, EXIT
    PSOCLC DIV3+10*, FINAL+2!
    PSOCNT VERS+9*, VERS+10, DIV1, DIV2, DIV3, FINAL+2!
    PSOCP FINAL+1!
    PSODIV DIV3+9*, FINAL+2!
    PSODTCUT FINAL+3!
    PSOFDAPT FDAPRT+3, FDAPRT+4*, FINAL+3!
    PSOINST DIV3+3*, FINAL+2!
    PSOION FINAL+2!
    PSOIOS LBL+3~*, LBL+4*, FINAL+2!
    PSOLAP LBL+1, P2, FINAL+2!
    PSONULBL FINAL+2!
    PSOPAR DIV3*, PLBL+1, LBL+4, FINAL+2!
    PSOPAR7 DIV3*, FINAL+2!
    PSOPINST DIV3+1*, FINAL+1!
    >> PSOPIOST LBL+2*, LASK
    PSOPROP PLBL+2, PLBL+3*, FINAL+2!
    PSOPRPAS FINAL+3!
    >> PSOQUIT LBL+2*, LASK+3*, P2+6*
    PSOREL FINAL+3!
    PSOSITE DIV3*, DIV3+1, FINAL+3!, GROUP1+1
    PSOSITE7 FINAL+2!
    PSOSYS DIV3*, DIV3+9, FINAL+2!
    >> PSOVEX DIV2+1
    PSXSYS DIV3+3*, DIV3+5, DIV3+6!, DIV3+8!
    PSXUTIL DIV3+4!
    PSXUTIL(4 DIV3+2
    >> PSXVER DIV3+7*
    S1 DIV3+4!
    S2 DIV3+2*, DIV3+3, DIV3+4!
    S3 DIV3+2*, DIV3+3, DIV3+4!
    SIG FINAL+3!
    SITE DIV3+2*, FINAL+1!
    >> SUSPT LBL+1, LBL+2
    X VERS+12, EXIT+1!, FINAL+2!, GROUP1+3
    >> XQUIT LEAVE*
    Y VERS+9*, DIV2+3, DIV3, DIV3+7*, LASK+3, P2+6, EXIT+1!, FINAL+2!, GROUP1+3, GROUP1+4

    Marked Items

    Name Field # of Occurrence
    $T(VERS VERS+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All