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 ;Mar 2004

Source Information

Source file <PSBODL1.m>

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

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
FTR() ; [Extrinsic] Page footer
BLANKS() ; [Extrinsic] Print blanks at end of printout for changes
WRAPPUP ;Do wrapping per PSBODL (Due List Report)

External References

Name Field # of Occurrence
VAL^PSBMLVAL EN+33
PT^PSBOHDR HDR+2
$$GETADMIN^PSBVDLU1 EN+25
CLEAN^PSBVT EN+3
PSJ1^PSBVT EN+4
$$PSBDCHK1^PSBVT1 EN+9
$$FMTE^XLFDT EN+54, EN+55, WRAPPUP+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?(IOM-36\2),"(Medications Continued on Next Page)",$$FTR(),$$HDR()
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: $$HDR()
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: $E(PSBLGDT,4,5),"/",$E(PSBLGDT,6,7),"/",$E(PSBLGDT,2,3)
  • Line Location: EN+53
Function Call: WRITE
  • Prompt: "@",$E($P(PSBLGDT,".",2)_"0000",1,4)
  • Line Location: EN+53
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBADA(Y),U,3)_" ("_$P(PSBADA(Y),U,4)_")")
  • Line Location: EN+62
Function Call: WRITE
  • Prompt: !?14,"*",$$WRAP(15,33,$P(PSBSOLA(Y),U,3)_" ("_$P(PSBSOLA(Y),U,4)_")")
  • Line Location: EN+63
Function Call: WRITE
  • Prompt: !!,?10,"** NO SPECIFIED MEDICATIONS TO PRINT **"
  • Line Location: EN+70
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: $$WRAP(14,34,"Spec Inst: "_X),!,$TR($J("",IOM)," ","-")
  • Line Location: WRAPPUP+20
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] EN+39, EN+41, EN+42
^TMP("PSB" EN+26!*, EN+28, EN+72!
^TMP("PSBO" EN+2

Label References

Name Line Occurrences
$$BLANKS EN+71
$$FTR EN+43, EN+71, BLANKS+3
$$HDR EN+43, EN+46, BLANKS+3
$$WRAP EN+49, EN+51, EN+52, EN+61, EN+62, EN+63, EN+66, EN+69, WRAPPUP+2, WRAPPUP+4
, WRAPPUP+12, WRAPPUP+13, WRAPPUP+14, WRAPPUP+17, WRAPPUP+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EN+2, EN+4, EN+25, EN+33, EN+39, EN+41, HDR+2
>> I EN+10*
>> IOINHI EN+58, WRAPPUP+9
>> IOINORM EN+64, WRAPPUP+15
IOM EN+43, EN+69, WRAPPUP+20, FTR+6, FTR+8, HDR+5, HDR+10, BLANKS+3, BLANKS+5, BLANKS+7
, BLANKS+11
IOSL EN+43, FTR+5, BLANKS+3, BLANKS+4
>> PSB WRAP+5*, WRAP+6*, WRAP+7, WRAP+8
>> PSBADA EN+62, WRAPPUP+13
>> PSBADA( EN+62, WRAPPUP+13
>> PSBADM EN+50*, EN+51, EN+65*, EN+66, WRAPPUP+3*, WRAPPUP+4, WRAPPUP+16*, WRAPPUP+17
>> PSBADMIN EN+5, EN+27*, EN+34*, EN+35*, EN+36*, EN+65, WRAPPUP+16
>> PSBADST EN+6, EN+11, EN+13, EN+15, EN+36
>> PSBAT EN+31*, EN+32, EN+33
>> PSBCHEMT EN+17, EN+22
>> PSBDDA EN+59, WRAPPUP+10
>> PSBDDA( EN+59, EN+60, EN+61, WRAPPUP+10, WRAPPUP+11, WRAPPUP+12
>> PSBDOSE EN+50, WRAPPUP+3
>> PSBEVDT EN+25
>> PSBFLAG EN+6*, EN+7*, EN+17*, EN+18*, EN+19*, EN+20*, EN+32
>> PSBFOHDR EN+1*, EN+46*, EN+71, HDR+1
>> PSBFREQ EN+12*, EN+13, EN+14, EN+25, EN+34, EN+35
>> PSBHDR HDR+2
>> PSBHDR("NAME" FTR+8
>> PSBHDR("ROOM" FTR+7
>> PSBHDR("SSN" FTR+8
>> PSBHDR("WARD" FTR+7
>> PSBIEN EN+40*, EN+41*, EN+42
>> PSBISYR EN+18, EN+19, EN+21
>> PSBIVT EN+7, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+24
>> PSBLGDT EN+38*, EN+39, EN+41, EN+42*, EN+53, WRAPPUP+5, WRAPPUP+6
>> PSBMED WRAPPUP+2
>> PSBMR EN+52, WRAPPUP+4
>> PSBNOW EN+60, WRAPPUP+11
>> PSBODATE EN+31
>> PSBODD EN+8*, EN+14*, EN+15
>> PSBOIT EN+39, EN+41
>> PSBOITX EN+49
>> PSBONX EN+7, EN+25, EN+33
>> PSBORD EN+2*, EN+4
>> PSBOSP EN+55, WRAPPUP+7
>> PSBOSPX EN+57, WRAPPUP+8
>> PSBOST EN+25, EN+54, WRAPPUP+7
>> PSBOSTOP EN+32
>> PSBOSTRT EN+32
>> PSBOSTX EN+57, WRAPPUP+8
>> PSBOTXT EN+67, WRAPPUP+18
>> PSBOTYP EN+23
>> PSBRPT( BLANKS+1
>> PSBSCH EN+9, EN+10, EN+50, WRAPPUP+3
>> PSBSCHT EN+5, EN+11, EN+36, EN+47
>> PSBSM EN+44*, EN+45*, EN+47
>> PSBSMX EN+44
>> PSBSOLA EN+63, WRAPPUP+14
>> PSBSOLA( EN+63, WRAPPUP+14
>> PSBTYPE EN+2*, EN+33, EN+47
>> PSBVNI EN+56, WRAPPUP+8
>> PSBVPHI EN+56, WRAPPUP+7
>> PSBWFLAG EN+47*, EN+70
>> PSBX EN+6*, EN+7, EN+16, EN+17*, EN+18*, EN+19*, EN+20*, EN+21*, EN+22*, EN+23*
, EN+24*, EN+25*, EN+26, EN+28*, EN+29, EN+30, EN+31, EN+34
>> PSBXX EN+28*
>> PSBY EN+29*, EN+30, EN+31, EN+34
>> PSBYES EN+8*, EN+9*, EN+10*, EN+11, EN+13
>> PSBZ EN+33
U EN+42, EN+60, EN+61, EN+62, EN+63, WRAPPUP+11, WRAPPUP+12, WRAPPUP+13, WRAPPUP+14, BLANKS+1
X EN+38*, EN+39*, EN+41, EN+42, EN+48*, EN+67*, EN+68*, EN+69, WRAPPUP+18*, WRAPPUP+19*
, WRAPPUP+20, WRAP~, WRAP+2, WRAP+3, FTR+7*, FTR+8, BLANKS+6*
Y EN+48*, EN+59*, EN+60, EN+61, EN+62*, EN+63*, WRAPPUP+10*, WRAPPUP+11, WRAPPUP+12, WRAPPUP+13*
, WRAPPUP+14*, WRAP~, WRAP+4, WRAP+5, WRAP+6
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