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 ;4/26/21 12:11

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

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSBODL  

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

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+61, EN+62, WRAPPUP+13, 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+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

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+85!, WRAPPUP+28, WRAPPUP+29, WRAPPUP+34!, WRAPPUP+35!, CHKREM+6, CHKREM+7, CHKREM+8
, CHKREM+19!
^TMP("PSBO" EN+3
^TMP("PSJBCMA5" EN+76, EN+79, EN+80, EN+81, WRAPPUP+45, WRAPPUP+47, WRAPPUP+50

Label References

Name Line Occurrences
$$BLANKS EN+84
$$FTR EN+44, EN+84, BLANKS+3
$$HDR EN+44, EN+47, BLANKS+3
$$WRAP EN+50, EN+56, EN+58, EN+59, EN+68, EN+69, EN+70, EN+73, WRAPPUP+3, WRAPPUP+8
, WRAPPUP+10, WRAPPUP+18, WRAPPUP+19, WRAPPUP+20, WRAPPUP+23, 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+76, EN+77, EN+79, EN+80
, EN+81, WRAPPUP+45, WRAPPUP+47, WRAPPUP+50, HDR+2, WRAPREM+2, WRAPREM+5, WRAPREM+7
>> I EN+11*
IEN WRAPPUP+27~, WRAPPUP+28*, WRAPPUP+29, WRAPPUP+34, CHKREM+4~, CHKREM+7*, CHKREM+8
INDX WRAPPUP+27~, WRAPPUP+37*, WRAPPUP+39*, WRAPPUP+41, CHKREM+4~, CHKREM+12*, CHKREM+14*, CHKREM+16
>> IOINHI EN+65, WRAPPUP+15, WRAPREM+22
>> IOINORM EN+71, WRAPPUP+21, WRAPREM+28
IOM EN+44, EN+82, WRAPPUP+51, 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+69, WRAPPUP+19, WRAPREM+26
>> PSBADA( EN+69, WRAPPUP+19, WRAPREM+26
PSBADM EN+57*, EN+58, EN+72*, EN+73, WRAPPUP+9*, WRAPPUP+10, WRAPPUP+22*, WRAPPUP+23, WRAPREM+1~, WRAPREM+16*
, WRAPREM+17, WRAPREM+29*, WRAPREM+30
>> PSBADMIN EN+6, EN+28*, EN+35*, EN+36*, EN+37*, EN+72, WRAPPUP+22
>> 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+66, WRAPPUP+16, WRAPREM+23
>> PSBDDA( EN+66, EN+67, EN+68, WRAPPUP+16, WRAPPUP+17, WRAPPUP+18, WRAPREM+23, WRAPREM+24, WRAPREM+25
>> PSBDOSE EN+57, WRAPPUP+9, WRAPREM+16
>> PSBEVDT EN+26, WRAPPUP+31, CHKREM+10
>> PSBEVDT2 WRAPPUP+31, CHKREM+10
>> PSBFLAG EN+7*, EN+8*, EN+18*, EN+19*, EN+20*, EN+21*, EN+33
>> PSBFOHDR EN+2*, EN+47*, EN+84, HDR+1
>> PSBFREQ EN+13*, EN+14, EN+15, EN+26, EN+35, EN+36
PSBHAZ EN+52~, EN+53*, EN+54*, EN+55*, EN+56, WRAPPUP+2~, WRAPPUP+5*, WRAPPUP+6*, WRAPPUP+7*, WRAPPUP+8
>> PSBHAZDS EN+55, WRAPPUP+7
>> PSBHAZHN EN+54, WRAPPUP+6
>> 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+60, WRAPPUP+11, WRAPPUP+12, WRAPREM+1~, WRAPREM+4*, WRAPREM+5
, WRAPREM+7, WRAPREM+8*, WRAPREM+18, WRAPREM+19
>> PSBMED WRAPPUP+3
>> PSBMR EN+59, WRAPPUP+10, WRAPREM+17
>> PSBNOW EN+67, WRAPPUP+17, 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+76, EN+77, EN+79, EN+80, EN+81, WRAPPUP+28, WRAPPUP+35, WRAPPUP+45
, WRAPPUP+47, WRAPPUP+50
>> PSBOSP EN+62, WRAPPUP+13, WRAPREM+20
>> PSBOSPX EN+64, WRAPPUP+14, WRAPREM+21
>> PSBOST EN+26, EN+61, WRAPPUP+13, WRAPREM+20
>> PSBOSTOP EN+33
>> PSBOSTRT EN+33
>> PSBOSTX EN+64, WRAPPUP+14, WRAPREM+21
>> PSBOTYP EN+24
>> PSBRPT( BLANKS+1
>> PSBSCH EN+10, EN+11, EN+57, WRAPPUP+9, WRAPREM+16
>> PSBSCHT EN+6, EN+12, EN+37, EN+48, WRAPREM+14
>> PSBSIFLG EN+76, EN+78, WRAPPUP+45, WRAPPUP+46
>> PSBSM EN+45*, EN+46*, EN+48, WRAPREM+10, WRAPREM+11*, WRAPREM+13*, WRAPREM+14
>> PSBSMX EN+45, WRAPREM+11
>> PSBSOLA EN+70, WRAPPUP+20, WRAPREM+27
>> PSBSOLA( EN+70, WRAPPUP+20, WRAPREM+27
>> PSBSRCHL HDR+2
>> PSBTYPE EN+3*, EN+34, EN+48, WRAPREM+14
>> PSBVNI EN+63, WRAPPUP+14, WRAPREM+21
>> PSBVPHI EN+63, WRAPPUP+13, WRAPREM+20
>> PSBWFLAG EN+48*, EN+83, 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+79*, EN+80, EN+81, WRAPPUP+47*, WRAPPUP+48, WRAPPUP+49, WRAPPUP+50
RMA WRAPPUP+27~, CHKREM+4~, CHKREM+18!
RMA( WRAPPUP+32*, WRAPPUP+38, CHKREM+11*, CHKREM+13
RMDTTM WRAPPUP+27~, WRAPPUP+37*, WRAPPUP+41*, WRAPPUP+42, CHKREM+4~, CHKREM+12*, CHKREM+16*, CHKREM+17, WRAPREM+31
RMTIM WRAPPUP+27~, WRAPPUP+29*, WRAPPUP+31, WRAPPUP+32, WRAPPUP+37*, WRAPPUP+40*, WRAPPUP+41, CHKREM+4~, CHKREM+8*, CHKREM+10
, CHKREM+11, CHKREM+12*, CHKREM+15*, CHKREM+16
TIM WRAPPUP+27~, WRAPPUP+38*, WRAPPUP+40, CHKREM+4~, CHKREM+13*, CHKREM+15
U EN+43, EN+67, EN+68, EN+69, EN+70, EN+77, WRAPPUP+17, WRAPPUP+18, WRAPPUP+19, WRAPPUP+20
, WRAPPUP+29, 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+66*, EN+67, EN+68, EN+69*, EN+70*, WRAPPUP+16*, WRAPPUP+17, WRAPPUP+18, WRAPPUP+19*
, WRAPPUP+20*, 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