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 ;29-May-2012 14:32;PLS

Source Information

Source file <PSIV.m>

Call Graph

Call Graph Total: 16

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

Caller Graph

Caller Graph Total: 26

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

Entry Points

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

    External References

    Name Field # of Occurrence
    NOW^%DTC ENOW
    SETPTCX^APSPFUNC ENCHS1+3
    ^DIC ENADM+1
    ^DIE ENADM+1
    ^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+4
    EN^PSJDPT GETP1+2
    EN^PSJLIPRF OV1+4
    $$ENORL^PSJUTL GETP1+4
    $$L^PSSLOCK ENCHS+4
    $$LS^PSSLOCK OV1+6
    UL^PSSLOCK ENCHS1+20
    UNL^PSSLOCK OV1+8
    EN^VALM ENCHS1+4, ENCHS1+14
    FULL^VALM1 ENGETP+2, ENCHS1+11

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Timeout: DTIME
    • Variable: QUX
    • 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
    • VALM
    • Line Location:
      • ENCHS1+4
      • ENCHS1+14
    Routine Call
    • DIE
    • Line Location:
      • ENADM+1
    Routine Call
    • DIC
    • Line Location:
      • ENADM+1
    Routine Call
    • DIR
    • Line Location:
      • ENCHS1+11

    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, OV+6, Q+1!
    ^TMP("PSJ" Q+1!
    ^TMP("PSJALL" Q+1!
    ^TMP("PSJI" Q+1!
    ^TMP("PSJON" Q+1!
    ^TMP("PSJPRO" SELSO+1, SELNUM+1, Q+1!

    Label References

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

    Naked Globals

    Name Field # of Occurrence
    ^( OV+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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