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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 8 ^%DT  NOW^%DTC  ^DDS  HLP^DDSUTL  YN^DICN  ^DIK  D^DIQ  ^DIR  
Barcode Medication Administration 6 RPC^PSBML  VAL^PSBMLVAL  $$REMSTR^PSBUTL  ($$GETADMIN,$$GETFREQ)^PSBVDLU1  SCANFAIL^PSBVDLU3  (CLEAN,PSJ1)^PSBVT  
Inpatient Medications 1 ENE^PSJBCMA4  
Kernel 1 $$FMADD^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSBMLEN  

Entry Points

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

External References

Name Field # of Occurrence
^%DT NEW+66
NOW^%DTC NEW+4, NEW+66, FDATE+2
^DDS FILE+13
HLP^DDSUTL FDATE+3
YN^DICN NEW+9, NEW+23, NEW+32, NEW+78
^DIK FILE+16, KILL+3
D^DIQ NEW+66, NEW+77
^DIR NEW+36, NEW+73, NEW+75, FILE+8, KILL+4
RPC^PSBML FILE+2
VAL^PSBMLVAL NEW+28
$$REMSTR^PSBUTL NEW+20
$$GETADMIN^PSBVDLU1 NEW+10, NEW+67
$$GETFREQ^PSBVDLU1 NEW+10
SCANFAIL^PSBVDLU3 SCANFAIL+13
CLEAN^PSBVT NEW+3
PSJ1^PSBVT NEW+3
ENE^PSJBCMA4 NEW+60
$$FMADD^XLFDT FORUM+16

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
Routine Call
  • DDS
  • Line Location:
    • FILE+13
Routine Call
  • DIR
  • Line Location:
    • NEW+36
    • NEW+73
    • NEW+75
    • FILE+8
    • KILL+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSB(53.79 - [#53.79] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] NEW+60, FILE+11, FILE+12, FILE+14, FILE+15, FILE+16!, FILE+21, FILE+22, FILE+23, FILE+24
, FILE+25, FILE+29*, FILE+37*, SITECHK+2, SITECHK+5, SITECHK+8, SITECHK+11, SITECHK+14, KILL+2, KILL+3!
, SCANFAIL+2, SCANFAIL+3, SCANFAIL+5, SCANFAIL+6, SCANFAIL+7, SCANFAIL+8, SCANFAIL+9, SCANFAIL+10, SCANFAIL+11
^TMP("PSB" NEW+11!*, NEW+68, NEW+69, FORUM+24!
^XUSEC("PSB INSTRUCTOR" NEW+31
^XUSEC("PSB READ ONLY" NEW+21, NEW+30
^XUSEC("PSB STUDENT" NEW+31

Label References

Name Line Occurrences
FILE NEW+59, FORUM+23, FILE+39
KILL FILE+27, FILE+32
SCANFAIL FILE+38
SITECHK FILE+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NEW+5, NEW+9*, NEW+23*, NEW+32*, NEW+78*, FDATE+3
>> %DT NEW+65*
>> %DT("A" NEW+65*
>> %DT("B" NEW+66*
>> %DT(0 NEW+66*!
>> A FILE+15*, KILL+2*
>> AADT FILE+15*, FILE+16, KILL+2*, KILL+3
>> DA NEW+60, FILE+10*, FILE+11, FILE+12, FILE+14, FILE+15, FILE+16, FILE+21, FILE+22, FILE+23
, FILE+25, FILE+29, FILE+32, SITECHK+2, SITECHK+5, SITECHK+8, SITECHK+11, SITECHK+14, KILL+1, KILL+2
, KILL+3, SCANFAIL+2, SCANFAIL+3, SCANFAIL+5, SCANFAIL+6, SCANFAIL+7, SCANFAIL+8, SCANFAIL+9, SCANFAIL+10, SCANFAIL+11
>> DDSBR FDATE+3*
>> DDSERROR FDATE+3*
>> DDSFILE FILE+10*
>> DDSPARM FILE+10*
>> DFN NEW+3, NEW+10, NEW+28, NEW+43, NEW+67, FORUM+5, FILE+15*, FILE+16, KILL+2*, KILL+3
>> DIK FILE+16*, KILL+3*
>> DILOCKTM FILE+14
DIR NEW+34!, NEW+73!, NEW+74!, FILE+8!, KILL+4!
DIR("A" NEW+34*, NEW+74*
DIR(0 NEW+34*, NEW+73*, NEW+74*, FILE+8*, KILL+4*
>> DR FILE+11*, FILE+12*
DSPDRG SCANFAIL+1~, SCANFAIL+5*, SCANFAIL+6, SCANFAIL+7
DUZ NEW+21, NEW+30, NEW+31
>> I NEW+29*
IOF NEW+3, NEW+6, FILE+5
PSB NEW+1~, NEW+28, FILE+1~, FILE+2, FILE+3
PSB( NEW+29, FILE+6
PSB(" " NEW+29
PSB(0 FILE+3*, FILE+6
PSB(1 NEW+29, FILE+3*, FILE+4, FILE+10
>> PSBADA( NEW+57, FORUM+21
PSBADST NEW+1~, NEW+10*, NEW+11, NEW+17, NEW+20
PSBAUDIT FILE+1~, FILE+9*
>> PSBCNTNU NEW+22*
>> PSBDDA( NEW+54, NEW+55, FORUM+18, FORUM+19
>> PSBDFN FILE+24, FILE+25
>> PSBDOA NEW+20, FORUM+16
>> PSBDOSE NEW+15, NEW+42, FORUM+4
>> PSBDOSEF NEW+40*, NEW+55, FORUM+1*, FORUM+2*, FORUM+19
>> PSBDT NEW+10
>> PSBDTX NEW+66*, NEW+67, NEW+76*, NEW+77, FORUM+10, FORUM+16
PSBFREQ NEW+1~, NEW+10*, NEW+12, NEW+67
>> PSBIEN FILE+34, FILE+36
>> PSBIEN(1 FILE+34, FILE+36
>> PSBINCX FILE+3
>> PSBINDX NEW+53*, NEW+55, NEW+56*, NEW+57*, NEW+58*, FORUM+17*, FORUM+19, FORUM+20*, FORUM+21*, FORUM+22*
>> PSBMMEN NEW+2*, FILE+9, FILE+38
>> PSBMRRFL NEW+18, NEW+20, NEW+55, FORUM+16, FORUM+19, SITECHK+8, SITECHK+14
>> PSBNJECT SITECHK+5, SITECHK+11
>> PSBODSCH NEW+12*, NEW+17, NEW+67, NEW+71
>> PSBOIT NEW+47, FORUM+9
>> PSBOITX NEW+14
>> PSBONX NEW+10, NEW+13, NEW+28, NEW+44, NEW+51, NEW+67, NEW+72, FORUM+6, FORUM+14, FILE+24
, FILE+25
>> PSBOPRSP NEW+20
>> PSBOSP NEW+5, NEW+20
>> PSBOST NEW+10, NEW+67
PSBPRM SCANFAIL+1~, SCANFAIL+13
PSBPRM(0 SCANFAIL+4*
PSBPRM(1 SCANFAIL+12*
PSBREC NEW+1~, FILE+2
PSBREC( NEW+55*, NEW+57*, NEW+58*, FORUM+19*, FORUM+21*, FORUM+22*
PSBREC(0 NEW+43*, NEW+60, FORUM+5*
PSBREC(1 NEW+44*, NEW+60, FORUM+6*
PSBREC(10 NEW+52*, FORUM+16*
PSBREC(2 NEW+45*, NEW+60, FORUM+7*
PSBREC(3 NEW+46*, FORUM+8*
PSBREC(4 NEW+47*, FORUM+9*
PSBREC(5 NEW+48*, FORUM+10*
PSBREC(6 NEW+38*, FORUM+11*
PSBREC(7 NEW+49*, FORUM+12*
PSBREC(8 NEW+50*, FORUM+13*
PSBREC(9 NEW+51*, FORUM+14*
>> PSBRMST NEW+20
PSBRSLT SCANFAIL+1~, SCANFAIL+13
PSBSAVE FILE+1~, FILE+9*, FILE+14, FILE+20
>> PSBSCH NEW+16
>> PSBSCHT NEW+20, NEW+27, NEW+29, NEW+33, NEW+45, NEW+64, FORUM+7
>> PSBSCTMX NEW+67*, NEW+71
>> PSBSOLA( NEW+58, FORUM+22
PSBTIMX FDATE+1~, FDATE+2*, FDATE+3
>> PSBVARD NEW+42*, FORUM+4*
PSBX SCANFAIL+1~, SCANFAIL+2*, SCANFAIL+4
PSBX1 SCANFAIL+1~, SCANFAIL+3*, SCANFAIL+4, SCANFAIL+6, SCANFAIL+8, SCANFAIL+10
PSBX2 SCANFAIL+1~, SCANFAIL+7*, SCANFAIL+9*, SCANFAIL+10, SCANFAIL+11*, SCANFAIL+12
>> PSBXUIT FILE+19*, FILE+24*, FILE+27*, FILE+28, FILE+30, FILE+32, FILE+35, FILE+39, SITECHK+1*, SITECHK+4*
, SITECHK+5, SITECHK+7*, SITECHK+8, SITECHK+10*, SITECHK+11, SITECHK+13*, SITECHK+14, SITECHK+16*
>> PSBXX NEW+68*, NEW+69
>> PSBY FILE+22*, FILE+23
>> PSBYX FILE+24*, FILE+25
>> PSBYZ FILE+25*
U NEW+55, NEW+60, FORUM+19, FILE+10, FILE+11, FILE+12, FILE+15, FILE+21, FILE+23, FILE+25
, FILE+29, FILE+37, SITECHK+2, SITECHK+5, SITECHK+8, SITECHK+11, SITECHK+14, KILL+2, SCANFAIL+4, SCANFAIL+6
, SCANFAIL+7, SCANFAIL+8, SCANFAIL+9, SCANFAIL+10, SCANFAIL+11
>> X NEW+29*, NEW+54*, NEW+55, NEW+57*, NEW+58*, NEW+66, NEW+69*, NEW+70*, NEW+74, FORUM+18*
, FORUM+19, FORUM+21*, FORUM+22*, FILE+6*, FILE+36*, FILE+37, FILE+38, FDATE+2
Y NEW~, NEW+3, NEW+33, NEW+37, NEW+38, NEW+66, NEW+69*, NEW+70, NEW+75, NEW+77*
, NEW+78, FILE+37*
Y(0 NEW+76
>> Z NEW+70*, FILE+37*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All