Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSIVSP

Package: Inpatient Medications

Routine: PSIVSP


Information

PSIVSP ;BIR/RGY,PR,CML - DOSE PROCESSOR ;1/3/12 3:36pm

Source Information

Source file <PSIVSP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1 ;
NS0
SH ;
Q
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
QDL
DLP ;
OV
QDLP
ENI ;
SPSOL
CHK
DIC ; 51.1 look-up
ORINF ; OERR input transform for Infusion Rate
; X=data
  • ICR #2945
    • Status: Active
    • Usage: Controlled Subscription

    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+5
    Function Call: WRITE
    • Prompt: " You must define at least one solution !!"
    • Line Location: ENI+8
    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+11

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(51.1 - [#51.1] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call