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

Package: Barcode Medication Administration

Routine: PSBODL1


Information

PSBODL1 ;BIRMINGHAM/VRN-DUE LIST ;4/26/21 12:11

Source Information

Source file <PSBODL1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
WRAPPUP ;Do wrapping per PSBODL (Due List Report)
WRAP(X,Y,Z) ; Quick text wrap
FTR() ; [Extrinsic] Page footer
HDR() ; Page Header
BLANKS() ; [Extrinsic] Print blanks at end of printout for changes
CHKREM ;Find RMs not yet triggered to print by the normal Admin time process
; these will be meds that have no more admins to do today, but a
; previous Give earlier today or from a prior day, still have a
; Remove pending
WRAPREM ;print standalone removes found

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?(IOM-36\2),"(Medications Continued on Next Page)",$$FTR(),$$HDR()
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: $$HDR()
  • Line Location: EN+47
Function Call: WRITE
  • Prompt: $E(PSBLGDT,4,5),"/",$E(PSBLGDT,6,7),"/",$E(PSBLGDT,2,3)
  • Line Location: EN+60
Function Call: WRITE
  • Prompt: "@",$E($P(PSBLGDT,".",2)_"0000",1,4)
  • Line Location: EN+60
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBADA(Y),U,3)_" ("_$P(PSBADA(Y),U,4)_")")
  • Line Location: EN+69
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBSOLA(Y),U,3)_" ("_$P(PSBSOLA(Y),U,4)_")")
  • Line Location: EN+70
Function Call: WRITE
  • Prompt: !!,?10,"** NO SPECIFIED MEDICATIONS TO PRINT **"
  • Line Location: EN+83
Function Call: WRITE
  • Prompt: $$WRAP(14,34,PSBMED)
  • Line Location: WRAPPUP+3
Function Call: WRITE
  • Prompt: $$WRAP(50,27,PSBADM),?78,$$WRAP(78,6,PSBMR)
  • Line Location: WRAPPUP+10
Function Call: WRITE
  • Prompt: ?85
  • Line Location: WRAPPUP+11
Function Call: WRITE
  • Prompt: ?100,$P($TR($$FMTE^XLFDT(PSBOST,2),"@"," ")," "),?110,$P($TR($$FMTE^XLFDT(PSBOSP,2),"@"," ")," "),?120,$S(PSBVPHI]"":PSBVPHI,1:"***"),"/"
  • Line Location: WRAPPUP+13
Function Call: WRITE
  • Prompt: $S(PSBVNI]"":PSBVNI,1:"***"),!,?100,"@"_$P(PSBOSTX," ",2),?110,"@"_$P(PSBOSPX," ",2)
  • Line Location: WRAPPUP+14
Function Call: WRITE
  • Prompt: IOINHI
  • Line Location: WRAPPUP+15
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBADA(Y),U,3))
  • Line Location: WRAPPUP+19
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBSOLA(Y),U,3))
  • Line Location: WRAPPUP+20
Function Call: WRITE
  • Prompt: IOINORM
  • Line Location: WRAPPUP+21
Function Call: WRITE
  • Prompt: !?14,"Special Instructions:",?36,"<None Entered.>"
  • Line Location: WRAPPUP+45
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: WRAPPUP+51
Function Call: WRITE
  • Prompt: Z
  • Line Location: WRAP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FTR+5
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: FTR+6
Function Call: WRITE
  • Prompt: !,PSBHDR("NAME"),?(IOM-11\2),PSBHDR("SSN"),?(IOM-$L(X)),X
  • Line Location: FTR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(IOM-28\2),"***** FUTURE ORDERS *****"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Self",?85,"Last",?100,"Start",?110,"Stop",?120,"Verifying"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Med",?6,"Sched",?14,"Medication",?50,"Dose",?78,"Route",?85,"Given",?100,"Date",?110,"Date",?120,"Rph/Rn"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?100,"@Time",?110,"@Time"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: BLANKS+2
Function Call: WRITE
  • Prompt: ?(IOM-42\2),"(Changes/Addendums to Orders on Next Page)"
  • Line Location: BLANKS+3
Function Call: WRITE
  • Prompt: $$FTR(),$$HDR()
  • Line Location: BLANKS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BLANKS+4
Function Call: WRITE
  • Prompt: ?(IOM-28\2),"Changes/Addendums to orders"
  • Line Location: BLANKS+5
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: BLANKS+11
Function Call: WRITE
  • Prompt: !!,$J(PSBSM,3),?6,PSBTYPE,$E(PSBSCHT,1,4),?12
  • Line Location: WRAPREM+14
Function Call: WRITE
  • Prompt: $$WRAP(14,34,PSBOITX)
  • Line Location: WRAPREM+15
Function Call: WRITE
  • Prompt: $$WRAP(50,27,PSBADM),?78,$$WRAP(78,6,PSBMR)
  • Line Location: WRAPREM+17
Function Call: WRITE
  • Prompt: ?85
  • Line Location: WRAPREM+18
Function Call: WRITE
  • Prompt: ?100,$P($TR($$FMTE^XLFDT(PSBOST,2),"@"," ")," "),?110,$P($TR($$FMTE^XLFDT(PSBOSP,2),"@"," ")," "),?120,$S(PSBVPHI]"":PSBVPHI,1:"***"),"/"
  • Line Location: WRAPREM+20
Function Call: WRITE
  • Prompt: $S(PSBVNI]"":PSBVNI,1:"***"),!,?100,"@"_$P(PSBOSTX," ",2),?110,"@"_$P(PSBOSPX," ",2)
  • Line Location: WRAPREM+21
Function Call: WRITE
  • Prompt: IOINHI
  • Line Location: WRAPREM+22
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBADA(Y),U,3))
  • Line Location: WRAPREM+26
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBSOLA(Y),U,3))
  • Line Location: WRAPREM+27
Function Call: WRITE
  • Prompt: IOINORM
  • Line Location: WRAPREM+28
Function Call: WRITE
  • Prompt: !?50,"Remove Time: "_RMDTTM
  • Line Location: WRAPREM+31
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: WRAPREM+32
Info |  Source |  Entry Points |  Interaction Calls