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

Package: Barcode Medication Administration

Routine: PSBODO


Information

PSBODO ;BIRMINGHAM/EFC - BCMA UNIT DOSE VIRTUAL DUE LIST FUNCTIONS ;Dec 22, 2021@07:55:46

Source Information

Source file <PSBODO.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DISPORD ;
DSPPRV(ARR,LN,IND,ALGN,NONE) ; Display Provider (CPRS) override reasons
; ARR = array with provider override text.
; LN = total width of report writable area. (opt, 132 default)
; IND = indent for both left and right margins. (opt,0 default)
; ALGN = align colon on this column. (opt, 25 default)
; NONE = display empty Provider override msg. (opt, 0 default)
DSPRPH(ARR,LN,IND,ALGN,NONE) ; Display Pharmacist Interventions
; ARR = array with Pharmacist intervention text. (opt)
; LN = total width of report writable area. (opt,132 default)
; IND = indent for both left and right margins. (opt, 0 default)
; ALGN = align colon on this column. (opt. 25 default)
; NONE = display empty Pharmacist intervention msg. (opt, 0 default)
DSPORCK(LN,IND,ALGN,NONE) ; Display Order Check(CPRS) #93 NEW TAG
; LN = total width of report writable area. (opt, 132 default)
; IND = indent for both left and right margins. (opt,0 default)
; ALGN = align colon on this column. (opt, 25 default)
; NONE = display empty order check msg. (opt, 0 default)
ORCHECK ; recreate CPRS Order Check - copied from ORQ2 #93
ALLERGY
CDL(X) ; -- Returns Clinical Danger Level X #93 NEW TAG
XTRA ; #93 NEW TAG
USER(X)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPORD+8
Function Call: WRITE
  • Prompt: !,"Invalid Order"
  • Line Location: DISPORD+9
Function Call: WRITE
  • Prompt: !,"Infusion Rate: ",PSBIFR
  • Line Location: DISPORD+14
Function Call: WRITE
  • Prompt: !,"Dosage Ordered: ",PSBDOSE
  • Line Location: DISPORD+15
Function Call: WRITE
  • Prompt: ?40,"Self Med: ",PSBSMX
  • Line Location: DISPORD+20
Function Call: WRITE
  • Prompt: !,"Admin Times: ",PSBADST
  • Line Location: DISPORD+23
Function Call: WRITE
  • Prompt: !,"Removal Times: ",$$REMSTR^PSBUTL(PSBADST,PSBDOA,PSBSCHT,PSBOSP,PSBOPRSP)
  • Line Location: DISPORD+24
Function Call: WRITE
  • Prompt: !,"Admin Times: ",PSBADST
  • Line Location: DISPORD+25
Function Call: WRITE
  • Prompt: !,$TR($J("",75)," ","-")
  • Line Location: DISPORD+46
Function Call: WRITE
  • Prompt: !?7,"Reason: ",@(PSJGLO_","_I_","_3_")")
  • Line Location: DISPORD+77
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPORD+90
Function Call: WRITE
  • Prompt: !!?IND,$TR($J("",LN)," ","=")
  • Line Location: DSPPRV+11
Function Call: WRITE
  • Prompt: !?CTRTAB,HDG
  • Line Location: DSPPRV+14
Function Call: WRITE
  • Prompt: !?IND,$TR($J("",LN)," ","="),!
  • Line Location: DSPPRV+15
Function Call: WRITE
  • Prompt: !?IND,"No Provider Overrides to display.",!
  • Line Location: DSPPRV+18
Function Call: WRITE
  • Prompt: !?IND,$TR($J("",LN)," ","=")
  • Line Location: DSPRPH+12
Function Call: WRITE
  • Prompt: !?CTRTAB,HDG
  • Line Location: DSPRPH+15
Function Call: WRITE
  • Prompt: !?IND,$TR($J("",LN)," ","="),!
  • Line Location: DSPRPH+16
Function Call: WRITE
  • Prompt: !?IND,"No Pharmacist Interventions to display.",!
  • Line Location: DSPRPH+19
Function Call: WRITE
  • Prompt: !?IND,LINE
  • Line Location: DSPRPH+33
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPRPH+35
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPRPH+39
Function Call: WRITE
  • Prompt: !!?IND,$TR($J("",LN)," ","=")
  • Line Location: DSPORCK+10
Function Call: WRITE
  • Prompt: !?CTRTAB,HDG
  • Line Location: DSPORCK+13
Function Call: WRITE
  • Prompt: !?IND,$TR($J("",LN)," ","="),!
  • Line Location: DSPORCK+14
Function Call: WRITE
  • Prompt: !?IND,"No Order Check to display.",!
  • Line Location: DSPORCK+17
Function Call: WRITE
  • Prompt: ?IND,$G(^TMP("PSBORTXT",$J,QQ)),!
  • Line Location: DSPORCK+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
100.517 GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^PSB(53.69 - [#53.69] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call