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

Package: Inpatient Medications

Routine: PSIVSP


Information

PSIVSP ;BIR/RGY,PR,CML3-DOSE PROCESSOR ;14-Aug-2014 10:08;DU

Source Information

Source file <PSIVSP.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 3 $$ENLU^PSGMI  EN^PSGS0  ENT^PSIVWL  
VA Fileman 2 C^%DTC  IX^DIC  
Registration 1 IN5^VADPT  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Inpatient Medications 6 IV  PSIVEDT1  PSIVORFA  PSIVQUI  PSIVUTL  PSIVUTL1  
Order Entry Results Reporting 3 ORBCMA32  ORCDPSIV  ORWDPS33  
Pharmacy Data Management 2 ^PS(52.6  ^PSDRUG  
Outpatient Pharmacy 1 IV  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ENI ;
QDL
CHK
SPSOL
QDLP
Q
EN1 ;
SH ;
DIC ; 51.1 look-up
ORINF ; OERR input transform for Infusion Rate
; X=data
  • ICR #2945
    • Status: Active
    • Usage: Controlled Subscription
    DLP ;
    NS0
    OV
    NEWQ ;N I S X0=$P(X," ")_$S($L(X0," ")-1:" ",1:"")_$P(X0," ",2,99) K:XT<0!($L(X0)>22) X S:$D(X) X=X0 S:P(7) X=X0 K X0 K:XT>0&('P(7)) X Q
    ENDL

    External References

    Name Field # of Occurrence
    C^%DTC OV+2
    IX^DIC DIC+4
    $$ENLU^PSGMI ORINF+4
    EN^PSGS0 EN+3
    ENT^PSIVWL ENDL+3
    IN5^VADPT DIC+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: " Dose limit .... "
    • Line Location: ENDL+0
    Function Call: WRITE
    • Prompt: !!," --- There is something wrong with this order !!",!," Call inpatient supervisor ....."
    • Line Location: ENDL+1
    Function Call: WRITE
    • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
    • Line Location: QDL+0
    Function Call: WRITE
    • Prompt: $C(7)," ???",!?15,"*** You have not defined any administration times !!"
    • Line Location: OV+0
    Function Call: WRITE
    • Prompt: " ",X
    • Line Location: ENI+4
    Function Call: WRITE
    • Prompt: " You must define at least one solution !!"
    • Line Location: ENI+7
    Function Call: WRITE
    • Prompt: " ",+SPSOL," Label",$S(SPSOL'=1:"s",1:"")," per day",!?15,"at an infusion rate of: ",$P(X,"@") S P(15)=$S('SPSOL:0,1:1440/SPSOL\1)
    • Line Location: ENI+9
    Routine Call
    • DIC
    • Line Location:
      • DIC+4

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" QDL
    ^PS(51.1 - [#51.1] EN1+3, DIC+6

    Label References

    Name Line Occurrences
    CHK DLP+1
    DIC EN1+3
    DLP ENDL+2
    OV DLP+2, DLP+3
    Q EN1+2
    QDL ENDL+2
    QDLP DLP+1
    SH EN1+3
    SPSOL ENI+8

    Naked Globals

    Name Field # of Occurrence
    ^( EN1+3
    ^(0 DIC+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ATZERO EN+2*, EN+4, EN+5!, EN1+2*!
    >> D DIC+3*
    DIC DIC+2!*, DIC+4!, DIC+5*
    DIC("W" DIC+3*
    DIC(0 DIC+2*, DIC+3*
    >> DIE DIC+5
    >> DRG("SOL" ENI+7, SPSOL
    I NS0+3*, Q+1~
    INFUSE ORINF+2~, ORINF+4*
    >> NOECH DIC+2
    >> ON SH+1
    >> P(11 EN+3*, DLP+2, DLP+3, DLP+4, OV, OV+1, OV+3, CHK*
    >> P(15 EN+3*, ENDL, ENI+8*, ENI+9*
    >> P(2 ENDL
    >> P(23 ENDL+2, ENI+4
    >> P(4 ENDL+2, ENI+3, ENI+4
    >> P(5 ENDL+2, ENI+4
    >> P(7 EN+4*, EN1+2*, Q+1, ENI+10*
    >> P(9 EN+3*, ENDL+2
    >> PSGS0XT EN+3
    >> PSGS0Y EN+3
    >> PSIVAT EN1+1*, DIC+7*
    PSIVMIN ENDL*, ENDL+1!, ENDL+2
    >> PSIVSC1 EN+3*, DIC+7*
    >> PSIVSD ENDL*, DLP+1*, DLP+2, DLP+3, DLP+4, OV+2
    >> PSIVSPQF DIC+3
    >> PSIVWAT EN1+1*, DIC+6*
    PSJSCH DIC+1~*
    SPSOL ENI+7*!, ENI+8!, ENI+9*!, SPSOL*
    U SH+1, ENDL+2, SPSOL, DIC+7
    VAIP DIC+1~
    VAIP(5 DIC+1
    WSCHADM DIC+1*, DIC+3, DIC+6, DIC+7!
    X EN+1, EN+2*, EN+3, EN1+1*, EN1+2*, EN1+3, NS0+1, NS0+2, NS0+3*, NS0+4
    , SH+1, Q, Q+1!*, ENDL, QDL*, DLP+1*, OV!, OV+1*, OV+2*, OV+3
    , ENI+3!, ENI+4*, ENI+5!, ENI+6!, ENI+7!, ENI+8*, ENI+9*, ENI+10, DIC+1*, DIC+6*
    , DIC+7*, ORINF+3!, ORINF+4, ORINF+5, ORINF+6, ORINF+7, ORINF+22!, ORINF+28*, ORINF+29*, ORINF+30*
    , ORINF+31*, ORINF+32, ORINF+33*, ORINF+34*, ORINF+35*, ORINF+36*, ORINF+37*, ORINF+38*, ORINF+39!, ORINF+40*
    , ORINF+41*
    X0 EN1+1*, NS0+3, SH+1, Q+1*!
    X1 DLP+4*, OV+2*, QDLP!, ORINF+7~*, ORINF+8, ORINF+9*, ORINF+12, ORINF+13*, ORINF+16, ORINF+17*
    , ORINF+23*, ORINF+25*, ORINF+28
    X2 DLP+1*, DLP+2*, OV+1*, OV+2, QDLP!, ORINF+7~*, ORINF+10, ORINF+11*, ORINF+14, ORINF+15*
    , ORINF+18, ORINF+19*, ORINF+20, ORINF+21, ORINF+22, ORINF+24*, ORINF+26*, ORINF+27*, ORINF+28
    >> XT EN+3*, EN1+1*, NS0+1*, NS0+2*, NS0+3*, NS0+4*, SH+1, Q+1*, DIC+6*, DIC+7*
    XXX SPSOL*, SPSOL+1!
    >> Y EN1+1*, EN1+3, NS0*, NS0+4, SH+1, ENDL+1*, QDL*, DLP+1*, DLP+4*, OV+1*
    , OV+3*, CHK*, DIC+5, DIC+6*, DIC+7*
    >> Y(0 DIC+6, DIC+7
    ZZY DIC+6*, DIC+7!
    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