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

Package: Barcode Medication Administration

Routine: PSBPRND


Information

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

Source Information

Source file <PSBPRND.m>

Entry Points

Name Comments DBIA/ICR reference
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
PROCESS(PSBPRNDT,PSBSTRTE,PSBDUZ,PSBPRNM)
FILEIT(PSBIEN,PSBPRNM)
HEADER ;Header
PSBEMAIL(PSB1,PSB2,PSB3,PSB4,PSB5)

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
Info |  Source |  Entry Points |  Interaction Calls