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
Print Page as PDF
Routine: PSJIBAG

Package: Inpatient Medications

Routine: PSJIBAG


Information

PSJIBAG ;BIR/JCH - IV PARAMETER VALIDATION ; 08/10/12 12:26pm

Source Information

Source file <PSJIBAG.m>

Entry Points

Name Comments DBIA/ICR reference
PSBPOIV(DFN,ORDER,PSJQT,PSJINIV) ; Check BCMA IV Parameters, invalidate labels
; DFN - Patient IEN
; ORDER - Inpatient IV order
; PSJQT - Quiet (no display)
; - 100 = called from Label Log
; PSJINIV - Were any labels invalidated?
; 0=NO, 1=YES
VFY(DFN,PSIVON55,INVDT,PSJAVAIL) ; If AUTO-VERIFY turned off, veryifying pharmacist needs to be reminded about invalidated labels before being prompted to print labels
DATA(DFN,ON,PSJIPRNT,PSJIINV,PSJAVAIL,PSJINIV,PSJQT) ;Get the Information
EN2 ; Queued entry point
K ;
DISPLAY ; Display or Print labels
PAUSE ;
H ;Header
H2 ;Header for Unique ID #s
DEV(DFN,ON55,INVDT) ;Device
EXIT ;
UPD(DFN,ON,PSJINVDT,PSJINIV) ; Go through labels, invalidate each
UP1(DFN,ON,PSJBLN,PSJINVDT,PSJINIV) ; invalidate one label

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Checking IV Labels..."
  • Line Location: PSBPOIV+10
Function Call: WRITE
  • Prompt: !!!?6,"** Edit to ",BCINVF," has invalidated the following IV labels **"
  • Line Location: VFY+7
Function Call: WRITE
  • Prompt: !!!?12,"** The following labels are available **"
  • Line Location: VFY+9
Function Call: WRITE
  • Prompt: !!?23,"* Invalidated IV Labels *",!!?5,"Patient: ",PN,?50,"Location: ",LOC
  • Line Location: EN2+10
Function Call: WRITE
  • Prompt: !?1,"Additive(s) (current order): ",?14,$P($G(^PS(52.6,+IVND0,0)),"^")
  • Line Location: EN2+13
Function Call: WRITE
  • Prompt: !?1,"Solution(s) (current order): ",?14,$P($G(^PS(52.7,+IVND0,0)),"^")
  • Line Location: EN2+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+19
Function Call: WRITE
  • Prompt: $$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,4,"I"))),?17,$G(PSJD2(55.0105,PSJBLN,.01,"I"))
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: ?39,LBST
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: ?51,$S(X:"YES",1:"NO")
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: ?57,$G(PSJD2(55.0105,PSJBLN,2,"E"))
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: ?66,$$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,1,"I")))
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !!,"LABEL LOG:",!!,"#",?3,"DATE/TIME",?18,"ACTION",?32,"USER",?47,"#LABELS",?60,"TRACK",?75,"COUNT",!
  • Line Location: H+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I=80
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Label Date/Time",?17,"Unique ID",?39,"Status",?51,"Count",?57,"BCMA Action-Date/Time"
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: !,"---------------",?17,"--------",?39,"---------",?51,"-----",?57,"-----------------------",!
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !,"Please try later!"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Info |  Source |  Entry Points |  Interaction Calls