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

Package: Barcode Medication Administration

Routine: PSBOML


Information

PSBOML ;BIRMINGHAM/EFC-MEDICATION LOG ;03/06/16 3:06pm

Source Information

Source file <PSBOML.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Barcode Medication Administration 5 $$GETINIT^PSBCSUTX  ($$PRNEFF,$$WRAP)^PSBO  ($$PTFTR,$$SRCHLIST,PT,WARD)^PSBOHDR  $$FINDGIVE^PSBUTL  (CLEAN,PSJ1)^PSBVT  
VA FileMan 2 $$EXTERNAL^DILFD  $$GET1^DIQ  
Kernel 1 $$FMTE^XLFDT  
MailMan 1 SENDMSG^XMXAPI  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Barcode Medication Administration 1 PSBOPM  

Entry Points

Name Comments DBIA/ICR reference
SUB() ; Med Log Sub Header
EN ; Begin printing
WDHDR(PSBWARD) ;
PTHDR() ;
MME(PSBIEN) ; Administered via Manual Med Entry?
LINE(PSBIEN) ; Displays the med log entry in PSBIEN

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD LINE+66
$$GET1^DIQ LINE+29, LINE+60, LINE+72, LINE+76, LINE+77, LINE+78, LINE+79, LINE+87, LINE+91, LINE+92
, LINE+93, LINE+94, LINE+95, LINE+98, LINE+112
$$GETINIT^PSBCSUTX LINE+39
$$PRNEFF^PSBO LINE+75
$$WRAP^PSBO LINE+38, LINE+45, LINE+58, LINE+67, LINE+68, LINE+76, LINE+88, LINE+101, LINE+124, LINE+126
$$PTFTR^PSBOHDR EN+23, EN+25
$$SRCHLIST^PSBOHDR EN+9
PT^PSBOHDR PTHDR+3
WARD^PSBOHDR WDHDR+3
$$FINDGIVE^PSBUTL LINE+50
CLEAN^PSBVT LINE+5
PSJ1^PSBVT LINE+6
$$FMTE^XLFDT EN+6, LINE+62, LINE+98, LINE+103
SENDMSG^XMXAPI LINE+18
$$GET^XPAR LINE+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"<<<< NO MEDICATIONS FOUND FOR THIS TIME FRAME >>>>",!!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: $$PTFTR^PSBOHDR(),$$PTHDR()
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: $$WDHDR(PSBWRD)
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !!?10,"<<<< NO MEDICATIONS FOUND FOR THIS TIME FRAME >>>>",!!
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: !,"Error: Med Log Entry ",PSBIEN," has no order reference number!"
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: !,"Error: Inpatient Meds API Failure!"
  • Line Location: LINE+21
Function Call: WRITE
  • Prompt: !,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: LINE+27
Function Call: WRITE
  • Prompt: " ",$E(Y,9,10),":",$E(Y,11,12)
  • Line Location: LINE+28
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(16,32,Y)
  • Line Location: LINE+38
Function Call: WRITE
  • Prompt: ?50,$$GETINIT^PSBCSUTX(PSBIEN,"I")
  • Line Location: LINE+39
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(57,15,Y)
  • Line Location: LINE+45
Function Call: WRITE
  • Prompt: !,$TR($$FMTE^XLFDT($G(PSBOST),2),"@"," ")_">"
  • Line Location: LINE+62
Function Call: WRITE
  • Prompt: ?105,$J($P(PSBX(PSBZ,PSBY,0),U,2),6,2),?113,$J($P(PSBX(PSBZ,PSBY,0),U,3),6,2)
  • Line Location: LINE+68
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(120,12,$P(PSBX(PSBZ,PSBY,0),U,4))
  • Line Location: LINE+68
Function Call: WRITE
  • Prompt: "<No PRN Effectiveness Entered>"
  • Line Location: LINE+74
Function Call: WRITE
  • Prompt: "<No Comments>"
  • Line Location: LINE+81
Function Call: WRITE
  • Prompt: "<No Audits>"
  • Line Location: LINE+106
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: LINE+127
Function Call: WRITE
  • Prompt: $$SUB()
  • Line Location: WDHDR+4
Function Call: WRITE
  • Prompt: $$SUB()
  • Line Location: PTHDR+4
Function Call: WRITE
  • Prompt: "Location",!
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: "Activity Date",?16,"Orderable Item",?50,"Action",?57,"Action"
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: !,"Start Date>",?16,"[Dose/Sched/Route/Body Site]",?50,"By"
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: ?57,"Date/Time",?75,"Drug/Additive/Solution",?105," U/Ord"
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: ?113," U/Gvn",?120,"Unit",!,"Stop Date<"
  • Line Location: SUB+6
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: SUB+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSB(53.79 - [#53.79] GET1^DIQ
53.793 GET1^DIQ
53.799 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+36, EN+37
^PSB(53.79 - [#53.79] EN+17, EN+19, EN+21, EN+22, EN+38, EN+40, EN+42, LINE+2, LINE+4, LINE+22
, LINE+32, LINE+71, LINE+74, LINE+75, MME+2, MME+3
^TMP("PSBO" EN+32
^XTMP("PSB DEBUG" LINE+46

Label References

Name Line Occurrences
$$LINE EN+24, EN+44
$$MME LINE+25
$$PTHDR EN+16, EN+23
$$SUB WDHDR+4, PTHDR+4
$$WDHDR EN+31, EN+35, EN+43

Naked Globals

Name Field # of Occurrence
^( LINE+33, LINE+35
^(0 EN+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALIN LINE+117~, LINE+118*, LINE+122
CMMT MME+1~, MME+2*, MME+3
CMMTND MME+1~, MME+3*
DFN EN+1~, EN+15*, EN+17, EN+19, EN+20, EN+34*, EN+36, EN+37, EN+38, EN+40
, EN+41, LINE+6, PTHDR+3
DUZ LINE+11
INI LINE+49~, LINE+52*, LINE+55
IOM LINE+127, SUB+7
IOSL EN+23, EN+35, EN+43
MME MME+1~*, MME+2, MME+3*, MME+4
NXALIN LINE+117~, LINE+119*, LINE+120*, LINE+122
PSBASTUS LINE+1~, LINE+41*, LINE+44, LINE+48, LINE+54*, LINE+57
>> PSBAUDF EN+5*, LINE+4, LINE+105
PSBCLINORD WDHDR+1~*, PTHDR+1~*
>> PSBDD LINE+65*, LINE+66
>> PSBDFN LINE+21
>> PSBDHIT LINE+63*, LINE+68*
>> PSBDOSE LINE+30
PSBEIECMT LINE+75~*, LINE+76
PSBERR LINE+9~
PSBERR(1 LINE+15*
PSBERR(2 LINE+16*
PSBERR(3 LINE+17*
PSBEXIST LINE+1~, LINE+6, LINE+8
>> PSBGBL EN+19*, EN+20*, EN+21, EN+22, EN+40*, EN+41*, EN+42
PSBHDR EN+1~, WDHDR+3, PTHDR+3
PSBHDR(0 EN+6*
PSBHDR(1 EN+7*
PSBHDR(2 EN+14*, EN+30*
PSBHDR(3 WDHDR+2*, PTHDR+2*
PSBHDR(4 WDHDR+2*, PTHDR+2*
PSBIEN EN+21*, EN+22, EN+24, EN+42*, EN+44, LINE~, LINE+2, LINE+3, LINE+4, LINE+15
, LINE+22, LINE+25, LINE+29, LINE+32, LINE+39, LINE+46, LINE+50, LINE+60, LINE+71, LINE+72
, LINE+74, LINE+75, LINE+76, LINE+77, LINE+78, LINE+79, LINE+87, LINE+91, LINE+92, LINE+93
, LINE+94, LINE+95, LINE+98, LINE+112, MME~, MME+2, MME+3
>> PSBIFR LINE+30
PSBMG LINE+9~, LINE+13*, LINE+14
PSBMME LINE+1~, LINE+25*
>> PSBMRAB LINE+31
>> PSBOSP LINE+103
>> PSBOST LINE+62
PSBPARAM LINE+9~
>> PSBRPT( EN+2, EN+3, EN+4, EN+5, EN+15, LINE+75, LINE+80
>> PSBSCH LINE+30
>> PSBSCRT LINE+8
PSBSORT EN+1~, EN+2*, EN+13, EN+29
PSBSRCHL EN+1~, EN+9*, WDHDR+3, PTHDR+2, PTHDR+3
PSBSTOP EN+1~, EN+4*, EN+6, EN+18, EN+20, EN+39, EN+41
PSBSTRT EN+1~, EN+3*, EN+6, EN+17, EN+19, EN+38, EN+40
>> PSBTMPG EN+32*, EN+33*, EN+34
PSBWARD WDHDR~, WDHDR+3
>> PSBWRD EN+31, EN+35, EN+43
PSBX LINE+1~, LINE+22*
PSBX( LINE+60, LINE+61, LINE+63, LINE+66, LINE+68, LINE+69, LINE+70, LINE+81, LINE+82, LINE+84
, LINE+88, LINE+106, LINE+107, LINE+109, LINE+118, LINE+119, LINE+120, LINE+123, LINE+126
PSBX(0 LINE+23, LINE+25*, LINE+26, LINE+40, LINE+42
>> PSBY LINE+63*, LINE+66, LINE+68, LINE+69, LINE+70, LINE+82*, LINE+84, LINE+87, LINE+88, LINE+107*
, LINE+109, LINE+112, LINE+118, LINE+119, LINE+123, LINE+126
>> PSBZ LINE+63*, LINE+65, LINE+66, LINE+68, LINE+69, LINE+70
RMEV LINE+49~, LINE+50*, LINE+51, LINE+52, LINE+53
U EN+2, EN+3, EN+4, EN+5, EN+15, EN+22, EN+36, EN+42, LINE+2, LINE+4
, LINE+23, LINE+25, LINE+26, LINE+32, LINE+33, LINE+35, LINE+40, LINE+42, LINE+51, LINE+52
, LINE+53, LINE+60, LINE+61, LINE+66, LINE+68, LINE+69, LINE+70, LINE+71, LINE+74, LINE+75
, LINE+80, LINE+84, LINE+88, LINE+109, LINE+118, LINE+120, LINE+123, LINE+126
WITBY LINE+90~, LINE+91*, LINE+96, LINE+97, LINE+99
WITCM LINE+90~, LINE+93*, LINE+101
WITDT LINE+90~, LINE+92*
WITFL LINE+90~, LINE+95*, LINE+99, LINE+100
WITHR LINE+90~, LINE+94*
>> X EN+17*, EN+18, EN+38*, EN+39, LINE+2*, LINE+3, LINE+6, LINE+40*, LINE+41, LINE+53*
, LINE+54
XMDUZ LINE+9~, LINE+11*, LINE+18
XMSUB LINE+9~, LINE+10*, LINE+18
XMTEXT LINE+9~, LINE+12*, LINE+18
XMY LINE+9~, LINE+18
XMY( LINE+14*
>> XX LINE+123*, LINE+124
>> Y LINE+23*, LINE+27, LINE+28, LINE+29*, LINE+30*, LINE+31*, LINE+33*, LINE+35*, LINE+37*, LINE+38
, LINE+42*, LINE+43*, LINE+44*, LINE+45, LINE+51*, LINE+56*, LINE+57*, LINE+58, LINE+66*, LINE+67
, LINE+84*, LINE+85, LINE+86, LINE+109*, LINE+110, LINE+111
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