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

Package: Barcode Medication Administration

Routine: PSBPRND


Information

PSBPRND ;BIRMINGHAM/EFC-BCMA PRN DOCUMENTING ;May 2002

Source Information

Source file <PSBPRND.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 (,DD)^%DT  D^DIQ  
Barcode Medication Administration 1 (FILEIT,VAL)^PSBML  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSB PRN DOCUMENTING  

Entry Points

Name Comments DBIA/ICR reference
HEADER ;Header
PROCESS(PSBPRNDT,PSBSTRTE,PSBDUZ,PSBPRNM)
ENV(PSBPRNDT,PSBSTRT,PSBDUZ,PRNMSG) ;
PSBPRNS ;Document all administrations of a PRN order that have NOT had
; the PRN Effectiveness documented for dates user provided
PSBEMAIL(PSB1,PSB2,PSB3,PSB4,PSB5)
FILEIT(PSBIEN,PSBPRNM)

External References

Name Field # of Occurrence
^%DT PSBPRNS+10, PSBPRNS+15
DD^%DT PSBPRNS+23, PSBPRNS+24, PSBEMAIL+7, PSBEMAIL+8
^%ZTLOAD ENV+8
D^DIQ PSBPRNS+11, PSBPRNS+16
FILEIT^PSBML FILEIT+5
VAL^PSBML FILEIT+4
^XMD PSBEMAIL+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Your DUZ is not defined. It must be defined."
  • Line Location: ENV+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENV+3
Function Call: WRITE
  • Prompt: !,"Your DUZ is not defined. It must be defined."
  • Line Location: PSBPRNS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PSBPRNS+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PSBPRNS+15
Function Call: WRITE
  • Prompt: !,"Start date cannot be greater than end date"
  • Line Location: PSBPRNS+17
Function Call: WRITE
  • Prompt: !!,"PRN effectiveness entered by: ",PSBNAME,!
  • Line Location: PSBPRNS+20
Function Call: WRITE
  • Prompt: !!!,?10,"**PRN DOCUMENTATION WILL BE FILED FOR THE FOLLOWING**"
  • Line Location: PSBPRNS+25
Function Call: WRITE
  • Prompt: !!,?5,"PRN START DATE...........: ",PSBRDTA
  • Line Location: PSBPRNS+26
Function Call: WRITE
  • Prompt: !,?5,"PRN END DATE.............: ",PSBRDT
  • Line Location: PSBPRNS+27
Function Call: WRITE
  • Prompt: !,?5,"PRN ENTERED BY...........: ",PSBNAME
  • Line Location: PSBPRNS+28
Function Call: WRITE
  • Prompt: !,?5,"PRN DOCUMENTATION STATEMENT: "
  • Line Location: PSBPRNS+29
Function Call: WRITE
  • Prompt: #
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?23,"PRN EFFECTIVENESS DOCUMENTATION ROUTINE"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: HEADER+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] PROCESS+5, PROCESS+6, PROCESS+8, PROCESS+9, PROCESS+10
^VA(200 - [#200] PSBPRNS+19, PSBEMAIL+9

Label References

Name Line Occurrences
ENV PSBPRNS+40
FILEIT PROCESS+11
HEADER PSBPRNS+6, PSBPRNS+21, PSBPRNS+39
PSBEMAIL PROCESS+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT PSBPRNS+8*, PSBPRNS+13*
>> %DT("A" PSBPRNS+8*, PSBPRNS+13*
>> %DT("B" PSBPRNS+9*, PSBPRNS+14*
>> DFN PROCESS+5*, PROCESS+6, PROCESS+8
DUZ ENV+1, PSBPRNS+4, PSBPRNS+5, PSBEMAIL+10, PSBEMAIL+27
IOM HEADER+2, HEADER+4
PRNMSG ENV~
PSB1 PSBEMAIL~, PSBEMAIL+16, PSBEMAIL+29!
PSB2 PSBEMAIL~, PSBEMAIL+19, PSBEMAIL+29!
PSB3 PSBEMAIL~, PSBEMAIL+7, PSBEMAIL+29!
PSB3X PSBEMAIL+7*, PSBEMAIL+18, PSBEMAIL+29!
PSB4 PSBEMAIL~, PSBEMAIL+8, PSBEMAIL+29!
PSB4X PSBEMAIL+8*, PSBEMAIL+17, PSBEMAIL+29!
PSB5 PSBEMAIL~, PSBEMAIL+9*, PSBEMAIL+15, PSBEMAIL+29!
>> PSBANS PSBPRNS+34*, PSBPRNS+36
PSBCNT PROCESS+4*, PROCESS+13*, PROCESS+15, PROCESS+16!
>> PSBDT PSBPRNS+10*, PSBPRNS+11
PSBDTA PSBPRNS+15*, PSBPRNS+16, PSBPRNS+23, PROCESS+16!
PSBDUZ ENV~, PSBPRNS+5*, PSBPRNS+19, PSBPRNS+40, PROCESS~, PROCESS+15, PROCESS+16!
>> PSBFLAG PSBPRNS+35*, PSBPRNS+36*, PSBPRNS+37
PSBIEN PSBPRNS+3~, PROCESS+8*, PROCESS+9, PROCESS+10, PROCESS+11, FILEIT~, FILEIT+3*, FILEIT+4
PSBMG PSBEMAIL+10*, PSBEMAIL+11, PSBEMAIL+30!
PSBMSG PSBEMAIL+30!
PSBMSG(1 PSBEMAIL+12*
PSBMSG(10 PSBEMAIL+21*
PSBMSG(11 PSBEMAIL+22*
PSBMSG(12 PSBEMAIL+23*
PSBMSG(13 PSBEMAIL+24*
PSBMSG(14 PSBEMAIL+25*
PSBMSG(15 PSBEMAIL+26*
PSBMSG(2 PSBEMAIL+13*
PSBMSG(3 PSBEMAIL+14*
PSBMSG(4 PSBEMAIL+15*
PSBMSG(5 PSBEMAIL+16*
PSBMSG(6 PSBEMAIL+17*
PSBMSG(7 PSBEMAIL+18*
PSBMSG(8 PSBEMAIL+19*
PSBMSG(9 PSBEMAIL+20*
>> PSBNAME PSBPRNS+19*, PSBPRNS+20, PSBPRNS+28
PSBPRMG PROCESS+16!
PSBPRNDT ENV~, PSBPRNS+11*, PSBPRNS+17, PSBPRNS+24, PSBPRNS+40, PROCESS~, PROCESS+3, PROCESS+15, PROCESS+16!
PSBPRNM PSBPRNS+31*, PSBPRNS+32, PSBPRNS+33, PSBPRNS+40, PROCESS~, PROCESS+11, PROCESS+15, PROCESS+16!, FILEIT~, FILEIT+2
PSBPRTA PROCESS+3*, PROCESS+7, PROCESS+17!
>> PSBRDT PSBPRNS+23*, PSBPRNS+27
>> PSBRDTA PSBPRNS+24*, PSBPRNS+26
>> PSBREC(0 FILEIT+2*, FILEIT+4
PSBSRTD PROCESS+2*, PROCESS+7, PROCESS+17!
PSBSTRT ENV~, PROCESS+6*, PROCESS+7, PROCESS+8
PSBSTRTE PSBPRNS+16*, PSBPRNS+17, PSBPRNS+40, PROCESS~, PROCESS+2, PROCESS+15, PROCESS+16!
U PROCESS+9, PROCESS+10
XMSUB PSBEMAIL+27*, PSBEMAIL+30!
XMTEXT PSBEMAIL+27*, PSBEMAIL+30!
XMY PSBEMAIL+30!
XMY( PSBEMAIL+27*
>> Y PSBPRNS+10, PSBPRNS+15, PSBPRNS+23*, PSBPRNS+24*, PSBEMAIL+7*, PSBEMAIL+8*
>> ZTDESC ENV+2*
>> ZTIO ENV+2*
>> ZTRTN ENV+2*
ZTSAVE ENV+2!
ZTSAVE("PSBDUZ" ENV+6*
ZTSAVE("PSBPRNDT" ENV+4*
ZTSAVE("PSBPRNM" ENV+7*
ZTSAVE("PSBSTRTE" ENV+5*
ZTSK ENV+2!, ENV+9, ENV+10, ENV+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All