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

Package: Inpatient Medications

Routine: PSIVWL


Information

PSIVWL ;BIR/RGY,PR-COMPILE AND PRT WARD LIST ;13 MAR 97 / 10:18 AM

Source Information

Source file <PSIVWL.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 2 (,ENINIT,ENRSET,ENT)^PSIVWL1  $$ONE^PSJBCMA  
Kernel 2 (T0,T1)^%ZOSV  ^%ZTLOAD  
VA Fileman 2 ^%DT  (,C,DW,NOW)^%DTC  
Registration 1 INP^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 4 PSIVCAL  PSIVORE1  PSIVSP  PSJI WARD  
Pharmacy Data Management 1 PSSDDUT3  

Entry Points

Name Comments DBIA/ICR reference
MAN1
MAN2
MAN3 ;I P(4)=""!(P(4)'=PSIVT) S NOFLG=1 D NOW^%DTC S PSIVRUN=$E(%,1,12) K %,%I,%H D HDR^PSIVWL1 W !!,"****NO DATA FOUND FOR THIS REPORT!***" Q
DEQ ;
CHK
ENP3 ;
Q
QSP
SETP
ENP4
QUE
ENT ;PSIVMIN=# of min. to add or sub, PSIVSD=date to add or sub from in FM format -- Answer ret. in 'Y'
  • ICR #2154
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    ^%DT PSIVWL+6
    ^%DTC ENP3+5
    C^%DTC ENT+3
    DW^%DTC ENP4+2
    NOW^%DTC DEQ+2
    T0^%ZOSV DEQ+3
    T1^%ZOSV DEQ+5
    ^%ZTLOAD QUE+2
    ^PSIVWL1 PSIVWL+8
    ENINIT^PSIVWL1 DEQ+4
    ENRSET^PSIVWL1 PSIVWL+7
    ENT^PSIVWL1 DEQ+6
    $$ONE^PSJBCMA SETP+2
    INP^VADPT MAN1

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: PSIVWL+6
    Function Call: WRITE
    • Prompt: @IOF
    • Condition for execution: $Y
    • Line Location: DEQ+2
    Function Call: WRITE
    • Prompt: !!,"**** WARNING --- WARD LIST NOT RUN, LABEL RUN IN PROGRESS ****"
    • Line Location: DEQ+2
    Function Call: WRITE
    • Prompt: !!,"****NO DATA FOUND FOR THIS REPORT!***"
    • Line Location: MAN3+0

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] MAN1
    ^PS(51.1 - [#51.1] ENP4+3, ENP4+10
    ^PS(55 - [#55] DEQ+2, DEQ+4, Q, SETP, SETP+3, MAN1, MAN2*, MAN2+2, MAN3+2

    Label References

    Name Line Occurrences
    CHK ENP3+4
    ENP3 MAN3+4
    ENP4 ENP3+4
    ENT ENP3+5, ENP3+7
    MAN1 DEQ+4
    MAN2 MAN3+3, MAN3+4
    MAN3 MAN1
    PSIVWL PSIVWL+6, PSIVWL+7
    Q PSIVWL+6, PSIVWL+8, PSIVWL+9, DEQ+2
    QSP ENP3+3, ENP3+4, ENP3+5
    QUE PSIVWL+9
    SETP MAN1

    Naked Globals

    Name Field # of Occurrence
    ^( SETP+3
    ^(0 MAN2+2*
    ^(2 MAN3+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % DEQ+2
    %DT PSIVWL+6!*, Q!
    %T Q+1!
    A SETP+1~, SETP+3*
    ADM ENP4+1~, ENP4+7*, ENP4+14*
    ADMSD ENP4+1~, ENP4+6*, ENP4+7, ENP4+13*, ENP4+14
    ADMTM ENP4+1~, ENP4+7*, ENP4+14*
    CD MAN3+4*, ENP3+3, ENP3+6, ENP3+7, QSP!, ENP4, ENP4+2, ENP4+6, ENP4+7, ENP4+13
    , ENP4+14, ENP4+17
    D Q+1!
    DFN Q+1!, SETP, SETP+2, SETP+3, MAN1*, MAN2, MAN2+2, MAN3+2
    DIC Q!
    DT PSIVWL+7
    DTIME PSIVWL+6
    HOUR ENT+1*, ENT+3, ENT+5!
    HR ENT+1*, ENT+2*, ENT+3*, ENT+5!
    I Q+1!, QUE*
    IOF DEQ+2, Q
    ION PSIVWL+9
    MI Q!, ENP4+17*, ENT+1*, ENT+2*, ENT+3*, ENT+5!
    MIN ENT+1*, ENT+2, ENT+5!
    NOFLG DEQ+3*, Q!, MAN1
    O ENT+5!
    OD MAN3+4*, ENP3+3, ENP3+5, ENP3+6, ENP3+7, QSP!, ENP4, ENP4+2, ENP4+6, ENP4+7
    , ENP4+13, ENP4+14, ENP4+17
    ODCDWD ENP4+1~, ENP4+2*, ENP4+5, ENP4+6, ENP4+12, ENP4+13
    ON Q!, SETP, SETP+2, SETP+3, MAN1*, MAN2, MAN2+2, MAN3+2
    P Q+1!
    P( SETP*
    P(11 ENP3+2*, ENP3+3, ENP3+4, ENP3+5, CHK*, ENP4+7, ENP4+14, ENP4+17
    P(15 ENP3+2
    P(17 MAN3+2, MAN3+3
    P(2 MAN3+4, ENP3+2, ENP4
    P(23 ENP3+4
    P(3 MAN3+4, ENP3+2, ENP3+7, ENP4+17
    P(4 MAN2, MAN3+1, MAN3+2, ENP3+3, ENP3+4
    P(5 ENP3+4
    P(7 QSP, ENP4+17
    P(8 MAN2
    P(9 SETP+2, ENP3+3, ENP4+3, ENP4+10
    P9 ENP4+1~, ENP4+3*, ENP4+4, ENP4+5, ENP4+6, ENP4+10*, ENP4+11, ENP4+12, ENP4+13
    PSCT Q!
    PSGCNT Q!, MAN2, MAN2+2, MAN3+3*, ENP3+2*, QSP*
    PSGSA Q!, MAN2, MAN3+3*, ENP3+2*, ENP3+3*, ENP3+6*, ENP3+7*, QSP, ENP4+7*, ENP4+14*
    , ENP4+17*
    PSIV Q!
    PSIV("NME" MAN1*
    PSIV1 DEQ+4*, Q+1!
    PSIVCD PSIVWL+8, Q+1!
    PSIVCD( MAN3+4
    PSIVDT PSIVWL+7*, Q!
    PSIVDT1 DEQ+4*, Q!, MAN1
    PSIVMI ENP3+2*, ENP3+5, ENP3+7, QSP!, ENP4+17*
    PSIVMIN ENP3+5*, ENP3+7*, ENT+1, ENT+5!
    PSIVMT Q!
    PSIVMT( QUE
    PSIVOD PSIVWL+8, Q!
    PSIVOD( DEQ+4, MAN2, MAN3+2, MAN3+4
    >> PSIVPR PSIVWL+9, Q, QUE
    PSIVRUN Q!
    PSIVSD ENP3+2*, ENP3+3, ENP3+5*, ENP3+6, ENP3+7*, QSP!, ENP4*, ENP4+17*, ENT+1
    >> PSIVSN DEQ+2, Q, MAN2, MAN3+2
    >> PSIVT DEQ+4*, MAN3+1, MAN3+4, QUE*
    PSIVX ENP4+1~, ENP4+3*, ENP4+4*, ENP4+9, ENP4+10*, ENP4+11*, ENP4+16
    PSJOK DEQ+1~, SETP+3*, MAN1
    PSJST SETP+1~, SETP+2*, SETP+3
    PSM Q+1!
    U MAN1, MAN2, ENP4+2
    VAERR Q+1!
    >> VAIN(4 MAN2
    WRD PSIVWL+6!
    X PSIVWL+6*, Q+1!, SETP*, QUE+1*, ENP3+3*, ENP3+5*, ENP3+7*, ENP4+2*, ENP4+3*, ENP4+4
    , ENP4+5, ENP4+6, ENP4+10*, ENP4+11, ENP4+12, ENP4+13, ENT+3*
    X1 ENP3+5*, ENT+1*, ENT+3, ENT+5!
    X2 ENP3+5*, ENT+1*, ENT+3*, ENT+5!
    >> XRTL DEQ+3, DEQ+5
    >> XRTN DEQ+5*
    Y PSIVWL+6, PSIVWL+7, DEQ+2*, Q+1!, SETP*, ENP3+5, ENP3+6*, ENP3+7, CHK*, ENP4+17*
    , ENT+3*
    Z Q+1!
    Z1 Q+1!
    Z2 Q+1!
    >> ZTDESC QUE*
    >> ZTIO QUE*
    >> ZTQUEUED Q+1
    >> ZTREQ Q+1*
    >> ZTRTN QUE*
    >> ZTSAVE( QUE+1*
    >> ZTSAVE("PSIVCD(""" QUE*
    >> ZTSAVE("PSIVMT(""" QUE*
    >> ZTSAVE("PSIVOD(""" QUE*
    ZTSK Q+1!, QUE+2
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All