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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 4 $$ENDTC1^PSGMI  ENIV^PSJAC  PAUSE^PSJLMUT1  CONT^PSJOE0  
VA FileMan 4 NOW^%DTC  ^DIE  EN^DIQ1  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Barcode Medication Administration 1 EN^PSBPOIV  
List Manager 1 FULL^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSIVLTR1  PSIVOPT1  PSIVORC1  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ;
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
H ;Header
K ;
DATA(DFN,ON,PSJIPRNT,PSJIINV,PSJAVAIL,PSJINIV,PSJQT) ;Get the Information
H2 ;Header for Unique ID #s
EN2 ; Queued entry point
EXIT ;
DEV(DFN,ON55,INVDT) ;Device
UPD(DFN,ON,PSJINVDT,PSJINIV) ; Go through labels, invalidate each
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
DISPLAY ; Display or Print labels
UP1(DFN,ON,PSJBLN,PSJINVDT,PSJINIV) ; invalidate one label

External References

Name Field # of Occurrence
NOW^%DTC PSBPOIV+12, EN2+20, UP1+10
^%ZIS DEV+3, DEV+4
^%ZISC EXIT+1
^%ZTLOAD DEV+8
^DIE UP1+11
EN^DIQ1 DISPLAY+3, UPD+4
^DIR VFY+12, PAUSE+2
EN^PSBPOIV PSBPOIV+11
$$ENDTC1^PSGMI DISPLAY+9, DISPLAY+14
ENIV^PSJAC EN2+6
PAUSE^PSJLMUT1 DEV+9
CONT^PSJOE0 VFY+15
FULL^VALM1 VFY+6

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
Routine Call
  • DIE
  • Line Location:
    • UP1+11
Routine Call
  • DIR
  • Line Location:
    • VFY+12
    • PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
    • DEV+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN2+9
^PS(52.6 - [#52.6] EN2+13, EN2+14, EN2+18
^PS(52.7 - [#52.7] EN2+17
^PS(53.1 - [#53.1] EN2+3
^PS(55 - [#55] PSBPOIV+17, EN2+7, EN2+11, EN2+12, EN2+15, EN2+16, EN2+18, DISPLAY+6, UPD+5, UP1+7
^SC - [#44] EN2+8
^TMP("PSBAR" PSBPOIV+9!, PSBPOIV+13, PSBPOIV+14, PSBPOIV+15!, VFY+2, EXIT+2!
^TMP("PSJINBAG" PSBPOIV+9!, PSBPOIV+15!, PSBPOIV+18*, PSBPOIV+19, VFY+13!, VFY+15!, EN2+5*, EN2+21, UPD+2, UPD+8*

Label References

Name Line Occurrences
DATA PSBPOIV+20, VFY+10
DEV VFY+14
DISPLAY EN2+21
EN2 DEV+9
EXIT PSBPOIV+20, PSBPOIV+21, DEV+4, DEV+5
H2 EN2+19, DISPLAY+8
PAUSE DISPLAY+8, DISPLAY+16
UP1 UPD+7
UPD EN2+20
VFY PSBPOIV+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSBPOIV+12, EN2+20, K+1!, UP1+10
%ZIS DEV+1!*, DEV+3!
%ZIS("A" DEV+4*
ADCNT EN2+7~, EN2+11*, EN2+12
AI EN2+7~, EN2+11*, EN2+13, EN2+15*, EN2+17
BCINVF VFY+2~*, VFY+3, VFY+4*, VFY+5, VFY+7
BCST DISPLAY+1~, DISPLAY+4*, UPD+3~, UPD+6*
CD K+1!
COU PSBPOIV+12~, EN2+2*
D0 UP1+12!
DA VFY+12~, EN2+1~, DISPLAY+1!, DISPLAY+3*, UPD+3!, UPD+4*, UP1+10!*, UP1+12!
DA(1 UP1+9*, UP1+10*
DATE K+1!
DFN PSBPOIV~, PSBPOIV+8, PSBPOIV+9, PSBPOIV+11, PSBPOIV+17, PSBPOIV+18, PSBPOIV+19, PSBPOIV+20, PSBPOIV+21, VFY~
, VFY+10, VFY+14, DATA~, EN2+5, EN2+7, EN2+9, EN2+11, EN2+12, EN2+15, EN2+16
, EN2+18, EN2+20, EN2+21, DISPLAY+3, DISPLAY+6, DEV~, UPD~, UPD+2, UPD+4, UPD+5
, UPD+7, UPD+8, UP1~, UP1+6, UP1+7, UP1+8, UP1+9, UP1+10
DIC EN2+1~, K+1!, DISPLAY+1!, DISPLAY+3*, UPD+3!, UPD+4*, UP1+9*, UP1+10, UP1+12!
DIE UP1+10!*, UP1+12!
DIQ EN2+1~, DISPLAY+1!, DISPLAY+3*, UPD+3!, UPD+4*
DIQ(0 DISPLAY+3*, UPD+4*
DIR VFY+12~, K+1!, PAUSE+2~, EXIT+1!
DIR("A" VFY+12*
DIR(0 VFY+12*, PAUSE+2*
DIROUT EXIT+1!
DIRUT EXIT+1!
DR EN2+1~, DISPLAY+1!, DISPLAY+3*, UPD+3!, UPD+4*, UP1+10!, UP1+11*, UP1+12!
DTOUT PAUSE+2, EXIT+1!
DUOUT PAUSE+2, EXIT+1!
G DEV+2~, DEV+7*
HDR531 EN2+3~*
I H+1~, H+2*
INVBCMA PSBPOIV+14~*, PSBPOIV+15
INVDT PSBPOIV+12~*, PSBPOIV+15*, PSBPOIV+18, PSBPOIV+21, VFY~, VFY+10, VFY+14, DEV~
INVIPM PSBPOIV+17~*
IO EN2+10, EN2+19
IO("Q" DEV+1!, DEV+5, DEV+8!
IOP DEV+1!, DEV+4*!
IOSL DISPLAY+8
IOST EN2+2, PAUSE+1
IVALID DISPLAY+1~, DISPLAY+6*, DISPLAY+7, UPD+3~
IVND0 EN2+12~*, EN2+13, EN2+14, EN2+16~*, EN2+17
IVOL EN2+16~*
IVSTR EN2+12~*
LBLID PSBPOIV+13~*, PSBPOIV+14, PSBPOIV+16, PSBPOIV+18
LBLNUM PSBPOIV+14~, PSBPOIV+16*, PSBPOIV+17
LBST DISPLAY+1~, DISPLAY+10*, DISPLAY+11, UPD+3~
LLCNT EN2+1~, EN2+2*, EN2+19*, DISPLAY+8*, DISPLAY+9*, DISPLAY+11*, DISPLAY+13*, DISPLAY+14*, DISPLAY+15*, DISPLAY+16*
LOC EN2+7~*, EN2+8*, EN2+10
LSTAT DISPLAY+1~
NOW UP1+8~, UP1+10*
NUMLAB K+1!
ON DATA~, EN2+3*, EN2+4*, EN2+5, EN2+7, EN2+11, EN2+12, EN2+15, EN2+16, EN2+18
, EN2+20, EN2+21*, UPD~, UPD+1*, UPD+2, UPD+7, UPD+8, UP1~, UP1+6
ON55 DEV~
ORDER PSBPOIV~, PSBPOIV+8, PSBPOIV+9, PSBPOIV+11, PSBPOIV+18, PSBPOIV+19, PSBPOIV+20, PSBPOIV+21
PN EN2+7~, EN2+9*, EN2+10
POP DEV+1!, DEV+4
PSGP EN2+1~
PSGP(0 EN2+9
PSIVON55 VFY~, VFY+10, VFY+14
PSIVSCR EN2+1~, EN2+2*, DISPLAY+8
PSIVTMP VFY+1~
PSJAVAIL PSBPOIV+12~*, PSBPOIV+15*, PSBPOIV+20, PSBPOIV+21, VFY~, VFY+5, VFY+7, VFY+9, VFY+10, VFY+11
, VFY+15, DATA~, EN2+5
PSJBCID UP1+8~*, UP1+9
PSJBLN VFY+1~*, EN2+1~, EN2+19*, DISPLAY+1~, DISPLAY+2*, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+9
, DISPLAY+10, DISPLAY+12, DISPLAY+13, DISPLAY+14, UPD+2~*, UPD+4, UPD+5, UPD+6, UPD+7, UP1~
, UP1+6, UP1+7, UP1+8, UP1+10
PSJBLNL EN2+1~, EN2+21*, DISPLAY+2
PSJD1 EN2+1~
PSJD2 EN2+1~, DISPLAY+1!, UPD+3!
PSJD2( DISPLAY+4, DISPLAY+5, DISPLAY+9, DISPLAY+10, DISPLAY+12, DISPLAY+13, DISPLAY+14, UPD+6
PSJDNE VFY+1~*, EN2+2!, PAUSE+2*
PSJDOLJ PSBPOIV+12~*, VFY+1*, EN2+5, EN2+21
PSJIACT VFY+1~
PSJIAL VFY+1~
PSJIINV DATA~, EN2+20*, DISPLAY+7, DEV+3*
PSJINIV PSBPOIV~, VFY+1*, VFY+10, DATA~, EN2+20, UPD~, UPD+7, UP1~, UP1+13*
PSJINVDT DATA+1~, EN2+20*, UPD~, UPD+7, UPD+8, UP1~, UP1+10, UP1+11
PSJION DEV+1*, DEV+4!, DEV+5!
PSJIPRNT DATA~, EN2+6, DEV+3*
PSJQT PSBPOIV~, PSBPOIV+10, PSBPOIV+20, DATA~, EN2+19, EN2+21
SOLCNT EN2+7~, EN2+15*, EN2+16, EN2+18
TMPINFLD VFY+3~*, VFY+4
TMPON EN2+1~, EN2+3*
TMPON55 EN2+1~
TRA K+1!
>> VAIN(4 EN2+7
X EN2+1~, DISPLAY+12*, UP1+9*
Y PSBPOIV+12~, VFY+1~, VFY+13
ZTDESC DEV+2~, DEV+6*
ZTRTN DEV+2~, DEV+6*
ZTSAVE DEV+2~
ZTSAVE( DEV+7*
ZTSK DEV+1!, DEV+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All