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

Package: Inpatient Medications

Routine: PSIV


Information

PSIV ;BIR/PR,MLM - MISC UTILITIES ;3/19/99 9:45 AM

Source Information

Source file <PSIV.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Inpatient Medications 8 (ENASR,ENCHK)^PSGON  ENNB^PSIVACT  ORDNO^PSIVRD  $$ENU^PSIVUTL  ENBOTH^PSJAC  ($$AA,EN)^PSJDPT  EN^PSJLIPRF  $$ENORL^PSJUTL  
VA FileMan 4 NOW^%DTC  ^DIC  ^DIE  ^DIR  
List Manager 2 EN^VALM  FULL^VALM1  
Pharmacy Data Management 1 ($$L,$$LS,UL,UNL)^PSSLOCK  

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

Package Total Caller Graph
Inpatient Medications 26 ADDITIVE  ELECTROLYTES  PSIVDRG  PSIVLBDL  PSIVOD  PSIVOPT2  PSIVORC  PSIVORE  
PSIVORE1  PSIVPR  PSIVRD  PSIVRNL  PSIVRQ1  PSIVSUS1  PSIVUWL  PSIVWL1  
PSJ LM IV NEW SELECT ORDER  PSJ LM IV SELECT ORDER  PSJCOMR  PSJI DELETE ORDER  PSJI INDIVIDUAL SUSPENSE  PSJI LBLI  PSJI LM LBLI  PSJI PROFILE  
PSJIEDT  SOLUTION  
Outpatient Pharmacy 2 ADDITIVE  SOLUTION  
Pharmacy Data Management 2 ^PS(52.6  PSSVIDRG  

Entry Points

Name Comments DBIA/ICR reference
ENGETP ;Enter here to select patient.
GETP1 ;
ENYN ;Enter here for yes/no responses. This is a general reader that I have
ENQ ;Enter here to read X. This is the general reader that I have
  • ICR #2155
    • Status: Active
    • Usage: Private
    VAR
    PAT
    KILL
    ENADM ;Edit administration schedules.
    ; reference to ^PS(51.1 is supported by DBIA #2177
    ENOW
    ENC ;Get unit of measure for drug selected.
    ENCHS ;Needs PSIVBR (Branch point)
    OE
    ENCHS1 ;
    SELSO ;SELECT ORDER USING "SO" OPTION
    SELNUM ;SELECT ORDERS WITH NUMBERS
    OV ;
    GTON(X) ;
    OV1 ;
    ENU ;Get IV additive strength. Called from templates.
    Q ;

    External References

    Name Field # of Occurrence
    NOW^%DTC ENOW
    ^DIC ENADM+2
    ^DIE ENADM+2
    ^DIR ENCHS1+11
    ENASR^PSGON SELSO+1
    ENCHK^PSGON SELNUM+1
    ENNB^PSIVACT ENCHS1+10
    ORDNO^PSIVRD ENCHS1+6
    $$ENU^PSIVUTL ENU+1
    ENBOTH^PSJAC GETP1+6
    $$AA^PSJDPT ENCHS1+1
    EN^PSJDPT GETP1+4
    EN^PSJLIPRF OV1+7
    $$ENORL^PSJUTL GETP1+6
    $$L^PSSLOCK ENCHS+3
    $$LS^PSSLOCK OV1+9
    UL^PSSLOCK ENCHS1+19
    UNL^PSSLOCK OV1+11
    EN^VALM ENCHS1+4, ENCHS1+14
    FULL^VALM1 ENGETP+2, ENCHS1+11

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: QUX
    • Timeout: DTIME
    • Line Location: ENQ+2
    Function Call: WRITE
    • Prompt: !!,$P(X,"^")," "
    • Line Location: ENQ+2
    Function Call: WRITE
    • Prompt: QUD,"// "
    • Condition for execution: QUD]""
    • Line Location: ENQ+2
    Function Call: WRITE
    • Prompt: QUX="^"
    • Condition for execution: '$T $C(7) S:'$T
    • Line Location: ENQ+2
    Function Call: WRITE
    • Prompt: " ??"
    • Line Location: ENQ+3
    Function Call: WRITE
    • Prompt: " ",QUX1
    • Line Location: ENQ+5
    Function Call: WRITE
    • Prompt: $S($P(X,"^",2)=QUX:" "_QUX,1:"")_$P(QUD,QUX,2,99)
    • Line Location: VAR+0
    Function Call: WRITE
    • Prompt: $C(7)," ???"
    • Line Location: PAT+1
    Function Call: WRITE
    • Prompt: !!,?30,"NO ORDERS FOUND",!
    • Line Location: ENCHS1+11
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: ENCHS1+11
    Routine Call
    • DIC
    • Line Location:
      • ENADM+2
    Routine Call
    • DIE
    • Line Location:
      • ENADM+2
    Routine Call
    • DIR
    • Line Location:
      • ENCHS1+11
    Routine Call
    • VALM
    • Line Location:
      • ENCHS1+4
      • ENCHS1+14

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^PS(51.1 - [#51.1] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(55 - [#55] ENU+1
    ^TMP("PSIV" ENCHS1+11, GTON+3, GTON+4, GTON+5, GTON+6, GTON+7, GTON+8, GTON+9, GTON+11, GTON+12
    , GTON+13, GTON+14, GTON+15, GTON+16, GTON+17, GTON+18, Q+2!
    ^TMP("PSJ" Q+2!
    ^TMP("PSJALL" Q+2!
    ^TMP("PSJI" Q+2!
    ^TMP("PSJON" Q+2!
    ^TMP("PSJPRO" SELSO+1, SELNUM+1, Q+2!
    ^TMP($J Q+1!

    Label References

    Name Line Occurrences
    $$GTON OV+5
    ENADM ENADM+2
    ENCHS OE+3
    ENCHS1 OE+1
    ENGETP GETP1+5, ENCHS+1
    ENQ GETP1+3, ENQ+3, PAT+1
    KILL ENQ+2, ENQ+5, VARPAT
    OV SELSO+1, SELNUM+1
    OV1 OV+7
    Q ENCHS+1
    VAR ENQ+5

    Naked Globals

    Name Field # of Occurrence
    ^( GTON+3, GTON+4, GTON+5, GTON+6, GTON+7, GTON+8, GTON+9, GTON+12, GTON+13, GTON+14
    , GTON+15, GTON+16, GTON+17, GTON+18

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % ENADM+2!, ENOW!, Q+6!
    %H ENOW!
    %I ENOW!, Q+6!
    CONT OE~*, OE+1, ENCHS1+1*, ENCHS1+2*, ENCHS1+8, ENCHS1+11*, ENCHS1+16*, ENCHS1+18*
    D0 ENADM+2!
    DA ENADM+2!*, ENU+1
    DA(1 ENU+1
    DA(2 ENU+1
    >> DFN GETP1+3*, GETP1+6*, ENCHS+1, ENCHS+3, ENCHS1+1, ENCHS1+3, ENCHS1+19
    DIC ENGETP+1!*, ENADM+2*!, Q+6!
    DIC("W" ENGETP+1*
    DIC(0 ENGETP+1*, ENADM+2*
    DIE ENADM+2!*
    DIR ENCHS1+11!
    DIR(0 ENCHS1+11*
    DLAYGO ENADM+2*!
    DONE OV+2~, OV+6, OV1+12!
    DR ENADM+2!*
    DRG Q+3!
    DRGI Q+3!
    DRGN Q+3!
    DRGT Q+3!
    DTIME ENQ+2
    DTOUT Q+5!
    DUOUT OV1+12, Q+5!
    ERR Q+3!
    I Q+3!
    IOF ENCHS1+11
    JJ Q+3!
    MI Q+3!
    N Q+3!
    N2 Q+3!
    ON OV+4*, OV+5*, OV+6, OV1+4*, OV1+7, OV1+9, OV1+11, Q+3!
    ON55 OV1+4*, Q+3!
    >> ORVP OE+2
    P Q+3!
    P("PON" OV1+4*
    P("PT" ENCHS1+8*
    P1 Q+3!
    P16 Q+3!
    P17 Q+3!
    P3 Q+3!
    PNOW Q+3!
    >> PPAGE GETP1+3*
    PS Q+3!
    >> PSGLMT SELSO+1*, SELNUM+1*
    PSGODD Q+3!
    PSGODDD OV+1, OV+3, Q+3!
    PSGODDD( OV+3, OV+4
    >> PSGOP ENCHS1+3*
    PSGP GETP1+6~*, ENCHS1+3*, OV1+9, OV1+11
    >> PSGPTMP GETP1+3*
    PSIV Q+3!
    PSIVAAT Q+3!
    PSIVACT Q+3!
    PSIVADM Q+3!
    PSIVAT Q+3!
    >> PSIVBR ENCHS+3, ENCHS1+6, ENCHS1+19, OV1+5, OV1+9, OV1+10, OV1+11
    PSIVC Q+4!, Q+6!
    PSIVDT Q+4!
    PSIVFLAG Q+4!
    PSIVLN Q+4!
    PSIVNOL Q+4!
    PSIVNOW Q+4!
    PSIVNU Q+4!, Q+6!
    PSIVON Q+4!, Q+6!
    PSIVOV1 OV+3*, OV+4, Q+4!, Q+6!
    PSIVOV2 OV+3*, OV+4, Q+4!, Q+6!
    PSIVREA Q+4!, Q+6!
    PSIVSTR ENU+1*, Q+4!
    PSIVSTRT Q+4!
    PSIVTYPE Q+4!
    PSJACNWP GETP1+6~
    PSJCLND GTON+11~*, GTON+12, GTON+13, GTON+14, GTON+15, GTON+16, GTON+17, GTON+18
    PSJDCEXP KILL!
    PSJDSVFY OV1+2~
    PSJENHOC OV1+2~
    PSJEXCPT GETP1+2~
    PSJEXCPT("PROSPECTIVE" OV1+3!
    PSJIVPRF ENCHS1+12~*
    PSJLMPRO ENCHS1+4!, ENCHS1+20!
    >> PSJNEWOE ENCHS1+7, ENCHS1+9*
    PSJNKF Q+4!
    PSJOCER GETP1+2~
    >> PSJOL ENCHS1+3*, ENCHS1+6, ENCHS1+7*, ENCHS1+8, ENCHS1+13*
    >> PSJORD OV1+7*
    PSJORF Q+5!
    PSJORIFN Q+5!
    >> PSJORL GETP1+6*
    >> PSJORQF ENCHS1+2*, ENCHS1+9*, ENCHS1+18
    >> PSJPROT ENCHS1+3*
    QUD ENQ+2*, ENQ+5*, VAR*, KILL!
    QUX ENQ+2*, ENQ+3, ENQ+4*, ENQ+5, VAR*, KILL!
    QUX1 ENQ+5*, VAR*, KILL!
    RDWARD Q+5!, Q+6!
    REF GTON+11~*, GTON+12*, GTON+13*, GTON+14*, GTON+15*, GTON+16*, GTON+17*, GTON+18*, GTON+19
    REF2 GTON+11~*
    SCHED Q+5!
    START Q+5!
    STOP Q+5!
    U ENC+1
    USER Q+5!
    V Q+5!, Q+6!
    VAERR Q+6!
    >> VAIN(4 GETP1+6
    >> VALMBCK ENCHS1+15, OV+1*, OV+8*
    >> VALMCNT ENCHS1+5*
    >> VALMSG OV1+6*
    VW Q+6!
    X GETP1+3*, ENYN+2*, ENQ+2, ENQ+5, VARPAT, KILL*, ENC+1*, SELNUM+1*, GTON~
    , GTON+2, GTON+3, GTON+4, GTON+5, GTON+6, GTON+7, GTON+8, GTON+9, GTON+12, GTON+13
    , GTON+14, GTON+15, GTON+16, GTON+17, GTON+18, Q+6!
    X2 Q+6!
    >> XQORNOD(0 SELNUM+1
    XT Q+5!
    Y GETP1+5, GETP1+6, ENADM+2!, ENOW*, ENC+1, OV1+12, ENU+1~*, Q+6!
    Y1 Q+6!
    Z ENADM+2!, Q+6!
    Z1 Q+6!
    Z2 Q+6!
    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