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

Package: Barcode Medication Administration

Routine: PSBOML


Information

PSBOML ;BIRMINGHAM/EFC - MEDICATION LOG ;Sep 09, 2020@14:17:51

Source Information

Source file <PSBOML.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call