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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSBMLEN1

Package: Barcode Medication Administration

Routine: PSBMLEN1


Information

PSBMLEN1 ;BIRMINGHAM/EFC-BCMA MEDICATION LOG FUNCTIONS ;03/06/16 3:06pm

Source Information

Source file <PSBMLEN1.m>

Entry Points

Name Comments DBIA/ICR reference
NEW(Y) ; Create the new entry
FORUM
FILE ; Call the med log RPC to file it and DDS to edit it
SITECHK ;Inj or Derm site field validate
KILL ;Kill and write msg
FDATE ;Check Admin Time for future date/time.
SCANFAIL ;File an MSF record

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: !,"Order: ",PSBONX
  • Line Location: NEW+13
Function Call: WRITE
  • Prompt: !,"Medication: ",PSBOITX
  • Line Location: NEW+14
Function Call: WRITE
  • Prompt: !,"Dosage: ",PSBDOSE
  • Line Location: NEW+15
Function Call: WRITE
  • Prompt: !,"Schedule: ",PSBSCH
  • Line Location: NEW+16
Function Call: WRITE
  • Prompt: !,"Admin Times: ",$S(PSBODSCH:"(Odd Sched.)",1:PSBADST)
  • Line Location: NEW+17
Function Call: WRITE
  • Prompt: !!,"Brief Administration History: ",!
  • Line Location: NEW+29
Function Call: WRITE
  • Prompt: !,?5,PSB(I)
  • Line Location: NEW+29
Function Call: WRITE
  • Prompt: !,"This operation is NOT AVAILABLE in PSB READ ONLY mode.",!
  • Line Location: NEW+30
Function Call: WRITE
  • Prompt: !,"This operation is NOT AVAILABLE in PSB READ ONLY mode.",!
  • Line Location: NEW+31
Function Call: WRITE
  • Prompt: !!,"Sorry, Reason is required, No Entry Made!"
  • Line Location: NEW+37
Function Call: WRITE
  • Prompt: !,$J($S(X=1:X,1:X-1),2),". ",$S(X=1:$P(PSB(X),"^",2,3),1:PSB(X))
  • Line Location: FILE+6
Function Call: WRITE
  • Prompt: !!,"Incomplete Med Log Entry, Deleting...#",DA,!,$C(7)
  • Line Location: KILL+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: FDATE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSB(53.79 - [#53.79] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call