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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSIVACT

Package: Inpatient Medications

Routine: PSIVACT


Information

PSIVACT ;BIR/PR,MLM - UPDATE ORDER STATUS AFTER PATIENT SELECTION ;Jul 02, 2018@09:29

Source Information

Source file <PSIVACT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 4 EXPIR^PSIVOE  ENIV^PSJADT0  ($$CLINIC,$$CLINSORT,$$COMCHK)^PSJO1  $$RECDCEXP^PSJP  
Kernel 1 (T0,T1)^%ZOSV  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Inpatient Medications 5 PSIV  PSIVPGE  PSIVPR  PSJEEU0  PSJPR0  
Surgery 1 SROXR1  

Entry Points

Name Comments DBIA/ICR reference
ENNA ; Inpatient entry point.
ENNB ; Ask profile type, gather orders.
L ; Long profile
S ; Short profile.
NVACT ; Non-verified but have active status
PEND ; Get pending and non-verified orders from 53.1
QUIT ; Kill and exit.
SETP ; Get partial P array,
CHK ; Check if order is active or expired and save accordingly.
ACTO ; Active orders
NACTO ; Inactive orders
DCOR ; Auto-cancel IV orders
  • ICR #206
    • Status: Active
    • Usage: Private
  • ICR #900
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    NOW^%DTC ENNA+2, ENNB+1, DCOR+4
    T0^%ZOSV ENNA+1
    T1^%ZOSV ENNA+3, ENNB+4
    EXPIR^PSIVOE NACTO+11
    ENIV^PSJADT0 DCOR+5
    $$CLINIC^PSJO1 NVACT+4, PEND+6, PEND+12, CHK+2, ACTO+3, NACTO+3
    $$CLINSORT^PSJO1 NVACT+4, PEND+6, PEND+12, CHK+2, ACTO+3, NACTO+7, NACTO+9, NACTO+12
    $$COMCHK^PSJO1 PEND+4, PEND+10
    $$RECDCEXP^PSJP S+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(53.1 - [#53.1] PEND+2, PEND+3, PEND+4, PEND+7, PEND+8, PEND+9, PEND+10, PEND+13
    ^PS(55 - [#55] L+2, S+3, NVACT+2, NVACT+5, SETP+1, CHK+6*, NACTO+5, NACTO+6, NACTO+11*
    ^TMP("PSIV" ENNB+1!, NVACT+5*, PEND+7*, PEND+13*, CHK+3*, CHK+6*, ACTO+4*, ACTO+5*, ACTO+6*, ACTO+7*
    NACTO+8*, NACTO+10*, NACTO+13*
    ^TMP("PSJPRO" ENNB+1!

    Label References

    Name Line Occurrences
    @( ENNB+3
    ACTO S+3, CHK+4
    CHK SETP+3
    L ENNA+2
    NACTO CHK+5
    NVACT S+4
    PEND ENNA+2, ENNB+3
    SETP L+2

    Naked Globals

    Name Field # of Occurrence
    ^( NVACT+5
    ^(4 NACTO+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % ENNA+2, ENNB+1, DCOR+4
    CLIN NVACT+3~, NVACT+4*, PEND+5~, PEND+6*, PEND+11~, PEND+12*, CHK+1~, CHK+2*, ACTO+2~, ACTO+3*
    NACTO+2~, NACTO+3*, NACTO+7, NACTO+9, NACTO+12
    CLINSORT NVACT+3~, NVACT+4*, PEND+5~, PEND+6*, PEND+11~, PEND+12*, CHK+1~, CHK+2*, ACTO+2~, ACTO+3*
    NACTO+2~, NACTO+7*, NACTO+9*, NACTO+12*
    DA DCOR+2~
    >> DFN L+2, S+3, NVACT+1, NVACT+2, NVACT+5, PEND+1, PEND+2, PEND+8, SETP+1, CHK+1
    CHK+6, ACTO+2, NACTO+2, NACTO+5, NACTO+6, NACTO+11, DCOR+3
    DG DCOR+2~
    DIR DCOR+2~
    JJ QUIT+1!
    ON L+2*, S+3*, NVACT+1~, NVACT+2*, NVACT+4, NVACT+5, PEND+2*, PEND+3, PEND+4, PEND+6
    PEND+7, PEND+8*, PEND+9, PEND+10, PEND+12, PEND+13, SETP+1*, CHK+2, CHK+3, CHK+6
    ACTO+3, ACTO+4, ACTO+5, ACTO+6, ACTO+7, NACTO+3, NACTO+5, NACTO+6, NACTO+8, NACTO+10
    NACTO+11, NACTO+13, DCOR+2~
    ON55 DCOR+2~
    P DCOR+2~
    P( SETP+1*
    P("PT" ENNB+3, ENNB+4
    P(17 S+3*, SETP+3, CHK+3, CHK+6, ACTO+4, ACTO+5, ACTO+6, ACTO+7, NACTO+4, NACTO+11
    NACTO+12
    P(2 SETP+2*, SETP+3
    P(3 SETP+2*, SETP+3, CHK+4
    >> PS ENNA+2*, ENNB+1*, CHK+3*
    >> PS("A" CHK+6*
    PSDFN QUIT+1!
    PSFDT ENNA+2*, ENNB+1*, S+2, QUIT+1!, CHK+4, CHK+5
    PSGALO DCOR+2~
    PSGP NVACT+1*, NVACT+4, PEND+1*, PEND+6, PEND+12, CHK+1*, CHK+2, ACTO+2*, ACTO+3, NACTO+2*
    NACTO+3, DCOR+2~, DCOR+3*
    PSIVAC DCOR+2~
    PSIVACT DCOR+2~
    PSIVCWD QUIT+1!
    >> PSIVDT S+3*
    PSIVFLAG QUIT+1!
    PSIVLN DCOR+2~
    PSIVNV ENNB+2*, S+4*!, NVACT+2
    >> PSIVRD ENNA+2, ENNB+3
    PSIVREA CHK+6*, DCOR+2~
    PSIVRES DCOR+2~, DCOR+3*
    PSIVSTAT NVACT+3~*, NVACT+4*, NVACT+5, PEND+5~*, PEND+6*, PEND+7, PEND+11~*, PEND+12*, PEND+13, CHK+1~*
    CHK+2*, CHK+3, CHK+6, ACTO+2~*, ACTO+3*, ACTO+4*, ACTO+5, ACTO+6, NACTO+2~*, NACTO+5*
    NACTO+7*, NACTO+8, NACTO+9*, NACTO+10, NACTO+12*, NACTO+13
    PSIVWD QUIT+1!
    PSJCOM PEND+1~*, PEND+2, PEND+4*, PEND+5, PEND+8, PEND+10*, PEND+11, PEND+12
    PSJCOM1 PEND+1~*, PEND+2*, PEND+4, PEND+8*, PEND+10
    PSJDCDT DCOR+2~, DCOR+4*
    >> PSJDCEXP S+1*, S+2*, S+3
    PSJIVDCF DCOR+2~
    PSJIVON DCOR+2~
    PSJIVORF DCOR+2~
    PSJORF DCOR+2~
    >> PSJSYSU ENNB+2, L+1*, S+4, NACTO+6
    PSON1 QUIT+1!
    SORT NVACT+3~, PEND+5~, PEND+11~, CHK+1~, ACTO+2~, NACTO+2~
    U S+2, S+3, NVACT+5, PEND+3, PEND+4, PEND+7, PEND+9, PEND+10, PEND+13, SETP+1
    CHK+6, NACTO+5, NACTO+6, NACTO+11
    VA DCOR+2~
    VADM DCOR+2~
    VAERR DCOR+2~
    X PEND+3~*, PEND+7, PEND+9~*, PEND+13, SETP+1*
    XHOLD QUIT+1!
    >> XRT0 ENNA+3, ENNB+4
    >> XRTL ENNA+1
    >> XRTN ENNA+3*, ENNB+4*
    Y L+2!, SETP+1*
    Y( SETP+2*, CHK+4, CHK+5
    YHOLD QUIT+1!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All