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 |  All
Print Page as PDF
Routine: PSUDBQUE

Package: Pharmacy Benefits Management

Routine: PSUDBQUE


Information

PSUDBQUE ; IHS/ADC/GTH - DOUBLE QUEUING SHELL HANDLER; 04 NOV 1997

Source Information

Source file <PSUDBQUE.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Benefits Management 2 PSUCP  PSUPR0  

Entry Points

Name Comments DBIA/ICR reference
END1 ;EP clean out PSU as passed in
END0 ;EP - from compute cycle when PSU("RP") EXISTS
EN ;PEP for double queuing
  • ICR #2922
    • Status: Withdrawn
    • Usage: Private
    COMPUTE ;>do computing | routine
    ZIS ;
    ZISQ ;
    NORC ;used if no PSURC identified
    SETIOPN ;EP Set IOP parameters with (N)o open
    QUE1 ;
    START ;
    ENDC ;EP - end computing cycle
    QUE2 ;
    PGMNOTE ;
    DEQUE2 ;>EP 2nd Deque | printing
    END ;>End | cleanup
    DEQUE1 ;> 1st deque
    SUB ;>Subroutines

    External References

    Name Field # of Occurrence
    ^%ZIS EN+3, ZIS+4, QUE1+1, END1+3, SETIOPN+13
    ^%ZISC QUE1+1, END1+1
    ^%ZTLOAD QUE1+12, QUE2+10
    KILL^%ZTLOAD END0+1
    ^DIR ZISQ+6, ZISQ+16

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"REPORTING-ABORTED",*7
    • Line Location: ZIS+5
    Function Call: WRITE
    • Prompt: !,"Queing to slave printer not allowed ... Report Aborting"
    • Line Location: QUE1+2
    Routine Call
    • DIR
    • Line Location:
      • ZISQ+6
      • ZISQ+16
    Routine Call
    • %ZIS
    • Line Location:
      • EN+3
      • ZIS+4
      • QUE1+1
      • END1+3
      • SETIOPN+13

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("ERRTN" QUE2+11

    Label References

    Name Line Occurrences
    @( COMPUTE+2, QUE2+11, DEQUE2+7, END+2
    END DEQUE2+4, ENDC+1
    END0 ENDC+2
    END1 ZIS+5, ZISQ+16, QUE1+1
    ENDC QUE2+2
    SETIOPN QUE2+9
    ZISQ ZIS+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %H SETIOPN+12*
    >> %ZIS ZIS+3*, SETIOPN+11*
    >> %ZIS("HFSMODE" EN+28*, SETIOPN+8*
    >> %ZIS("HFSNAME" EN+28*, SETIOPN+8*
    >> %ZIS("IOPAR" EN+24*, SETIOPN+4*
    DIR ZISQ+4!, ZISQ+7!, ZISQ+16!
    DIR("A" ZISQ+5*, ZISQ+16*
    DIR("B" ZISQ+5*
    DIR(0 ZISQ+5*, ZISQ+16*
    IO EN+3, EN+7, ZIS+6, ZISQ+3, DEQUE2+6
    IO("Q" ZIS+1!, ZISQ+1, ZISQ+9*, QUE1+1!
    IO(0 ZISQ+3
    >> IOCPU ZIS+6
    IOM EN+7*, EN+8, ZIS+6
    ION EN+7*, EN+8, ZIS+6
    IOP EN+3*, EN+22*, QUE1+1*, END1+2*, END1+4!, SETIOPN+2*
    IOPAR EN+9, ZIS+6, END1+4!
    IOSL EN+7*, EN+8, ZIS+6
    IOST EN+7*, EN+8, ZIS+6
    IOUPAR END1+4!
    >> POP ZIS+5
    PSU EN+1~, END1+5!
    PSU("CPU" ZIS+6*, QUE1+7
    PSU("IO" ZIS+6*, QUE2+6
    PSU("ION" ZIS+6*
    PSU("IOP" EN+21*, ZIS+6*, SETIOPN+1, SETIOPN+2
    PSU("IOP1" EN+8*, QUE1+1, END1+2
    PSU("IOPAR" EN+9*, EN+24, EN+25, EN+26, EN+27, ZIS+6*, SETIOPN+4, SETIOPN+5, SETIOPN+6, SETIOPN+7
    PSU("NS" EN+14*, EN+15*, EN+18*, QUE1+9, QUE2+8
    PSU("RC" EN+11*, COMPUTE+2, QUE2+5
    PSU("RP" EN+11*, QUE2+3, QUE2+5, DEQUE2+4, DEQUE2+7, ENDC+1
    PSU("RX" EN+11*, END+2
    PSU("TITLE" EN+6*, QUE1+3, QUE2+4
    PSU("ZTSK" ZISQ+12!, ZISQ+13*, QUE1+1, DEQUE1+3!, DEQUE1+4*, DEQUE2+1!, DEQUE2+2*, END0+1
    PSUDBQUE QUE2+12*, END1+5!
    PSUDTH EN+4*, QUE1+6, QUE1+10!, DEQUE1+2!, END1+5!
    PSUERR QUE2+11*, END1+5!
    PSUFQ EN+4*, ZISQ+1, ZISQ+2*, QUE1+1, QUE1+10!, DEQUE1+2!, END1+5!
    >> PSUHFSMD EN+27*, EN+28, SETIOPN+7*, SETIOPN+8
    >> PSUHFSNM EN+26*, EN+28, SETIOPN+6*, SETIOPN+8
    PSUI EN+14*, QUE1+10!, END1+5!
    PSUIOP EN+21, EN+22, QUE1+10!, DEQUE1+2!, END1+5!
    PSUNS EN+13*, EN+14, QUE1+10!, DEQUE1+2!, END1+5!
    PSUNS( EN+18
    PSUNSX EN+14*, EN+17*, EN+18*, QUE1+8*, QUE1+9*, QUE1+10!, QUE2+7*, QUE2+8*, END1+5!
    PSUPAR QUE1+10!, DEQUE1+2!, END1+5!
    PSUQUIT ZISQ+8*, ZISQ+16, END1+5!
    PSURC EN+5, EN+10*, EN+11, ZIS+2, QUE1+4, QUE1+10!, DEQUE1+2!, END1+5!
    PSURP EN+5, EN+11, ZIS+2, ZISQ+3, QUE1+4, QUE1+10!, DEQUE1+2!, END1+5!
    PSURX EN+11, QUE1+10!, DEQUE1+2!, END1+5!
    PSUTITLE EN+6!
    PSUTZTSK END0+1*!
    >> X ZISQ+8
    >> Y ZISQ+9
    >> ZTCPU QUE1+7*
    >> ZTDESC QUE1+3*, QUE1+4*, QUE2+4*, QUE2+5*
    >> ZTDTH QUE1+6*, QUE2+6*
    ZTIO QUE1+5*, QUE1+11*, QUE2+6*, QUE2+9!
    >> ZTQUEUED EN+4, ZISQ+2, ZISQ+13, QUE1+1, DEQUE1+4, QUE2+2, DEQUE2+2, END1+1, END1+3
    >> ZTRTN QUE1+5*, QUE2+6*
    >> ZTSAVE( QUE1+9*, QUE2+8*
    ZTSK ZISQ+13, ZISQ+14!, QUE1+1, DEQUE1+4, QUE2+11, DEQUE2+2, END0+1*!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All