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

Package: Barcode Medication Administration

Routine: PSBMLEN


Information

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

Source Information

Source file <PSBMLEN.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA FileMan 8 ^%DT  (C,NOW)^%DTC  ^DDS  (HLP,REFRESH)^DDSUTL  ^DIC  YN^DICN  ($$GET1,D)^DIQ  ^DIR  
Barcode Medication Administration 6 (NEW,SITECHK)^PSBMLEN1  ($$CNVRT4,$$REMSTR)^PSBUTL  ($$GETADMIN,$$GETFREQ)^PSBVDLU1  INFUSING^PSBVDLU2  (CLEAN,PSJ,PSJ1)^PSBVT  $$PSBDCHK1^PSBVT1  
Inpatient Medications 2 EN^PSJBCMA  (ENE,ENR)^PSJBCMA4  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSB MED LOG NEW ENTRY  

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1 ;
EN2 ;
HDR() ;
EDIT
EDIT1
VALID ;
UNITS ;Check UNITS field for entry of PATCH

External References

Name Field # of Occurrence
^%DT EN1+2, EDIT1+2
C^%DTC EDIT1+29
NOW^%DTC EN1+8
^DDS EDIT1+54
HLP^DDSUTL VALID+1, VALID+5, VALID+6, VALID+7, UNITS+5
REFRESH^DDSUTL UNITS+6
^DIC EN+9, EDIT+6
YN^DICN EDIT1+31
$$GET1^DIQ EDIT1+20, EDIT1+21, EDIT1+23, EDIT1+24, EDIT1+33, EDIT1+35
D^DIQ EDIT1+4, EDIT1+16, EDIT1+29
^DIR EN1+44, EN2+8, EN2+28, EDIT1+15, EDIT1+26, EDIT1+56
NEW^PSBMLEN1 EN2+29
SITECHK^PSBMLEN1 EDIT1+56
$$CNVRT4^PSBUTL EN2+20
$$REMSTR^PSBUTL EN2+24
$$GETADMIN^PSBVDLU1 EN1+29
$$GETFREQ^PSBVDLU1 EN1+24
INFUSING^PSBVDLU2 EDIT1+35
CLEAN^PSBVT EN1+10, EN2+30, EDIT+10
PSJ^PSBVT EN1+10
PSJ1^PSBVT EDIT1+42, EDIT1+55
$$PSBDCHK1^PSBVT1 EN1+21
EN^PSJBCMA EN1+5
ENE^PSJBCMA4 EDIT1+60
ENR^PSJBCMA4 EDIT1+59
$$GET^XPAR EN1+40

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Manual Medication Entry",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"This option is NOT AVAILABLE in PSB READ ONLY mode.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"Notice: No validation of medications is done with this option."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Entries in the Med Log created with this option will reflect this"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"in the comments.",!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Searching for Orders..."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+44
Function Call: WRITE
  • Prompt: !!?5,"No Med Orders Found!",!
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !?7,"Admin Times: ",$$CNVRT4^PSBUTL($P(^TMP("PSB",$J,PSBSCHT,PSBMED,PSBX),U,2),"-")
  • Line Location: EN2+20
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+27
Function Call: WRITE
  • Prompt: @IOF,"Manual Medication Entry",!," #",?4,"Sc",?7,"Medication",?41,"St"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT1+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: EDIT1+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: EDIT1+16
Function Call: WRITE
  • Prompt: ?5," ("_$$GET1^DIQ(53.79,PSBIEN_",",.26)_")"
  • Line Location: EDIT1+21
Function Call: WRITE
  • Prompt: !!?5,"No Meds Found!"
  • Line Location: EDIT1+28
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: EDIT1+56
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VALID+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VALID+5
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VALID+6
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VALID+7
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: UNITS+4
Routine Call
  • DDS
  • Line Location:
    • EDIT1+54
Routine Call
  • DIC
  • Line Location:
    • EN+9
    • EDIT+6
Routine Call
  • DIR
  • Line Location:
    • EN1+44
    • EN2+8
    • EN2+28
    • EDIT1+15
    • EDIT1+26
    • EDIT1+56

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^PSB(53.79 - [#53.79] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] EN1+35, EN1+36, EN1+38, EN1+39, EDIT1+9, EDIT1+11, EDIT1+12, EDIT1+22, EDIT1+59, EDIT1+60
, VALID+3, VALID+4
^TMP("PSB" EN+2!, EN1+30!*, EN1+43*, EN2+1, EN2+3, EN2+6, EN2+7, EN2+11, EN2+12, EN2+16
, EN2+20, EN2+22, EN2+23, EN2+24, EN2+26
^TMP("PSBO" EN+12!, EN1+16!, EN2+26*, EN2+29
^TMP("PSJ" EN+2!, EN1+4!, EN1+6, EN1+9
^XUSEC("PSB MANAGER" EDIT+3, EDIT1+11
^XUSEC("PSB READ ONLY" EN+4

Label References

Name Line Occurrences
$$HDR EN2+1, EN2+8
EDIT EDIT+11
EDIT1 EDIT+8
EN1 EN+11
EN2 EN2+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+8, EDIT1+31*
>> %DT EN1+1*, EDIT1+1*
>> %DT("A" EN1+1*, EDIT1+1*
>> %DT("B" EN1+1*, EDIT1+2*
DA EDIT+4*, EDIT+9!, EDIT1+27*, EDIT1+32, EDIT1+33, EDIT1+35, EDIT1+59, EDIT1+60, VALID+3, VALID+4
>> DDP UNITS+3
>> DDSBR UNITS+2*
>> DDSDA UNITS+3
>> DDSERROR VALID+1*, VALID+5*, VALID+6*, VALID+7*, UNITS+2*
DDSFILE EDIT+9!, EDIT1+44*
>> DDSFLD UNITS+3
>> DDSOLD UNITS+3
>> DDSREFT UNITS+3
DFN EN+10*, EN1+5, EN1+24, EN1+29, EN1+35, EN1+36, EN1+38, EN1+39, EDIT+7*, EDIT+9!
, EDIT1+9, EDIT1+11, EDIT1+55, EDIT1+59, EDIT1+60
DIC EN+8*, EN+9!, EDIT+5*, EDIT+6!
DIC("A" EN+8*, EDIT+5*
DIC(0 EN+8*, EDIT+5*
DIR EN1+44!, EN2+8!, EN2+28!, EDIT1+56!
DIR(0 EN1+44*, EN2+8*, EN2+28*, EDIT1+15*, EDIT1+26*, EDIT1+56*
DR EDIT+9!, EDIT1+45*, EDIT1+46*, EDIT1+47*, EDIT1+48*, EDIT1+49*, EDIT1+50*
DSPDRG VALID+3~*, VALID+4
DUZ EN+4, EDIT+3, EDIT1+11
IOF EN+3, HDR+1, EDIT1+4, EDIT1+16
IOM HDR+2, EDIT1+6, EDIT1+18
IOSL EN2+8, EN2+27
ONX EDIT+1~, EDIT1+43*, EDIT1+55
>> PSBADST EN1+22, EN1+26, EN1+28, EN1+29*, EN1+30, EN1+31, EN1+43
PSBAUDIT EDIT+1~, EDIT+2*
PSBBAG2 EDIT1+36*, EDIT1+37, EDIT1+38, EDIT1+39, EDIT1+41!
PSBBAGN EDIT1+35*, EDIT1+37, EDIT1+38, EDIT1+40, EDIT1+41!
PSBBAGST EDIT1+36*, EDIT1+38, EDIT1+39, EDIT1+41!
>> PSBCHEMT EN1+14, EN1+15, EDIT1+49
PSBCNT EN+1~, EN2+2*, EN2+9*, EN2+10, EN2+26, EN2+28, EDIT+9!, EDIT1+7*, EDIT1+13*, EDIT1+19
, EDIT1+25, EDIT1+26, EDIT1+28
>> PSBCOMP EDIT1+33*, EDIT1+34, EDIT1+35, EDIT1+37*
>> PSBDFN EDIT1+33*, EDIT1+42
>> PSBDOA EN1+43
PSBDT EN+1~, EN1+2*, EN1+5, EN1+29, EDIT+9!, EDIT1+2*, EDIT1+3, EDIT1+4, EDIT1+7, EDIT1+9
, EDIT1+16, EDIT1+27*, EDIT1+29*, EDIT1+31*
PSBERR EN+1~, EN1+7*, EN1+44
PSBFLAG EN+1~
PSBFORM EN+1~
PSBFREQ EN+1~, EN1+24*, EN1+25, EN1+26, EN1+27, EN1+29
PSBGVN EN1+34*!, EN1+36*, EN1+37*!, EN1+39*, EN1+40*, EN1+41*, EN1+42*
PSBIEN EDIT+9!, EDIT1+10*, EDIT1+11*, EDIT1+12, EDIT1+13, EDIT1+20, EDIT1+21, EDIT1+22, EDIT1+23, EDIT1+24
>> PSBISYR EN1+13, EN1+14, EDIT1+47, EDIT1+48
>> PSBIVT EN1+12, EN1+13, EN1+14, EN1+15, EDIT1+46, EDIT1+47, EDIT1+48, EDIT1+49
PSBMED EN+1~, EN2+5*, EN2+6*, EN2+7, EN2+10, EN2+11, EN2+12, EN2+16, EN2+20, EN2+22
, EN2+23, EN2+24, EN2+26
>> PSBMRRFL EN1+43
>> PSBNGF EN1+34, EN1+42
PSBNOW EN+1~, EN1+8*, EN1+33
>> PSBODD EN1+20*, EN1+27*, EN1+28
>> PSBOIT EN1+35, EN1+36, EN1+38, EN1+39
>> PSBOITX EN1+43
>> PSBONX EN1+11, EN1+12, EN1+24, EN1+29, EN1+36, EN1+39, EN1+43, EDIT1+33*, EDIT1+34, EDIT1+36
, EDIT1+42, EDIT1+43, EDIT1+45
>> PSBOPRSP EN1+43
PSBORA EDIT1+41!
>> PSBOSP EN1+43
>> PSBOST EN1+29, EN1+33, EN1+43
>> PSBOSTS EN1+41, EN1+43
>> PSBOUT EN1+17*, EN1+22*, EN1+26*, EN1+28*, EN1+31*, EN1+32
>> PSBPORA( EDIT1+36
PSBREC EN+2!
PSBREC(7 VALID+2
>> PSBRMST EN1+43
>> PSBSCH EN1+21, EN1+23
PSBSCHT EN+1~, EN1+18, EN1+34, EN1+37, EN1+43, EN2+2*, EN2+3*, EN2+6, EN2+7, EN2+8*
, EN2+10, EN2+11, EN2+12, EN2+16, EN2+20, EN2+22, EN2+23, EN2+24, EN2+26
PSBSRCH EDIT+9!, EDIT1+7*, EDIT1+9*, EDIT1+11
>> PSBSTUS EDIT1+33*, EDIT1+34, VALID+1
PSBTMP EDIT+9!, EDIT1+8!
PSBTMP( EDIT1+13*, EDIT1+27
PSBVARD EN+1~
PSBX EN+1~, EN1+9*, EN1+10, EN1+43, EN2+7*, EN2+11, EN2+12, EN2+16, EN2+20, EN2+22
, EN2+23, EN2+24, EN2+26
PSBXUIT EDIT+1~, EDIT+2*, EDIT1+52, EDIT1+53*, EDIT1+56
>> PSBY EN1+31*
>> PSBYES EN1+20*, EN1+21*, EN1+22, EN1+23*, EN1+25*, EN1+26
U EN1+36, EN1+39, EN1+43, EN2+11, EN2+12, EN2+16, EN2+20, EN2+22, EN2+23, EN2+24
, EN2+26, EDIT1+11, EDIT1+12, EDIT1+22, EDIT1+36, EDIT1+59, EDIT1+60, VALID+4
X EN1+34*!, EN1+35*, EN1+36*, EN1+37*!, EN1+38*, EN1+39*, EDIT1+29, EDIT1+36*, VALID+1, VALID+5
, VALID+6, VALID+7
>> X1 EDIT1+29*
>> X2 EDIT1+29*
Y EN+9, EN+10, EN1+2, EN1+34*!, EN1+36*, EN1+37*!, EN1+39*, EN1+44, EN2+8, EN2+12*
, EN2+14, EN2+15, EN2+16*, EN2+17, EN2+18, EN2+29*, EDIT+6, EDIT+7, EDIT1+2, EDIT1+4*
, EDIT1+16*, EDIT1+25, EDIT1+27, EDIT1+29*, EDIT1+30, UNITS+1
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