Routine: PSBOMT

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

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 - PSB350
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

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBOMT

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: