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

Package: Barcode Medication Administration

Routine: PSBOMT


Information

PSBOMT ;BIRMINGHAM/TEJ-BCMA MEDICATION THERAPY REPORT ;Mar 2004

Source Information

Source file <PSBOMT.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Barcode Medication Administration 5 $$PRNEFF^PSBO  ($$PTFTR,PT)^PSBOHDR  ($$MAKELINE,$$PAD,CLEANALL,CLEANSUM,FINDIENS,FTR,GETADSO,HDR,LEGEND,PARSE)^PSBOMT1  OILST^PSBRPCMO  (CLEAN,PSJ1)^PSBVT  
VA Fileman 3 DD^%DT  NOW^%DTC  $$GET1^DIQ  
Pharmacy Data Management 2 VAC^PSS50  DRGIEN^PSS50P7  
Inpatient Medications 1 EN^PSJBCMA  
Kernel 1 $$FMADD^XLFDT  
National Drug File 1 IEN^PSN50P65  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSBRPCMO  

Entry Points

Name Comments DBIA/ICR reference
WRAPMEDS(MED,UG,UO,UOA) ;
GETCLSS(IEN1) ;
; Get the Items w/i VA Class
NONSTS(PSBX,PSBY) ;
EN ;
PREOUT ;
WRITEOT ;
GETDRN(IEN1) ;
; Get the Drug IEN (p50) via OI IEN (p50.7)
OFROMA(PSBADD) ;OITEM FROM AN ADDITIVE
WRAP(SIZE,ZP,BRIEN) ;
MEDS ;
COMNTS ;
PRNEFF ;Add PRN Effectiveness to Medication theropy Report - PSB*3*50
OFROMS(PSBSOL) ;OITEM FROM A SOLUTION
GETOIS ;
HEADA ;
OUTPUT ;
ADD(XE) ;
OUT(PSBXDFN,PSBSTRT,PSBSTOP) ;

External References

Name Field # of Occurrence
DD^%DT EN+8, COMNTS+8
NOW^%DTC EN+8
$$GET1^DIQ OFROMA+1, OFROMS+1, OUTPUT+2, OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+14, OUTPUT+15, NONSTS+1, MEDS+11
, MEDS+16, MEDS+21, MEDS+26
$$PRNEFF^PSBO PRNEFF+3
$$PTFTR^PSBOHDR WRITEOT+7
PT^PSBOHDR WRITEOT+3, WRITEOT+8
$$MAKELINE^PSBOMT1 PRNEFF+6, COMNTS+5, COMNTS+12, HEADA+5
$$PAD^PSBOMT1 WRAPMEDS+11, WRAPMEDS+12
CLEANALL^PSBOMT1 OUT+7
CLEANSUM^PSBOMT1 OUT+6
FINDIENS^PSBOMT1 OUT+3
FTR^PSBOMT1 WRITEOT+11
GETADSO^PSBOMT1 OUT+2
HDR^PSBOMT1 WRITEOT+1
LEGEND^PSBOMT1 WRITEOT+10
PARSE^PSBOMT1 WRAPMEDS+9
OILST^PSBRPCMO EN+24
CLEAN^PSBVT NONSTS+1
PSJ1^PSBVT NONSTS+1
EN^PSJBCMA GETOIS+2
IEN^PSN50P65 MEDS+5
VAC^PSS50 GETCLSS+3
DRGIEN^PSS50P7 GETDRN+3
$$FMADD^XLFDT EN+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADA+1
Function Call: WRITE
  • Prompt: "Location",?21,"St Sch Administration Date",?50,"By",?61,"Injection Site",?96,"Units",?104,"Units",?113,"Units of"
  • Line Location: HEADA+2
Function Call: WRITE
  • Prompt: !,?55,"Medication & Dosage",?96,"Ordered",?104,"Given",?113,"Administration"
  • Line Location: HEADA+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADA+4
Function Call: WRITE
  • Prompt: $$MAKELINE^PSBOMT1("-",132)
  • Line Location: HEADA+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(50.7 - [#50.7] GET1^DIQ
^PS(52.6 - [#52.6] GET1^DIQ
^PS(52.7 - [#52.7] GET1^DIQ
^PSB(53.79 - [#53.79] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.79 - [#53.79] OUTPUT+3, OUTPUT+4, OUTPUT+5, OUTPUT+13, PRNEFF+3, PRNEFF+4, PRNEFF+7, PRNEFF+8, PRNEFF+9, COMNTS+3
, COMNTS+6, COMNTS+8, COMNTS+9, COMNTS+10
^PSDRUG("A526" EN+18
^PSDRUG("A527" EN+21
^TMP("PSB" WRITEOT+5, WRITEOT+9, ADD+1*
^TMP("PSJ" GETOIS+1!, GETOIS+3, GETOIS+4!
^TMP($J MEDS+5!, MEDS+6!, GETDRN+2!, GETDRN+4, GETDRN+5!, GETCLSS+2!, GETCLSS+4, GETCLSS+5!
^VA(200 - [#200] COMNTS+9

Label References

Name Line Occurrences
$$GETDRN OFROMA+3, OFROMS+3
$$NONSTS PREOUT+2
$$OFROMA EN+18, GETOIS+16
$$OFROMS EN+21, GETOIS+19
ADD OUTPUT+9, OUTPUT+18, PRNEFF+5, PRNEFF+6, COMNTS+4, COMNTS+5, COMNTS+7, COMNTS+12, WRAPMEDS+11, WRAPMEDS+12
, WRITEOT+4, WRAP+1, WRAP+2, WRAP+3
COMNTS OUTPUT+17
GETCLSS EN+28
GETOIS OUT+1
HEADA WRITEOT+3, WRITEOT+8
MEDS WRITEOT+2
OUT EN+31
OUTPUT PREOUT+5
PREOUT OUT+4
PRNEFF OUTPUT+16
WRAP PRNEFF+10, COMNTS+10
WRAPMEDS OUTPUT+15
WRITEOT OUT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+8, EN+10
BRIEN WRAP~
CNT COMNTS+1~, COMNTS+2*, COMNTS+7, COMNTS+11*, WRAPMEDS+8*, WRAPMEDS+9, WRAPMEDS+10, WRAPMEDS+11, WRAPMEDS+12
>> CNTX WRAPMEDS+4*
>> DN GETDRN+4*, GETDRN+6
>> EX WRITEOT+5*, WRITEOT+9
IEN1 GETDRN~, GETDRN+3, GETCLSS~, GETCLSS+3
IOM MEDS+7, MEDS+12, MEDS+17, MEDS+22, MEDS+27
IOSL WRITEOT+6
MED WRAPMEDS~, WRAPMEDS+2*, WRAPMEDS+11, MEDS+1~, MEDS+2*, MEDS+6*, MEDS+7, MEDS+8, MEDS+9, MEDS+11*
, MEDS+12, MEDS+13, MEDS+14, MEDS+16*, MEDS+17, MEDS+18, MEDS+19, MEDS+21*, MEDS+22, MEDS+23
, MEDS+24, MEDS+26*, MEDS+27, MEDS+28, MEDS+29
ORWRAP WRAPMEDS+3~
>> PSB EN+15*
PSBADD OFROMA~, OFROMA+1
PSBADDL EN+3!, MEDS+15
PSBADDL( EN+18*, MEDS+15
>> PSBCFLG EN+4*, EN+11*, OUTPUT+17
>> PSBCLS EN+28*, GETOIS+10*, GETOIS+11, OFROMA+4*, OFROMA+5, OFROMS+4*, OFROMS+5
>> PSBCLSS EN+4*, EN+29*, OUT+1, OFROMA+2, OFROMS+2, MEDS+4
>> PSBDD OUTPUT+12*, OUTPUT+15
PSBDDL EN+3!, MEDS+25
PSBDDL( EN+23*, MEDS+25
PSBDDRG EN+28!, GETCLSS+4*
PSBDDRG("VAC" EN+28!
PSBDRGS EN+22!, EN+24!*
PSBDRGS( EN+25
PSBDRGS("" EN+25
PSBDRGS(0 EN+25
PSBDRGS(1 EN+25
>> PSBDTTM EN+8*
PSBEIECMT PRNEFF+1~, PRNEFF+2*, PRNEFF+3*, PRNEFF+10
PSBGOT MEDS+4!, MEDS+10!, MEDS+15!, MEDS+20!
PSBGOT( MEDS+6, MEDS+8*, MEDS+9*, MEDS+11*, MEDS+16*, MEDS+21*
PSBHDR EN+1~, WRITEOT+3, WRITEOT+8
PSBHDR( MEDS+3*, MEDS+7, MEDS+8*, MEDS+9*, MEDS+12, MEDS+13*, MEDS+14*, MEDS+17, MEDS+18*, MEDS+19*
, MEDS+22, MEDS+23*, MEDS+24*, MEDS+27, MEDS+28*, MEDS+29*
PSBHDR("" MEDS+2
>> PSBIEN PREOUT+3*, PREOUT+4, OUTPUT+3, OUTPUT+4, OUTPUT+5, OUTPUT+13, PRNEFF+3, PRNEFF+4, PRNEFF+7, PRNEFF+8
, PRNEFF+9, PRNEFF+10, COMNTS+3, COMNTS+6, COMNTS+8, COMNTS+9, COMNTS+10
>> PSBIENS PREOUT+4*, OUTPUT+2, OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+14, OUTPUT+15
PSBLGD EN+3!
PSBLGD("INITIALS" OUTPUT+7*
PSBLINE1 PRNEFF+1~, PRNEFF+10*
PSBLINE2 PRNEFF+1~, PRNEFF+10*
>> PSBNODE OUTPUT+11*, OUTPUT+12, OUTPUT+13
>> PSBNOWX EN+8*
PSBOCRIT EN+7!*, GETOIS+6, NONSTS+2
PSBOIL EN+3!, MEDS+10
PSBOIL( EN+14*, MEDS+10
PSBOIP EN+1~
PSBOIP("OIP" EN+15*, EN+30*, GETOIS+14*, GETOIS+17*, GETOIS+20*, GETOIS+22
PSBORD EN+1~
>> PSBORDN GETOIS+7*, GETOIS+12, GETOIS+13, GETOIS+14, GETOIS+15, GETOIS+16, GETOIS+17, GETOIS+18, GETOIS+19, GETOIS+20
PSBORDS EN+1~
PSBORDS( GETOIS+7*, GETOIS+12*, GETOIS+13*, GETOIS+14, GETOIS+15*, GETOIS+16*, GETOIS+17, GETOIS+18*, GETOIS+19*, GETOIS+20
PSBPRN PRNEFF+1~, PRNEFF+8*, PRNEFF+9*, PRNEFF+10
>> PSBRPT( EN+5, EN+6, EN+7, EN+11, PRNEFF+3
>> PSBRPT(2 EN+12*, EN+13, EN+14, EN+15, EN+16, EN+18, EN+19, EN+21, EN+22, EN+23
, EN+24, EN+26, EN+28
>> PSBSCHT NONSTS+2
PSBSOL OFROMS~, OFROMS+1
PSBSOLL EN+3!, MEDS+20
PSBSOLL( EN+21*, MEDS+20
>> PSBSPC OUTPUT+1*, OUTPUT+2, OUTPUT+5, OUTPUT+6, OUTPUT+7
>> PSBSRCHL EN+14*, EN+17*, EN+20*, EN+23*, EN+27*, MEDS+3
PSBSTOP EN+6*, EN+10*, EN+31, OUT~
PSBSTRT EN+6*, EN+9*, EN+31, OUT~, GETOIS+2
PSBTMP GETOIS+1!, GETOIS+4*, GETOIS+21!
PSBTMP( GETOIS+5, GETOIS+6, GETOIS+7, GETOIS+8, GETOIS+9, GETOIS+11, GETOIS+12, GETOIS+13, GETOIS+15, GETOIS+18
PSBUNK PREOUT+1!, OUTPUT+4*
PSBV OUTPUT+10!, OUTPUT+14*, WRAPMEDS+7
PSBX NONSTS~, NONSTS+1
PSBXDFN EN+5*, EN+31, OUT~, GETOIS+2, PREOUT+2, WRITEOT+3, WRITEOT+8
PSBY OUTPUT+13*, OUTPUT+15, NONSTS~, NONSTS+1
SIZE WRAP~, WRAP+2, WRAP+3
TMP EN+2~
TMP("PSBADDS" EN+3!
TMP("PSBIENS" PREOUT+1, WRITEOT+4, WRITEOT+10
TMP("PSBOIS" EN+3!, EN+15*, EN+18*, EN+21*, EN+25*, EN+30, GETOIS+22*
TMP("PSBSOLS" EN+3!
TMP("VA CLASS " , EN+3!, EN+28*, GETOIS+10, GETOIS+11, OFROMA+4, OFROMA+5, OFROMS+4, OFROMS+5, MEDS+4
U EN+5, EN+6, EN+7, EN+11, EN+12, EN+13, EN+14, EN+15, EN+16, EN+18
, EN+19, EN+21, EN+22, EN+23, EN+24, EN+25, EN+26, EN+28, GETOIS+6, GETOIS+7
, GETOIS+11, GETOIS+12, GETOIS+13, GETOIS+16, GETOIS+19, OUTPUT+3, OUTPUT+4, OUTPUT+5, PRNEFF+3, PRNEFF+7
, PRNEFF+8, PRNEFF+9
UG WRAPMEDS~, WRAPMEDS+5*, WRAPMEDS+10
UGWRAP WRAPMEDS+3~, WRAPMEDS+10*, WRAPMEDS+11, WRAPMEDS+12
UO WRAPMEDS~, WRAPMEDS+6*, WRAPMEDS+7*, WRAPMEDS+10
UOA WRAPMEDS~, WRAPMEDS+9
>> UOA1 WRAPMEDS+4*, WRAPMEDS+11
>> UOA16 WRAPMEDS+4*
>> UOA31 WRAPMEDS+4*
>> UOWRAP WRAPMEDS+10*, WRAPMEDS+11, WRAPMEDS+12
>> W OUTPUT+2*, OUTPUT+3*, OUTPUT+5*, OUTPUT+6*, OUTPUT+7*, OUTPUT+8*, OUTPUT+9
>> X EN+9, EN+15*, GETOIS+5*, GETOIS+6, GETOIS+7, GETOIS+8, GETOIS+9, GETOIS+11, GETOIS+12, GETOIS+13
, GETOIS+15, GETOIS+18
>> X1 OFROMA+1*, OFROMA+3, OFROMA+5, OFROMA+7, OFROMS+1*, OFROMS+3, OFROMS+5, OFROMS+7
>> X2 EN+18*, EN+21*, EN+25*, OFROMA+3*, OFROMA+5, OFROMS+3*, OFROMS+5
X3 OFROMA+4!, OFROMA+5*, OFROMA+6*, OFROMA+7, OFROMS+4!, OFROMS+5*, OFROMS+6*, OFROMS+7
XA MEDS+1~, MEDS+4*, MEDS+5, MEDS+6, MEDS+10*, MEDS+11, MEDS+15*, MEDS+16, MEDS+20*, MEDS+21
, MEDS+25*, MEDS+26
XB MEDS+1~, MEDS+2*, MEDS+3, MEDS+7, MEDS+8*, MEDS+9, MEDS+12, MEDS+13*, MEDS+14, MEDS+17
, MEDS+18*, MEDS+19, MEDS+22, MEDS+23*, MEDS+24, MEDS+27, MEDS+28*, MEDS+29
>> XBR COMNTS+8*, COMNTS+9
>> XD EN+12*, EN+13, EN+14, EN+15, EN+16, EN+18, EN+19, EN+21, EN+22, EN+23
, EN+24, EN+26, EN+28
>> XDT PREOUT+1*
XE ADD~, ADD+1
>> XIEN PREOUT+1*, PREOUT+2, PREOUT+3
>> XT COMNTS+6*, COMNTS+8, COMNTS+9, COMNTS+10
>> XX GETOIS+9*, GETOIS+11, GETOIS+12, GETOIS+16*, GETOIS+19*
>> Y EN+7*, EN+8*, COMNTS+8*
Z COMNTS+1~, COMNTS+2*, COMNTS+9*, COMNTS+10
ZP WRAP~, WRAP+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