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 ;Mar 2004

Source Information

Source file <PSBMLEN.m>

Call Graph

Call Graph Total: 16

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 5 NEW^PSBMLEN1  ($$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

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
HDR() ;
EN ;
EDIT
EDIT1
EN1 ;
EN2 ;
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+50
HLP^DDSUTL VALID+1, VALID+4, VALID+5, VALID+6, 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+23, EDIT1+15, EDIT1+26
NEW^PSBMLEN1 EN2+24
$$GETADMIN^PSBVDLU1 EN1+29
$$GETFREQ^PSBVDLU1 EN1+24
INFUSING^PSBVDLU2 EDIT1+35
CLEAN^PSBVT EN1+10
PSJ^PSBVT EN1+10
PSJ1^PSBVT EDIT1+42
$$PSBDCHK1^PSBVT1 EN1+21
EN^PSJBCMA EN1+5
ENE^PSJBCMA4 EDIT1+53
ENR^PSJBCMA4 EDIT1+52
$$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: ",$P(^TMP("PSB",$J,PSBSCHT,PSBMED,PSBX),U,2)
  • Line Location: EN2+19
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+22
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: VALID+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: VALID+4
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: UNITS+4
Routine Call
  • DDS
  • Line Location:
    • EDIT1+50
Routine Call
  • DIC
  • Line Location:
    • EN+9
    • EDIT+6
Routine Call
  • DIR
  • Line Location:
    • EN1+44
    • EN2+8
    • EN2+23
    • EDIT1+15
    • EDIT1+26

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+52, EDIT1+53
, VALID+3
^TMP("PSB" EN+2!, EN1+30!*, EN1+43*, EN2+1, EN2+3, EN2+6, EN2+7, EN2+11, EN2+12, EN2+16
, EN2+19, EN2+21
^TMP("PSBO" EN+12!, EN1+16!, EN2+21*, EN2+24
^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+10
EDIT1 EDIT+8
EN1 EN+11
EN2 EN2+24

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+52, EDIT1+53, VALID+3
>> DDP UNITS+3
>> DDSBR UNITS+2*
>> DDSDA UNITS+3
>> DDSERROR VALID+1*, VALID+4*, VALID+5*, VALID+6*, UNITS+2*
DDSFILE EDIT+9!, EDIT1+43*
>> 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+52, EDIT1+53
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+23!
DIR(0 EN1+44*, EN2+8*, EN2+23*, EDIT1+15*, EDIT1+26*
DR EDIT+9!, EDIT1+44*, EDIT1+45*, EDIT1+46*, EDIT1+47*, EDIT1+48*, EDIT1+49*
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+22
>> 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+48
PSBCNT EN+1~, EN2+2*, EN2+9*, EN2+10, EN2+21, EN2+23, 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
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+46, EDIT1+47
>> PSBIVT EN1+12, EN1+13, EN1+14, EN1+15, EDIT1+45, EDIT1+46, EDIT1+47, EDIT1+48
PSBMED EN+1~, EN2+5*, EN2+6*, EN2+7, EN2+10, EN2+11, EN2+12, EN2+16, EN2+19, EN2+21
>> 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+44
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
>> 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+19, EN2+21
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+19, EN2+21
>> 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+19, EN2+21, EDIT1+11, EDIT1+12
, EDIT1+22, EDIT1+36, EDIT1+52, EDIT1+53, VALID+3
X EN1+34*!, EN1+35*, EN1+36*, EN1+37*!, EN1+38*, EN1+39*, EDIT1+29, EDIT1+36*, VALID+1, VALID+4
, VALID+5, VALID+6
>> 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+24*, 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