Routine: PSBOPM

Package	Total	Call Graph
Barcode Medication Administration	4	$$GETINIT^PSBCSUTX ($$PTFTR,PT)^PSBOHDR $$MME^PSBOML ($$GETORD,FINDIENS)^PSBOPM1
VA FileMan	4	DD^%DT (C,NOW)^%DTC LIST^DIC ($$GET1,D)^DIQ
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR
Inpatient Medications	1	EN^PSJBCMA1
Toolkit	1	$$GET^XPAR

Name	Comments	DBIA/ICR reference
EN	;
OUT(DFN,PSBSTRT,PSBSTOP,PSBORDNM)
GETORDN	;
GETOIS
OFROMA(PSBADD)	;GET ORDERABLE ITEM FROM AN ADDITIVE
OFROMS(PSBSOL)	; GET ORDERABLE ITEM FROM A SOLUTION
GETADSO	; GET ALL ADDITIVES FOR ALL ORDERABLE ITEMS
PREOUT	;
OUTPUT(TYP)	;
STATUS(STATABBR)	; Give a full status from abbr - PSB3.082 rbd
SCHED(SCHABBR)	; Give a full schedule type from abbr - PSB3.082 rbd
COMNTS
WRAP(SIZE,ZP,BRIEN)
WRAP2(TEXTLINE,MAX,TEXT)	; Splits Text into TEXT array
WR0	; Loop for Remaining Text
WRQ	; Quit Wrap
HEADA	;
ADD(XE,TYP)
WRAPMEDS(W,SITE,MED,UG,UO,UOA,TYP)
PAD(X,CNT)	;
WRITEOT	;
FTR()	;
MEDS(TYP)	;
CLEANALL
CLEANSUM
MAKELINE(X,CNT)	;LINE OF WHAT'S PASSED IN CNT TIMES
PARSE(X,CNT)	;Split text for wrapping.
PARSEM(PSBMED,PSBCNT)	;Split text for wrapping meds, PSB372

Name	Field # of Occurrence
DD^%DT	COMNTS+11
C^%DTC	EN+12
NOW^%DTC	EN+10
LIST^DIC	GETADSO+3, GETADSO+10
$$GET1^DIQ	GETOIS+24, OFROMA+1, OFROMS+1, OUTPUT+7, OUTPUT+17, OUTPUT+20, OUTPUT+21, OUTPUT+52, OUTPUT+61, OUTPUT+62 , OUTPUT+64, OUTPUT+72, OUTPUT+75, OUTPUT+76, OUTPUT+79, OUTPUT+80, MEDS+5, MEDS+15
D^DIQ	WRITEOT+2, WRITEOT+3
$$GETINIT^PSBCSUTX	OUTPUT+26, OUTPUT+27
$$PTFTR^PSBOHDR	WRITEOT+11, WRITEOT+20
PT^PSBOHDR	WRITEOT+8, WRITEOT+12
$$MME^PSBOML	OUTPUT+8
$$GETORD^PSBOPM1	OUT+7
FINDIENS^PSBOPM1	OUT+13
EN^PSJBCMA1	GETORDN+2
$$FMTE^XLFDT	OUTPUT+69
$$UP^XLFSTR	OUTPUT+69
$$GET^XPAR	EN+11, EN+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,("Error: No Patient IEN") Line Location: EN+5
Function Call: WRITE	Prompt: & Line Location: OUTPUT+2
Function Call: WRITE	Prompt: to Line Location: OUTPUT+59
Function Call: WRITE	Prompt: to Line Location: OUTPUT+60
Function Call: WRITE	Prompt: to Line Location: OUTPUT+62
Function Call: WRITE	Prompt: to Line Location: OUTPUT+64
Function Call: WRITE	Prompt: ! Line Location: HEADA+1
Function Call: WRITE	Prompt: ?1,"Location",?27,"Status",?51,"Schedule Type" Line Location: HEADA+4
Function Call: WRITE	Prompt: ?71,"Administration Date",?98,"Units",?109,"Units",?121,"Units of" Line Location: HEADA+5
Function Call: WRITE	Prompt: !?1,"By",?27,"Medication & Dosage",?71,"Body Site" Line Location: HEADA+6
Function Call: WRITE	Prompt: ?97,"Ordered",?109,"GIVEN",?122,"Admin" Line Location: HEADA+7
Function Call: WRITE	Prompt: !!?5,"PRN Reason",?33,"PRN Effectiveness",?61,"Effectiveness Entered By" Line Location: HEADA+8
Function Call: WRITE	Prompt: ?91,"Effectiveness Entered" Line Location: HEADA+9
Function Call: WRITE	Prompt: ! Line Location: HEADA+10
Function Call: WRITE	Prompt: $$MAKELINE("-",132) Line Location: HEADA+11
Function Call: WRITE	Prompt: (possible Line Location: WRAPMEDS+0
Function Call: WRITE	Prompt: !!,"Initial - Name Legend" Line Location: WRITEOT+15
Function Call: WRITE	Prompt: $$PTFTR^PSBOHDR() Line Location: WRITEOT+20
Function Call: WRITE	Prompt: ! Line Location: FTR+1
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","=") Line Location: FTR+2
Function Call: WRITE	Prompt: !,PSBHDR("NAME"),?(IOM-11\2),PSBHDR("SSN"),?(IOM-$L(X)),X Line Location: FTR+4
Routine Call	DIC Line Location: GETADSO+3 GETADSO+10

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PS(50.7 - [#50.7]	GET1^DIQ
^PS(52.6 - [#52.6]	GET1^DIQ, LIST^DIC
^PS(52.7 - [#52.7]	GET1^DIQ, LIST^DIC
^PSB(53.79 - [#53.79]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	OUTPUT+11, OUTPUT+14, OUTPUT+16, OUTPUT+40, OUTPUT+42, OUTPUT+43, OUTPUT+57, COMNTS+3, COMNTS+6, COMNTS+10 , COMNTS+19
^TMP("PSB"	ADD+1*, WRITEOT+6, WRITEOT+9, WRITEOT+13, CLEANALL+1!, CLEANSUM+1!
^TMP("PSB_WINITNAM"	OUTPUT+28, OUTPUT+53, COMNTS+16*, WRITEOT+16, WRITEOT+17, WRITEOT+19!
^TMP("PSJ1"	GETORDN+1!, GETOIS+4, GETOIS+5, GETOIS+13, GETOIS+14, GETOIS+15, GETOIS+16, GETOIS+20, GETOIS+21, GETOIS+22 , GETOIS+23, GETOIS+24, CLEANALL+1!, CLEANSUM+1!
^VA(200 - [#200]	COMNTS+12

Name	Line Occurrences
$$MAKELINE	COMNTS+5, COMNTS+21, HEADA+11
$$OFROMA	GETOIS+18
$$OFROMS	GETOIS+27
$$PAD	WRAPMEDS+17, WRAPMEDS+18
$$SCHED	OUTPUT+16
$$STATUS	OUTPUT+15, OUTPUT+49
ADD	OUTPUT+24, OUTPUT+70, OUTPUT+74, OUTPUT+81, OUTPUT+83, OUTPUT+85, COMNTS+4, COMNTS+5, COMNTS+7, COMNTS+21 , WRAP+5, WRAP+7, WRAPMEDS+17, WRAPMEDS+18, WRITEOT+5
CLEANALL	OUT+1
CLEANSUM	OUT+16
COMNTS	OUTPUT+84
GETADSO	OUT+12
GETOIS	OUT+11
GETORDN	OUT+10
HEADA	WRITEOT+8, WRITEOT+12
MEDS	WRITEOT+7
OUT	EN+14
OUTPUT	PREOUT+9
PARSE	WRAPMEDS+12
PARSEM	WRAPMEDS+11
PREOUT	OUT+14
WR0	WR0+8
WRAP	COMNTS+19
WRAP2	OUTPUT+77, WRAP+5
WRAPMEDS	OUTPUT+62, OUTPUT+64
WRITEOT	OUT+15
WRQ	WRAP2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+10
BRIEN	WRAP~
CNT	COMNTS+1~, COMNTS+2, COMNTS+7, COMNTS+20, WRAPMEDS+9*, WRAPMEDS+10, WRAPMEDS+12, WRAPMEDS+13, WRAPMEDS+15, WRAPMEDS+17 , WRAPMEDS+18, PAD~, PAD+1, MAKELINE~, MAKELINE+3, PARSE~, PARSE+3, PARSE+4, PARSE+7, PARSE+10
CNTX	WRAPMEDS+5~, WRAPMEDS+6, PARSE+7, PARSE+8, PARSE+9, PARSE+10
CNTXX	WRAPMEDS+5~, PARSE+10*
DFN	EN+1~, EN+4*, EN+5, EN+14, OUT~, GETORDN+2, WRITEOT+8, WRITEOT+12
DPTR	MEDS+1~, MEDS+14*, MEDS+15, CLEANALL+1!
DRG	MEDS+1~, MEDS+2, MEDS+15, MEDS+16, CLEANALL+1!
EX	WRITEOT+8~, WRITEOT+9*, WRITEOT+13
FLE	MEDS+1~, MEDS+11, MEDS+12, MEDS+13*, MEDS+15, CLEANALL+1!
G1	OUTPUT+1~
G2	OUTPUT+1~
G3	OUTPUT+1~
G4	OUTPUT+1~
GIVE	OUTPUT+1~
I	PREOUT+1~, PREOUT+5, PREOUT+6, PREOUT+7, WRAP2+1~, WR0+1, WR0+2, WR0+5*, WR0+6, WR0+7
IOM	FTR+2, FTR+4, MEDS+6
IOSL	WRITEOT+10, FTR+1
J	WRAP2+1~, WRAP2+2, WR0+3, WR0+6, WR0+9*, WRQ+1
MAX	WRAP2~, WRAP2+2, WR0+2, WR0+3, WR0+4, WR0+5, WR0+8
MED	WRAPMEDS~, WRAPMEDS+4, WRAPMEDS+11, WRAPMEDS+17, MEDS+1~, MEDS+2, MEDS+5*, MEDS+6, MEDS+7, MEDS+8 , PARSEM+5
PSBADD	GETOIS+1~, GETOIS+16*, GETOIS+18, OFROMA~, OFROMA+1
PSBAOUT	GETADSO+1~, GETADSO+7!
PSBAOUT("DILIST"	GETADSO+4, GETADSO+5, GETADSO+6
PSBCLINORD	WRITEOT+8~*
PSBCMNT	COMNTS+1~, COMNTS+10*, COMNTS+11, COMNTS+12
PSBCNT	WRAPMEDS+5~, WRAPMEDS+10*, WRAPMEDS+11, PARSEM~, PARSEM+2, PARSEM+5
PSBCNTX	PARSEM+1~, PARSEM+2*, PARSEM+3, PARSEM+4, PARSEM+5
PSBCNTXX	PARSEM+1~, PARSEM+5*
PSBCOM	EN+1~, EN+8, EN+13, OUTPUT+84
PSBDD	OUTPUT+4~, OUTPUT+56*, OUTPUT+61, OUTPUT+62, OUTPUT+63, OUTPUT+64
PSBGBL	EN+1~, EN+2, EN+3, EN+4
PSBHDR	EN+1~, WRITEOT+8, WRITEOT+12
PSBHDR(	MEDS+6, MEDS+7, MEDS+8, MEDS+9!, MEDS+16*
PSBHDR("NAME"	FTR+4
PSBHDR("ROOM"	FTR+3
PSBHDR("SSN"	FTR+4
PSBHDR("WARD"	FTR+3
PSBHDR(1	WRITEOT+4*
PSBHDR(3	MEDS+3*
PSBHDR(999	MEDS+16
PSBIEN	PREOUT+1~, PREOUT+7*, PREOUT+8, OUTPUT+11, OUTPUT+14, OUTPUT+16, OUTPUT+26, OUTPUT+27, OUTPUT+40, OUTPUT+42 , OUTPUT+43, OUTPUT+57, COMNTS+3, COMNTS+6, COMNTS+10, COMNTS+19
PSBIENS	PREOUT+1~, PREOUT+8*, OUTPUT+7, OUTPUT+8, OUTPUT+17, OUTPUT+20, OUTPUT+21, OUTPUT+61, OUTPUT+62, OUTPUT+64 , OUTPUT+72, OUTPUT+75, OUTPUT+76, OUTPUT+79, OUTPUT+80
PSBINIT	COMNTS+1~, COMNTS+13*, COMNTS+15, COMNTS+16, COMNTS+18
PSBMED	PARSEM~, PARSEM+2
PSBMED1	WRAPMEDS+5~, WRAPMEDS+6*
PSBMED41	WRAPMEDS+5~, WRAPMEDS+6*
PSBMED81	WRAPMEDS+5~, WRAPMEDS+6*
PSBMEDX	PARSEM+1~, PARSEM+2, PARSEM+3, PARSEM+4*, PARSEM+5
PSBNAME	COMNTS+1~, COMNTS+14*, COMNTS+15, COMNTS+16
PSBNODE	OUTPUT+4~, OUTPUT+55*, OUTPUT+56, OUTPUT+57
PSBOI	GETOIS+1~, GETOIS+5, GETOIS+6, GETOIS+7
PSBOR	OUT+2~, OUT+5, OUT+7, OUT+8, OUT+9, CLEANALL+1!
PSBORDNM	EN+14, OUT~, OUT+6, OUT+7, OUT+8, GETORDN+2, GETOIS+2, GETOIS+11
PSBPRREC	COMNTS+1~, COMNTS+12*, COMNTS+13, COMNTS+14
>> PSBRPT(	EN+6, EN+7, EN+8
PSBSOL	GETOIS+1~, GETOIS+23*, GETOIS+24, GETOIS+27, OFROMS~, OFROMS+1
PSBSOUT	GETADSO+1~, GETADSO+14!
PSBSOUT("DILIST"	GETADSO+11, GETADSO+12, GETADSO+13
PSBSPC	EN+1~, OUTPUT+5*, OUTPUT+7, OUTPUT+15, OUTPUT+16, OUTPUT+17, OUTPUT+29, OUTPUT+68, OUTPUT+72, OUTPUT+75 , OUTPUT+78, OUTPUT+79, OUTPUT+80, WRAPMEDS+17, WRITEOT+18
PSBSTOP	EN+1~, EN+7, EN+10, EN+11, EN+14, OUT~, WRITEOT+3
PSBSTRT	EN+1~, EN+6, EN+9, EN+12, EN+14, OUT~, WRITEOT+2
PSBUNK	OUTPUT+3~, OUTPUT+11*, OUTPUT+14
PSBY	OUTPUT+4~, OUTPUT+57*, OUTPUT+61, OUTPUT+62, OUTPUT+64
PSTP	WRITEOT+1~, WRITEOT+3*, WRITEOT+4
PSTRTA	WRITEOT+1~, WRITEOT+2*, WRITEOT+4
SBSC	MEDS+1~, MEDS+11, MEDS+12, MEDS+13*, MEDS+14, MEDS+17, CLEANALL+1!
SCHABBR	SCHED~, SCHED+1, SCHED+2
SITE	OUTPUT+19~, OUTPUT+20, OUTPUT+21, OUTPUT+62, OUTPUT+64, WRAPMEDS~, WRAPMEDS+17
SIZE	WRAP~, WRAP+5
SIZE2	WRAP+5~, WRAP+6
SIZE2(	WRAP+7
SIZE2(1	WRAP+5
SIZE2NUM	WRAP+5~, WRAP+6*, WRAP+7
STATABBR	STATUS~, STATUS+1, STATUS+2, STATUS+3, STATUS+4
TEXT	WRAP2~, WRAP2+1!, WRQ+1*
TEXT(	WRAP2+2, WR0+3, WR0+6, WR0+9
TEXTLINE	WRAP2~, WRAP2+2, WR0+1, WR0+3, WR0+4, WR0+5, WR0+6, WR0+7, WR0+8, WR0+9
>> TMP(	MEDS+14, MEDS+17!
>> TMP("ARY"	CLEANALL+1!
>> TMP("PSBADDS"	GETADSO+6*, CLEANALL+1!, CLEANSUM+1!
>> TMP("PSBIENS"	PREOUT+3, PREOUT+4, PREOUT+5, PREOUT+6, WRITEOT+5, CLEANALL+1!, CLEANSUM+1!
>> TMP("PSBOIS"	OUT+8, GETOIS+7, GETOIS+18, GETOIS+27, GETADSO+2, GETADSO+9, MEDS+4, CLEANALL+1!, CLEANSUM+1!
>> TMP("PSBSOLS"	GETADSO+13*, CLEANALL+1!, CLEANSUM+1!
TPE	WRITEOT+1~, WRITEOT+6*, WRITEOT+7, WRITEOT+9, WRITEOT+13, CLEANALL+1!
TYP	PREOUT+1~, PREOUT+2, PREOUT+3, PREOUT+4, PREOUT+5, PREOUT+6, PREOUT+9, OUTPUT~, OUTPUT+24, OUTPUT+62 , OUTPUT+64, OUTPUT+70, OUTPUT+74, OUTPUT+81, OUTPUT+83, OUTPUT+85, COMNTS+4, COMNTS+5, COMNTS+7, COMNTS+21 , WRAP+5, WRAP+7, ADD~, ADD+1, WRAPMEDS~, WRAPMEDS+17, WRAPMEDS+18, MEDS~, MEDS+10, MEDS+11 , MEDS+12, MEDS+13, MEDS+16
U	EN+6, EN+7, OUTPUT+11, OUTPUT+14, OUTPUT+16, OUTPUT+44, OUTPUT+45, OUTPUT+46, OUTPUT+49, OUTPUT+51 , OUTPUT+68, OUTPUT+69, OUTPUT+70
UG	WRAPMEDS~, WRAPMEDS+7*, WRAPMEDS+13
UGWRAP	WRAPMEDS+5~, WRAPMEDS+13*, WRAPMEDS+17, WRAPMEDS+18
UO	WRAPMEDS~, WRAPMEDS+8*, WRAPMEDS+15
UOA	WRAPMEDS~, WRAPMEDS+12, PARSE+10
UOA1	WRAPMEDS+5~, WRAPMEDS+6*, WRAPMEDS+17
UOA16	WRAPMEDS+5~, WRAPMEDS+6*
UOA31	WRAPMEDS+5~, WRAPMEDS+6*
UOAX	WRAPMEDS+5~, PARSE+7, PARSE+8, PARSE+9*, PARSE+10
UOWRAP	WRAPMEDS+5~, WRAPMEDS+15*, WRAPMEDS+17, WRAPMEDS+18
VAR	PARSE+2~, PARSE+3*, PARSE+4
W	OUTPUT+3~, OUTPUT+7, OUTPUT+8, OUTPUT+15, OUTPUT+16, OUTPUT+17, OUTPUT+24, OUTPUT+29, OUTPUT+62, OUTPUT+64 , OUTPUT+72, OUTPUT+73, OUTPUT+74, OUTPUT+75, OUTPUT+78, OUTPUT+79, OUTPUT+80, OUTPUT+81, WRAPMEDS~, WRAPMEDS+17
W2	OUTPUT+3~
W2(	OUTPUT+49*, OUTPUT+66!, OUTPUT+67, OUTPUT+68
W2(""	OUTPUT+66
W22LINE	OUTPUT+3~, OUTPUT+76*, OUTPUT+77
W22NUM	OUTPUT+3~, OUTPUT+82*, OUTPUT+83
W22TEXT	OUTPUT+3~, OUTPUT+77, OUTPUT+82
W22TEXT(	OUTPUT+83
W22TEXT(1	OUTPUT+78
W3	OUTPUT+3~, OUTPUT+68, OUTPUT+69, OUTPUT+70*
WCURSTAT	OUTPUT+3~, OUTPUT+14*, OUTPUT+15
WINIT	OUTPUT+3~, OUTPUT+26, OUTPUT+28, OUTPUT+29, WRITEOT+16, WRITEOT+17, WRITEOT+18
WNAME	OUTPUT+3~, OUTPUT+27, OUTPUT+28, OUTPUT+52, OUTPUT+53, WRITEOT+17*, WRITEOT+18
WNPIEN	OUTPUT+4~, OUTPUT+51*, OUTPUT+52
WOLDSTAT	OUTPUT+4~, OUTPUT+46, OUTPUT+47, OUTPUT+48*, OUTPUT+49
WSUB9	OUTPUT+4~, OUTPUT+43, OUTPUT+44, OUTPUT+45, OUTPUT+46, OUTPUT+51, OUTPUT+68, OUTPUT+69, OUTPUT+70
WSUB9BY	OUTPUT+4~, OUTPUT+45*, OUTPUT+49, OUTPUT+50, OUTPUT+53
WSUB9CNT	OUTPUT+4~, OUTPUT+41, OUTPUT+42, OUTPUT+43, OUTPUT+49, OUTPUT+66, OUTPUT+67, OUTPUT+68
WSUB9DT	OUTPUT+4~, OUTPUT+45*, OUTPUT+49
WUO	OUTPUT+4~, OUTPUT+61*, OUTPUT+62, OUTPUT+64
X	EN+12, PAD~, PAD+1, FTR+3*, FTR+4, MAKELINE~, MAKELINE+3, PARSE~, PARSE+4, PARSE+7
X1	EN+1~, EN+11*
X2	EN+1~, EN+11, EN+12
XA	GETADSO+1~, GETADSO+2, GETADSO+5, GETADSO+9, GETADSO+12, MEDS+1~, MEDS+4, MEDS+5, MEDS+9
XB	GETADSO+1~, GETADSO+4, GETADSO+5, GETADSO+6, GETADSO+11, GETADSO+12, GETADSO+13, MEDS+1~, MEDS+2, MEDS+6 , MEDS+7, MEDS+8, MEDS+9
XBR	COMNTS+1~, COMNTS+11*, COMNTS+18
XDT	PREOUT+1~, PREOUT+4*, PREOUT+5, PREOUT+6
XE	ADD~, ADD+1
XT	COMNTS+1~, COMNTS+6*, COMNTS+10, COMNTS+19
XXX	GETOIS+1~, GETOIS+14, GETOIS+15, GETOIS+16, GETOIS+21, GETOIS+22, GETOIS+23
XXY	GETOIS+1~, GETOIS+15, GETOIS+16, GETOIS+22, GETOIS+23
Y	COMNTS+11, WRITEOT+2, WRITEOT+3, MAKELINE+1~, MAKELINE+2, MAKELINE+3*, MAKELINE+4
Z	COMNTS+1~, COMNTS+2, COMNTS+18, COMNTS+19, MAKELINE+1~, MAKELINE+3*
ZP	WRAP~, WRAP+5

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBOPM

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: