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 ;29-May-2012 14:20;PLS

Source Information

Source file <PSBOML.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Barcode Medication Administration 3 ($$PRNEFF,$$WRAP)^PSBO  ($$PTFTR,PT,WARD)^PSBOHDR  (CLEAN,PSJ1)^PSBVT  
VA Fileman 2 $$EXTERNAL^DILFD  $$GET1^DIQ  
Kernel 1 $$FMTE^XLFDT  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Barcode Medication Administration 2 PSBOMM  PSBOWA  

Entry Points

Name Comments DBIA/ICR reference
SUB() ; Med Log Sub Header
EN ; Begin printing
WDHDR(PSBWARD) ;
PTHDR() ;
PTID(DFN,TYP) ;
LINE(PSBIEN) ; Displays the med log entry in PSBIEN

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD LINE+31
$$GET1^DIQ LINE+12, LINE+18, LINE+25, LINE+37, LINE+41, LINE+42, LINE+43, LINE+44, LINE+52, LINE+62
$$PRNEFF^PSBO LINE+40
$$WRAP^PSBO LINE+17, LINE+24, LINE+32, LINE+33, LINE+41, LINE+53, LINE+63
$$PTFTR^PSBOHDR EN+22, EN+24
PT^PSBOHDR PTHDR+1
WARD^PSBOHDR WDHDR+1
CLEAN^PSBVT LINE+5
PSJ1^PSBVT LINE+6
DEM^VADPT PTID+2
$$FMTE^XLFDT LINE+27, LINE+54

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"<<<< NO MEDICATIONS FOUND FOR THIS TIME FRAME >>>>",!!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: $$PTFTR^PSBOHDR(),$$PTHDR()
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: $$WDHDR(PSBWRD)
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: !!?10,"<<<< NO MEDICATIONS FOUND FOR THIS TIME FRAME >>>>",!!
  • Line Location: EN+40
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+7
Function Call: WRITE
  • Prompt: !,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: LINE+10
Function Call: WRITE
  • Prompt: " ",$E(Y,9,10),":",$E(Y,11,12)
  • Line Location: LINE+11
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(16,32,Y)
  • Line Location: LINE+17
Function Call: WRITE
  • Prompt: ?50,$$GET1^DIQ(53.79,PSBIEN_",","ACTION BY:INITIAL")
  • Line Location: LINE+18
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(57,15,Y)
  • Line Location: LINE+24
Function Call: WRITE
  • Prompt: !,$TR($$FMTE^XLFDT(PSBOST,2),"@"," ")_">"
  • Line Location: LINE+27
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+33
Function Call: WRITE
  • Prompt: $$WRAP^PSBO(120,12,$P(PSBX(PSBZ,PSBY,0),U,4))
  • Line Location: LINE+33
Function Call: WRITE
  • Prompt: "<No PRN Effectiveness Entered>"
  • Line Location: LINE+39
Function Call: WRITE
  • Prompt: "<No Comments>"
  • Line Location: LINE+46
Function Call: WRITE
  • Prompt: !,$TR($$FMTE^XLFDT(PSBOSP,2),"@"," ")_"<"
  • Line Location: LINE+54
Function Call: WRITE
  • Prompt: "<No Audits>"
  • Line Location: LINE+56
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: LINE+64
Function Call: WRITE
  • Prompt: $$SUB()
  • Line Location: WDHDR+2
Function Call: WRITE
  • Prompt: $$SUB()
  • Line Location: PTHDR+2
Function Call: WRITE
  • Prompt: "Activity Date",?16,"Orderable Item",?50,"Action",?57,"Action"
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !,"Start Date>",?16,"[Dose/Sched/Route/Inj Site]",?50,"By"
  • Line Location: SUB+3
Function Call: WRITE
  • Prompt: ?57,"Date/Time",?75,"Drug/Additive/Solution",?105," U/Ord"
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: ?113," U/Gvn",?120,"Unit",!,"Stop Date<"
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: SUB+6

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+37, EN+38
^PSB(53.79 - [#53.79] EN+16, EN+18, EN+20, EN+21, EN+39, EN+41, EN+43, LINE+2, LINE+4, LINE+8
, LINE+15, LINE+36, LINE+39, LINE+40
^TMP("PSBO" EN+31

Label References

Name Line Occurrences
$$LINE EN+23, EN+45
$$PTHDR EN+15, EN+22
$$PTID EN+37
$$SUB WDHDR+2, PTHDR+2
$$WDHDR EN+30, EN+34, EN+44

Naked Globals

Name Field # of Occurrence
^( LINE+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN+1~, EN+14*, EN+16, EN+18, EN+19, EN+33*, EN+37, EN+38, EN+39, EN+41
, EN+42, LINE+6, PTHDR+1, PTID~
IOM LINE+64, SUB+6
IOSL EN+22, EN+34, EN+44
PSBASTUS LINE+1~, LINE+20*, LINE+23
>> PSBAUDF EN+4*, LINE+4, LINE+55
>> PSBDD LINE+30*, LINE+31
>> PSBDFN LINE+7
>> PSBDHIT LINE+28*, LINE+33*
>> PSBDOSE LINE+13
PSBEIECMT LINE+40~*, LINE+41
>> PSBGBL EN+18*, EN+19*, EN+20, EN+21, EN+41*, EN+42*, EN+43
PSBHDR EN+1~, WDHDR+1, PTHDR+1
PSBHDR(0 EN+5*
PSBHDR(1 EN+8*
PSBHDR(2 EN+13*, EN+29*
PSBIEN EN+20*, EN+21, EN+23, EN+43*, EN+45, LINE~, LINE+2, LINE+3, LINE+4, LINE+8
, LINE+12, LINE+15, LINE+18, LINE+25, LINE+36, LINE+37, LINE+39, LINE+40, LINE+41, LINE+42
, LINE+43, LINE+44, LINE+52, LINE+62
>> PSBIFR LINE+13
>> PSBMRAB LINE+14
>> PSBOSP LINE+54
>> PSBOST LINE+27
>> PSBRPT( EN+2, EN+3, EN+4, EN+12, EN+14, EN+28, LINE+40, LINE+45
>> PSBSCH LINE+13
PSBSTOP EN+1~, EN+3*, EN+17, EN+19, EN+40, EN+42
PSBSTRT EN+1~, EN+2*, EN+16, EN+18, EN+39, EN+41
>> PSBTMPG EN+31*, EN+32*, EN+33
PSBWARD WDHDR~, WDHDR+1
>> PSBWRD EN+30, EN+34, EN+44
PSBX LINE+1~, LINE+8*
PSBX( LINE+25, LINE+26, LINE+28, LINE+31, LINE+33, LINE+34, LINE+35, LINE+46, LINE+47, LINE+49
, LINE+53, LINE+56, LINE+57, LINE+59, LINE+63
PSBX(0 LINE+9, LINE+19, LINE+21
>> PSBY LINE+28*, LINE+31, LINE+33, LINE+34, LINE+35, LINE+47*, LINE+49, LINE+52, LINE+53, LINE+57*
, LINE+59, LINE+62, LINE+63
>> PSBZ LINE+28*, LINE+30, LINE+31, LINE+33, LINE+34, LINE+35
TYP PTID~, PTID+3
U EN+2, EN+3, EN+4, EN+12, EN+14, EN+21, EN+28, EN+37, EN+43, LINE+2
, LINE+4, LINE+9, LINE+15, LINE+19, LINE+21, LINE+25, LINE+26, LINE+31, LINE+33, LINE+34
, LINE+35, LINE+36, LINE+39, LINE+40, LINE+45, LINE+49, LINE+53, LINE+59, LINE+63
VA PTID+1~
VA("BID" PTID+3
VA("PID" PTID+3
VADM PTID+1~
VAERR PTID+1~
>> X EN+16*, EN+17, EN+39*, EN+40, LINE+2*, LINE+3, LINE+6, LINE+19*, LINE+20
>> Y LINE+9*, LINE+10, LINE+11, LINE+12*, LINE+13*, LINE+14*, LINE+15*, LINE+16*, LINE+17, LINE+21*
, LINE+22*, LINE+23*, LINE+24, LINE+31*, LINE+32, LINE+49*, LINE+50, LINE+51, LINE+59*, LINE+60
, LINE+61
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