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

Package: Barcode Medication Administration

Routine: PSBODL1


Information

PSBODL1 ;BIRMINGHAM/VRN-DUE LIST ;03/06/16 3:06pm

Source Information

Source file <PSBODL1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Barcode Medication Administration 5 VAL^PSBMLVAL  PT^PSBOHDR  $$GETADMIN^PSBVDLU1  (CLEAN,PSJ1)^PSBVT  $$PSBDCHK1^PSBVT1  
Kernel 1 $$FMTE^XLFDT  

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 PSBODL  

Entry Points

Name Comments DBIA/ICR reference
HDR() ; Page Header
EN ;
WRAP(X,Y,Z) ; Quick text wrap
WRAPREM ;print standalone removes found
FTR() ; [Extrinsic] Page footer
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
WRAPPUP ;Do wrapping per PSBODL (Due List Report)

External References

Name Field # of Occurrence
VAL^PSBMLVAL EN+34
PT^PSBOHDR HDR+2
$$GETADMIN^PSBVDLU1 EN+26
CLEAN^PSBVT EN+4, WRAPREM+2, WRAPREM+33
PSJ1^PSBVT EN+5, WRAPREM+2
$$PSBDCHK1^PSBVT1 EN+10
$$FMTE^XLFDT EN+55, EN+56, WRAPPUP+7, WRAPREM+20

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+54
Function Call: WRITE
  • Prompt: "@",$E($P(PSBLGDT,".",2)_"0000",1,4)
  • Line Location: EN+54
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBADA(Y),U,3)_" ("_$P(PSBADA(Y),U,4)_")")
  • Line Location: EN+63
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBSOLA(Y),U,3)_" ("_$P(PSBSOLA(Y),U,4)_")")
  • Line Location: EN+64
Function Call: WRITE
  • Prompt: !!,?10,"** NO SPECIFIED MEDICATIONS TO PRINT **"
  • Line Location: EN+77
Function Call: WRITE
  • Prompt: $$WRAP(14,34,PSBMED)
  • Line Location: WRAPPUP+2
Function Call: WRITE
  • Prompt: $$WRAP(50,27,PSBADM),?78,$$WRAP(78,6,PSBMR)
  • Line Location: WRAPPUP+4
Function Call: WRITE
  • Prompt: ?85
  • Line Location: WRAPPUP+5
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+7
Function Call: WRITE
  • Prompt: $S(PSBVNI]"":PSBVNI,1:"***"),!,?100,"@"_$P(PSBOSTX," ",2),?110,"@"_$P(PSBOSPX," ",2)
  • Line Location: WRAPPUP+8
Function Call: WRITE
  • Prompt: IOINHI
  • Line Location: WRAPPUP+9
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBADA(Y),U,3))
  • Line Location: WRAPPUP+13
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBSOLA(Y),U,3))
  • Line Location: WRAPPUP+14
Function Call: WRITE
  • Prompt: IOINORM
  • Line Location: WRAPPUP+15
Function Call: WRITE
  • Prompt: !?14,"Special Instructions:",?36,"<None Entered.>"
  • Line Location: WRAPPUP+39
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: WRAPPUP+45
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] EN+40, EN+42, EN+43, WRAPREM+5, WRAPREM+7, WRAPREM+8
^TMP("PSB" EN+27!*, EN+29, EN+79!, WRAPPUP+22, WRAPPUP+23, WRAPPUP+28!, WRAPPUP+29!, CHKREM+6, CHKREM+7, CHKREM+8
, CHKREM+19!
^TMP("PSBO" EN+3
^TMP("PSJBCMA5" EN+70, EN+73, EN+74, EN+75, WRAPPUP+39, WRAPPUP+41, WRAPPUP+44

Label References

Name Line Occurrences
$$BLANKS EN+78
$$FTR EN+44, EN+78, BLANKS+3
$$HDR EN+44, EN+47, BLANKS+3
$$WRAP EN+50, EN+52, EN+53, EN+62, EN+63, EN+64, EN+67, WRAPPUP+2, WRAPPUP+4, WRAPPUP+12
, WRAPPUP+13, WRAPPUP+14, WRAPPUP+17, WRAPREM+15, WRAPREM+17, WRAPREM+25, WRAPREM+26, WRAPREM+27, WRAPREM+30
WRAPREM CHKREM+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EN+3, EN+5, EN+26, EN+34, EN+40, EN+42, EN+70, EN+71, EN+73, EN+74
, EN+75, WRAPPUP+39, WRAPPUP+41, WRAPPUP+44, HDR+2, WRAPREM+2, WRAPREM+5, WRAPREM+7
>> I EN+11*
IEN WRAPPUP+21~, WRAPPUP+22*, WRAPPUP+23, WRAPPUP+28, CHKREM+4~, CHKREM+7*, CHKREM+8
INDX WRAPPUP+21~, WRAPPUP+31*, WRAPPUP+33*, WRAPPUP+35, CHKREM+4~, CHKREM+12*, CHKREM+14*, CHKREM+16
>> IOINHI EN+59, WRAPPUP+9, WRAPREM+22
>> IOINORM EN+65, WRAPPUP+15, WRAPREM+28
IOM EN+44, EN+76, WRAPPUP+45, FTR+6, FTR+8, HDR+5, HDR+10, BLANKS+3, BLANKS+5, BLANKS+7
, BLANKS+11, WRAPREM+32
IOSL EN+44, FTR+5, BLANKS+3, BLANKS+4
>> ORD CHKREM+5*, CHKREM+6*, CHKREM+7, WRAPREM+2
>> PSB WRAP+5*, WRAP+6*, WRAP+7, WRAP+8
>> PSBADA EN+63, WRAPPUP+13, WRAPREM+26
>> PSBADA( EN+63, WRAPPUP+13, WRAPREM+26
PSBADM EN+51*, EN+52, EN+66*, EN+67, WRAPPUP+3*, WRAPPUP+4, WRAPPUP+16*, WRAPPUP+17, WRAPREM+1~, WRAPREM+16*
, WRAPREM+17, WRAPREM+29*, WRAPREM+30
>> PSBADMIN EN+6, EN+28*, EN+35*, EN+36*, EN+37*, EN+66, WRAPPUP+16
>> PSBADST EN+7, EN+12, EN+14, EN+16, EN+37
>> PSBAT EN+32*, EN+33, EN+34
>> PSBCHEMT EN+18, EN+23
>> PSBDDA EN+60, WRAPPUP+10, WRAPREM+23
>> PSBDDA( EN+60, EN+61, EN+62, WRAPPUP+10, WRAPPUP+11, WRAPPUP+12, WRAPREM+23, WRAPREM+24, WRAPREM+25
>> PSBDOSE EN+51, WRAPPUP+3, WRAPREM+16
>> PSBEVDT EN+26, WRAPPUP+25, CHKREM+10
>> PSBEVDT2 WRAPPUP+25, CHKREM+10
>> PSBFLAG EN+7*, EN+8*, EN+18*, EN+19*, EN+20*, EN+21*, EN+33
>> PSBFOHDR EN+2*, EN+47*, EN+78, HDR+1
>> PSBFREQ EN+13*, EN+14, EN+15, EN+26, EN+35, EN+36
>> PSBHDR HDR+2
>> PSBHDR("NAME" FTR+8
>> PSBHDR("ROOM" FTR+7
>> PSBHDR("SSN" FTR+8
>> PSBHDR("WARD" FTR+7
PSBIEN EN+41*, EN+42*, EN+43, WRAPREM+1~, WRAPREM+6*, WRAPREM+7*, WRAPREM+8
>> PSBISYR EN+19, EN+20, EN+22
>> PSBIVT EN+8, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23, EN+25
PSBLGDT EN+39*, EN+40, EN+42, EN+43*, EN+54, WRAPPUP+5, WRAPPUP+6, WRAPREM+1~, WRAPREM+4*, WRAPREM+5
, WRAPREM+7, WRAPREM+8*, WRAPREM+18, WRAPREM+19
>> PSBMED WRAPPUP+2
>> PSBMR EN+53, WRAPPUP+4, WRAPREM+17
>> PSBNOW EN+61, WRAPPUP+11, WRAPREM+24
>> PSBODATE EN+32
>> PSBODD EN+9*, EN+15*, EN+16
>> PSBOIT EN+40, EN+42, WRAPREM+5, WRAPREM+7
>> PSBOITX EN+50, WRAPREM+15
>> PSBONX EN+8, EN+26, EN+34
>> PSBORD EN+3*, EN+5, EN+70, EN+71, EN+73, EN+74, EN+75, WRAPPUP+22, WRAPPUP+29, WRAPPUP+39
, WRAPPUP+41, WRAPPUP+44
>> PSBOSP EN+56, WRAPPUP+7, WRAPREM+20
>> PSBOSPX EN+58, WRAPPUP+8, WRAPREM+21
>> PSBOST EN+26, EN+55, WRAPPUP+7, WRAPREM+20
>> PSBOSTOP EN+33
>> PSBOSTRT EN+33
>> PSBOSTX EN+58, WRAPPUP+8, WRAPREM+21
>> PSBOTYP EN+24
>> PSBRPT( BLANKS+1
>> PSBSCH EN+10, EN+11, EN+51, WRAPPUP+3, WRAPREM+16
>> PSBSCHT EN+6, EN+12, EN+37, EN+48, WRAPREM+14
>> PSBSIFLG EN+70, EN+72, WRAPPUP+39, WRAPPUP+40
>> PSBSM EN+45*, EN+46*, EN+48, WRAPREM+10, WRAPREM+11*, WRAPREM+13*, WRAPREM+14
>> PSBSMX EN+45, WRAPREM+11
>> PSBSOLA EN+64, WRAPPUP+14, WRAPREM+27
>> PSBSOLA( EN+64, WRAPPUP+14, WRAPREM+27
>> PSBSRCHL HDR+2
>> PSBTYPE EN+3*, EN+34, EN+48, WRAPREM+14
>> PSBVNI EN+57, WRAPPUP+8, WRAPREM+21
>> PSBVPHI EN+57, WRAPPUP+7, WRAPREM+20
>> PSBWFLAG EN+48*, EN+77, WRAPREM+14*
>> PSBX EN+7*, EN+8, EN+17, EN+18*, EN+19*, EN+20*, EN+21*, EN+22*, EN+23*, EN+24*
, EN+25*, EN+26*, EN+27, EN+29*, EN+30, EN+31, EN+32, EN+35
>> PSBXX EN+29*
>> PSBY EN+30*, EN+31, EN+32, EN+35
>> PSBYES EN+9*, EN+10*, EN+11*, EN+12, EN+14
>> PSBZ EN+34
QQ EN+1~, EN+73*, EN+74, EN+75, WRAPPUP+41*, WRAPPUP+42, WRAPPUP+43, WRAPPUP+44
RMA WRAPPUP+21~, CHKREM+4~, CHKREM+18!
RMA( WRAPPUP+26*, WRAPPUP+32, CHKREM+11*, CHKREM+13
RMDTTM WRAPPUP+21~, WRAPPUP+31*, WRAPPUP+35*, WRAPPUP+36, CHKREM+4~, CHKREM+12*, CHKREM+16*, CHKREM+17, WRAPREM+31
RMTIM WRAPPUP+21~, WRAPPUP+23*, WRAPPUP+25, WRAPPUP+26, WRAPPUP+31*, WRAPPUP+34*, WRAPPUP+35, CHKREM+4~, CHKREM+8*, CHKREM+10
, CHKREM+11, CHKREM+12*, CHKREM+15*, CHKREM+16
TIM WRAPPUP+21~, WRAPPUP+32*, WRAPPUP+34, CHKREM+4~, CHKREM+13*, CHKREM+15
U EN+43, EN+61, EN+62, EN+63, EN+64, EN+71, WRAPPUP+11, WRAPPUP+12, WRAPPUP+13, WRAPPUP+14
, WRAPPUP+23, BLANKS+1, CHKREM+8, WRAPREM+8, WRAPREM+24, WRAPREM+25, WRAPREM+26, WRAPREM+27
X EN+39*, EN+40*, EN+42, EN+43, EN+49*, WRAP~, WRAP+2, WRAP+3, FTR+7*, FTR+8
, BLANKS+6*, WRAPREM+1~, WRAPREM+4*, WRAPREM+5*, WRAPREM+7, WRAPREM+8
Y EN+49*, EN+60*, EN+61, EN+62, EN+63*, EN+64*, WRAPPUP+10*, WRAPPUP+11, WRAPPUP+12, WRAPPUP+13*
, WRAPPUP+14*, WRAP~, WRAP+4, WRAP+5, WRAP+6, WRAPREM+23*, WRAPREM+24, WRAPREM+25, WRAPREM+26*, WRAPREM+27*
Z WRAP~, WRAP+1, WRAP+4*, WRAP+5, WRAP+7, WRAP+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All