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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSBOMM

Package: Barcode Medication Administration

Routine: PSBOMM


Information

PSBOMM ;BIRMINGHAM/EFC-MISSED MEDS ;03/06/16 3:06pm

Source Information

Source file <PSBOMM.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Barcode Medication Administration 6 ($$WRAP,FILTERCO)^PSBO  ($$PTFTR,$$SRCHLIST,PT,WARD)^PSBOHDR  ($$DTFMT,CLINIC,DEFLT,LN1,MISSED,PARTG1,UDONE)^PSBOMM2  REMOVES^PSBUTL  ($$GETADMIN,$$GETFREQ,INCLUDCO,REMOVECO)^PSBVDLU1  (CLEAN,PSJ,PSJ1)^PSBVT  
Inpatient Medications 2 EN^PSJBCMA  EN^PSJBCMA2  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
VA FileMan 1 (H,NOW)^%DTC  

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1 ;
PRINT ;
WRDHDR() ;
PTHDR() ;

External References

Name Field # of Occurrence
H^%DTC EN1+45, EN1+46
NOW^%DTC EN1+14, EN1+86
$$WRAP^PSBO PRINT+53, PRINT+68, PRINT+121, PRINT+127
FILTERCO^PSBO EN1+6
$$PTFTR^PSBOHDR PRINT+23, PRINT+34, PRINT+69
$$SRCHLIST^PSBOHDR PRINT+11
PT^PSBOHDR PTHDR+1
WARD^PSBOHDR WRDHDR+1
$$DTFMT^PSBOMM2 EN1+42, EN1+79, EN1+94, EN1+95, PRINT+42, PRINT+59, PRINT+104, PRINT+109
CLINIC^PSBOMM2 PRINT+130
DEFLT^PSBOMM2 EN+3
LN1^PSBOMM2 WRDHDR+3, PTHDR+4
MISSED^PSBOMM2 EN1+64, EN1+68
PARTG1^PSBOMM2 EN1+85
UDONE^PSBOMM2 EN1+93
REMOVES^PSBUTL EN+14
$$GETADMIN^PSBVDLU1 EN1+51
$$GETFREQ^PSBVDLU1 EN1+32
INCLUDCO^PSBVDLU1 EN1+7
REMOVECO^PSBVDLU1 EN1+8
CLEAN^PSBVT EN+16, EN1+15
PSJ^PSBVT EN1+16
PSJ1^PSBVT PRINT+38, PRINT+98
EN^PSJBCMA EN1+3
EN^PSJBCMA2 EN1+59, EN1+91
$$FMADD^XLFDT EN1+47, EN1+54
$$FMTE^XLFDT PRINT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?7,"*Administration Times have been edited*"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,"No Missed Medications Found",$$PTFTR^PSBOHDR()
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: $$PTFTR^PSBOHDR(),$$PTHDR()
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: ?38,"<<HAZ HANDLE>> "
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: ?38,"<<HAZ DISPOSE>>"
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: ?41,VAR1
  • Line Location: PRINT+51
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(SP)
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: ?41,VAR2
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: !,$$WRAP^PSBO(41,79,VAR3)
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+62
Function Call: WRITE
  • Prompt: ?38,"<<HAZ HANDLE>> "
  • Line Location: PRINT+63
Function Call: WRITE
  • Prompt: ?38,"<<HAZ DISPOSE>>"
  • Line Location: PRINT+64
Function Call: WRITE
  • Prompt: ?41,VAR1
  • Line Location: PRINT+66
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(SP)
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: ?41,VAR2
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: !,$$WRAP^PSBO(41,79,VAR3)
  • Line Location: PRINT+68
Function Call: WRITE
  • Prompt: !,"No Missed Medications Found"
  • Line Location: PRINT+76
Function Call: WRITE
  • Prompt: $$WRDHDR()
  • Line Location: PRINT+97
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+111
Function Call: WRITE
  • Prompt: ?92,"<<HAZ HANDLE>> "
  • Line Location: PRINT+112
Function Call: WRITE
  • Prompt: ?92,"<<HAZ DISPOSE>>"
  • Line Location: PRINT+113
Function Call: WRITE
  • Prompt: !,?37,$P(VAR1,U,1)
  • Line Location: PRINT+119
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(SP)
  • Line Location: PRINT+120
Function Call: WRITE
  • Prompt: ?37,VAR2
  • Line Location: PRINT+120
Function Call: WRITE
  • Prompt: !,$$WRAP^PSBO(37,102,VAR3)
  • Line Location: PRINT+121
Function Call: WRITE
  • Prompt: !,?57,VAR1
  • Line Location: PRINT+125
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(SP)
  • Line Location: PRINT+126
Function Call: WRITE
  • Prompt: ?57,VAR2
  • Line Location: PRINT+126
Function Call: WRITE
  • Prompt: !,$$WRAP^PSBO(57,82,VAR3)
  • Line Location: PRINT+127
Function Call: WRITE
  • Prompt: !,"Order Status",?15,"Ver",?22,"Room-Bed",?42,"Patient",?74,"Missed Date/Time",?92,"Medication"
  • Line Location: WRDHDR+2
Function Call: WRITE
  • Prompt: !,"Order Status",?15,"Ver",?21,"Missed Date/Time",?38,"Medication",?85,"Order Stop Date"
  • Line Location: PTHDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRINT+79, PRINT+80, PRINT+103, PRINT+108
^PSB(53.79 - [#53.79] EN1+81, EN1+82, EN1+83, EN1+84
^TMP("PSB" EN+10!, EN+17!, EN1+56!*, EN1+63, EN1+96*, EN1+98, PRINT+23, PRINT+25, PRINT+28, PRINT+30
, PRINT+35, PRINT+36, PRINT+37, PRINT+41, PRINT+58, PRINT+76, PRINT+78, PRINT+81*, PRINT+83, PRINT+84
, PRINT+87, PRINT+92, PRINT+94, PRINT+102, PRINT+107, PRINT+114, PRINT+115, PRINT+116
^TMP("PSB1" EN+10!, EN1+59!, EN1+71!, EN1+91!, EN1+99!
^TMP("PSBO" EN+14, EN+17!
^TMP("PSJ" EN+10!, EN+17!, EN1+2!, EN1+10, EN1+12, EN1+13, EN1+50
^TMP("PSJ2" EN1+59!, EN1+91!, EN1+92

Label References

Name Line Occurrences
$$PTHDR PRINT+21, PRINT+34
$$WRDHDR PRINT+75, PRINT+97
EN1 EN+14
PRINT EN+15

Naked Globals

Name Field # of Occurrence
^( PRINT+79
^(0 PRINT+103, PRINT+108

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+24
>> %H EN1+45, EN1+46
>> %T EN1+45, EN1+46
DFN EN+1~, EN+14*, EN1+3, EN1+32, EN1+41, EN1+42, EN1+51, EN1+59, EN1+79, EN1+81
, EN1+82, EN1+84, EN1+85, EN1+88, EN1+91, EN1+96, EN1+98, PRINT+1~, PRINT+19*, PRINT+23
, PRINT+25, PRINT+28, PRINT+30, PRINT+35, PRINT+36, PRINT+37, PRINT+38, PRINT+41, PRINT+42, PRINT+50
, PRINT+54, PRINT+55, PRINT+58, PRINT+59, PRINT+78*, PRINT+79, PRINT+80, PRINT+81, PRINT+84*, PRINT+87
, PRINT+92, PRINT+94, PRINT+98, PRINT+102, PRINT+103, PRINT+107, PRINT+108, PRINT+114, PRINT+115, PRINT+116
, PRINT+122, PRINT+123, PTHDR+1
FLG EN1+55!*
>> I EN1+29*, EN1+31*
IOSL PRINT+34, PRINT+97
>> J EN1+53*
PSBACRIT EN+4!, EN+7*, EN+8*, EN1+89
PSBADST EN1+30, EN1+34, EN1+36, EN1+44, EN1+48!, EN1+52*, EN1+56, EN1+63*, EN1+67*
PSBADST( EN1+51*, EN1+52, EN1+53, EN1+67
>> PSBCADM EN1+43*, EN1+44*
>> PSBCHEMT EN1+20, EN1+21
>> PSBCLINORD EN1+5, EN1+8, PTHDR+3
>> PSBCLORD PRINT+42, PRINT+50, PRINT+60
PSBCNT EN+1~, EN1+99!
PSBDFN EN1+1~
>> PSBDOW EN1+29*
PSBDT EN1+1~, EN1+78*, PRINT+1~, PRINT+24*, PRINT+25*, PRINT+28, PRINT+30, PRINT+35, PRINT+36, PRINT+37
, PRINT+41, PRINT+42, PRINT+48, PRINT+50, PRINT+58, PRINT+59, PRINT+86*, PRINT+87*, PRINT+90, PRINT+92
, PRINT+94, PRINT+102, PRINT+104, PRINT+107, PRINT+109, PRINT+114, PRINT+115, PRINT+116, PRINT+117, PRINT+118
>> PSBDT2 EN1+48*, EN1+50*, EN1+51, EN1+52, EN1+53, EN1+54*, EN1+55*
>> PSBDX PRINT+79*, PRINT+80*, PRINT+81, PRINT+82*, PRINT+83*, PRINT+84
PSBEDIT EN+1~, EN1+64, EN1+68, PRINT+22
PSBEVDT EN1+1~, EN1+2*
PSBEXST EN1+80!, EN1+96, EN1+97
PSBFLAG EN+1~, EN1+94, EN1+95
>> PSBFREQ EN1+32*, EN1+33*, EN1+34, EN1+35, EN1+47, EN1+51
PSBFUTR EN+1~, EN+6, EN+8, PRINT+6, PRINT+8
>> PSBG EN1+80*, EN1+84*, EN1+85, EN1+89
>> PSBG( EN1+84*, EN1+85
PSBGBL EN1+1~
PSBH EN1+1~
>> PSBHAZDS PRINT+45, PRINT+47, PRINT+62, PRINT+64, PRINT+111, PRINT+113
>> PSBHAZHN PRINT+45, PRINT+46, PRINT+62, PRINT+63, PRINT+111, PRINT+112
PSBHDDT EN1+71!, EN1+94, EN1+95, EN1+99!
PSBHDR EN1+1~, PRINT+1~, WRDHDR+1, PTHDR+1
PSBHDR(1 PRINT+4*
PSBHDR(2 PRINT+5*, PRINT+6*
PSBHDR(3 PRINT+7*, PRINT+8*
PSBHDR(4 PRINT+9*
PSBHDR(5 PRINT+13*
PSBHDR(6 PRINT+14*, PRINT+15*
>> PSBINCC EN+9*, PRINT+9
>> PSBISYR EN1+19, EN1+20
>> PSBIVT EN1+17, EN1+18, EN1+19, EN1+20, EN1+21
>> PSBNGF EN1+38, EN1+74
PSBNPG PRINT+2!
PSBOACTL EN1+59!*, EN1+91!, EN1+92*, EN1+100!
PSBOCRIT EN+4!, EN+5*, EN+6*, EN1+37, EN1+76, EN1+87
PSBODATE EN+1~
>> PSBODD EN1+28*, EN1+35*, EN1+36, EN1+62, EN1+67
>> PSBOIT EN1+81, EN1+82
PSBOITX EN1+96, EN1+98, PRINT+1~, PRINT+27*, PRINT+28*, PRINT+30, PRINT+35, PRINT+36, PRINT+37, PRINT+41
, PRINT+42, PRINT+50, PRINT+58, PRINT+59, PRINT+91*, PRINT+92*, PRINT+94, PRINT+102, PRINT+104, PRINT+107
, PRINT+109, PRINT+114, PRINT+115, PRINT+116, PRINT+118
PSBONX EN1+22, EN1+32, EN1+41, EN1+42, EN1+51, EN1+59, EN1+79, EN1+84, EN1+85, EN1+88
, EN1+91, EN1+96, EN1+98, PRINT+1~, PRINT+29*, PRINT+30*, PRINT+35, PRINT+36, PRINT+37, PRINT+38
, PRINT+41, PRINT+42, PRINT+50, PRINT+54, PRINT+55, PRINT+58, PRINT+59, PRINT+93*, PRINT+94*, PRINT+98
, PRINT+102, PRINT+103, PRINT+107, PRINT+108, PRINT+114, PRINT+115, PRINT+116, PRINT+122, PRINT+123
>> PSBOSP EN1+23, EN1+24, EN1+42, EN1+55, EN1+76, EN1+79
>> PSBOST EN1+45, EN1+47*, EN1+48, EN1+76, EN1+77, EN1+79
>> PSBOST2 EN1+48*, EN1+51, EN1+53*
>> PSBOSTS EN1+24*, EN1+37, EN1+39, EN1+41, EN1+73, EN1+87, EN1+88
>> PSBRPT( EN+2, EN+9, EN+11, EN+12, PRINT+3, PRINT+4, PRINT+19, PRINT+74, PRINT+77
>> PSBRPT(2 EN1+6
>> PSBRPT(4 PRINT+14, PRINT+15
PSBS EN+1~, EN+4!, EN+17!
PSBS( EN1+41*, EN1+88*, PRINT+42, PRINT+50, PRINT+59, PRINT+103, PRINT+108
>> PSBSCH EN1+29, EN1+31
>> PSBSCHT EN1+27, EN1+72
>> PSBSM EN1+40, EN1+75
PSBSORT PRINT+1~, PRINT+77*, PRINT+79
PSBSRCHL PRINT+1~, PRINT+11*, PRINT+12, WRDHDR+1, PTHDR+1
PSBSRT EN+1~, EN+12*, EN+14, PRINT+18, PRINT+73, PRINT+130
PSBSTART EN+1~, EN+2*, EN1+23
PSBSTOP EN+1~, EN+2*, EN1+51, EN1+55, EN1+77
PSBSTRT EN+1~, EN+11*, EN1+2, EN1+3, EN1+46, EN1+47, EN1+48, EN1+64
PSBSTXP EN+1~
PSBSTXP( EN1+42*, EN1+79*, PRINT+42, PRINT+55, PRINT+59, PRINT+123
>> PSBSTXT( EN1+79*, PRINT+54, PRINT+122
PSBUNHD EN1+71!, EN1+95, EN1+99!
PSBVNI PRINT+1~, PRINT+38*, PRINT+42, PRINT+50, PRINT+59, PRINT+99*, PRINT+103, PRINT+108
>> PSBWARD PRINT+74*
>> PSBWRD WRDHDR+1
PSBX EN1+1~, EN1+11*, EN1+12*, EN1+13, EN1+16, EN1+50
>> PSBXSTS EN1+80*, EN1+83*, EN1+84, EN1+89, EN1+96
>> PSBYES EN1+28*, EN1+29*, EN1+30, EN1+31*, EN1+33*, EN1+34
RMV EN+1~, PRINT+33!, PRINT+40*, PRINT+43*, PRINT+58, PRINT+96!, PRINT+101*, PRINT+105*, PRINT+107
SP PRINT+34!, PRINT+51*, PRINT+52, PRINT+66*, PRINT+67, PRINT+97!, PRINT+104*, PRINT+109*, PRINT+118*, PRINT+119*
, PRINT+120, PRINT+125*, PRINT+126
U EN+2, EN+6, EN+8, EN+9, EN+11, EN+12, EN1+83, EN1+84, EN1+96, EN1+98
, PRINT+3, PRINT+4, PRINT+6, PRINT+8, PRINT+14, PRINT+15, PRINT+19, PRINT+74, PRINT+77, PRINT+79
, PRINT+80, PRINT+103, PRINT+108, PRINT+119
>> VAR EN1+90*, EN1+94*, EN1+95*, EN1+96, EN1+98
VAR1 EN1+98*, PRINT+33, PRINT+34!, PRINT+35*, PRINT+51, PRINT+66, PRINT+89!, PRINT+96, PRINT+97!, PRINT+114*
, PRINT+119, PRINT+125
VAR2 PRINT+33, PRINT+34!, PRINT+36*, PRINT+52, PRINT+67, PRINT+89!, PRINT+96, PRINT+97!, PRINT+115*, PRINT+120
, PRINT+126
VAR3 PRINT+33, PRINT+34!, PRINT+37*, PRINT+53, PRINT+68, PRINT+89!, PRINT+96, PRINT+97!, PRINT+116*, PRINT+121
, PRINT+127
>> X EN1+45*, EN1+46*, EN1+80*, EN1+81*, EN1+82, EN1+84*
>> X1 EN1+45*, EN1+47
>> X2 EN1+46*, EN1+47
>> X3 EN1+46*, EN1+47*
>> XX EN1+63*, EN1+67*
>> XXX EN1+67*, EN1+68
>> XZ EN1+51*, EN1+52, EN1+53
>> Y EN1+57*, EN1+58, EN1+80*, EN1+82*, EN1+83, EN1+84*, PRINT+3*, PRINT+4, PRINT+6*, PRINT+8*
>> Z EN1+53*, EN1+54, EN1+56*, EN1+57, EN1+58, EN1+63*, EN1+64, EN1+67*, EN1+68
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All