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

Package: Barcode Medication Administration

Routine: PSBMLTS


Information

PSBMLTS ;BIRMINGHAM/EFC-BCMA MEDICATION LOG FUNCTIONS ;Mar 2004

Source Information

Source file <PSBMLTS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1 ;
NEW(Y) ; Create the new entry
FILE ; Call the med log RPC to validate and order
HDR() ;
SCANNER ; This checks the scanning mechanism
SMED(RESULTS,PSBDATA) ; Lookup Medication

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Manual Medication Log Trouble Shooter",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Searching for Orders..."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!?5,"No Med Orders Found!",!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: !,"Order: ",$P(PSBORD(0),U,3)
  • Line Location: NEW+5
Function Call: WRITE
  • Prompt: !,"Medication: ",$P(PSBORD(2),U,2)
  • Line Location: NEW+6
Function Call: WRITE
  • Prompt: !,"Dosage: ",$P(PSBORD(2),U,3)
  • Line Location: NEW+7
Function Call: WRITE
  • Prompt: !,"Schedule: ",$P(PSBORD(4),U,2)
  • Line Location: NEW+8
Function Call: WRITE
  • Prompt: !,"Admin Times: ",$P(PSBORD(4),U,9)
  • Line Location: NEW+9
Function Call: WRITE
  • Prompt: !,"Start D/T: "
  • Line Location: NEW+10
Function Call: WRITE
  • Prompt: !,"Stop D/T: "
  • Line Location: NEW+11
Function Call: WRITE
  • Prompt: !,"-1^Medication is already logged!"
  • Line Location: FILE+1
Function Call: WRITE
  • Prompt: !,RESULTS(X)
  • Line Location: FILE+2
Function Call: WRITE
  • Prompt: @IOF,"Medication Log Trouble Shooter",!," # "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SCANNER+2
Function Call: WRITE
  • Prompt: !!,"Performing 'Exact Matches' scan of Drug File..."
  • Line Location: SCANNER+5
Function Call: WRITE
  • Prompt: !!,"Results of Scan:"
  • Line Location: SCANNER+7
Function Call: WRITE
  • Prompt: $S(+PSBSCAN(0)>0:" Good",1:" Invalid")," scan value."
  • Line Location: SCANNER+8
Function Call: WRITE
  • Prompt: !!?5,PSBSCAN(X)
  • Line Location: SCANNER+9
Function Call: WRITE
  • Prompt: !!,"Performing 'Non-Exact Match' scan on the Drug File...",!
  • Line Location: SCANNER+11
Function Call: WRITE
  • Prompt: !!,"Nothing found in drug file matching '",PSBVAL,"'."
  • Line Location: SCANNER+16
Function Call: WRITE
  • Prompt: !,"There are ",+^TMP("DILIST",$J,0)," matches to '",PSBVAL,"'."
  • Line Location: SCANNER+17
Function Call: WRITE
  • Prompt: "."
  • Line Location: SCANNER+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^PSDRUG - [#50] FIELD^DID,  FIND1^DIC,  FIND^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call