Routine: PSBOPM

Information

PSBOPM ;BIRMINGHAM/BSR-BCMA OIT HISTORY ; 5/2/07 9:52am

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	4	DD^%DT (C,NOW)^%DTC LIST^DIC ($$GET1,D)^DIQ
Barcode Medication Administration	2	($$PTFTR,PT)^PSBOHDR ($$GETORD,FINDIENS)^PSBOPM1
Inpatient Medications	1	EN^PSJBCMA1
Toolkit	1	$$GET^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
ADD(XE,TYP)
WRITEOT	;
GETADSO	; GET ALL ADDITIVES FOR ALL ORDERABLE ITEMS
OFROMA(PSBADD)	;GET ORDERABLE ITEM FROM AN ADDITIVE
PARSE(X,CNT)	;Split text for wrapping.
WRAP(SIZE,ZP,BRIEN)
FTR()	;
HEADA	;
PREOUT	;
CLEANALL
PAD(X,CNT)	;
WRAPMEDS(MED,UG,UOA,TYP)
OUT(DFN,PSBSTRT,PSBSTOP,PSBORDNM)
EN	;
CLEANSUM
MEDS(TYP)	;
MAKELINE(X,CNT)	;LINE OF WHAT'S PASSED IN CNT TIMES
COMNTS
GETORDN	;
OUTPUT(TYP)	;
OFROMS(PSBSOL)	; GET ORDERABLE ITEM FROM A SOLUTION
GETOIS

External References

Name	Field # of Occurrence
DD^%DT	COMNTS+8
C^%DTC	EN+12
NOW^%DTC	EN+10
LIST^DIC	GETADSO+3, GETADSO+10
$$GET1^DIQ	OFROMA+1, OFROMS+1, OUTPUT+2, OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+13, MEDS+5, MEDS+15
D^DIQ	WRITEOT+2, WRITEOT+3
$$PTFTR^PSBOHDR	WRITEOT+11, WRITEOT+14
PT^PSBOHDR	WRITEOT+8, WRITEOT+12
$$GETORD^PSBOPM1	OUT+6
FINDIENS^PSBOPM1	OUT+12
EN^PSJBCMA1	GETORDN+2
$$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: HEADA+1
Function Call: WRITE	Prompt: "Location",?21,"St Sch Administration Date",?50,"By",?61,"Injection Site",?96,"Units",?112,"Units of" Line Location: HEADA+2
Function Call: WRITE	Prompt: !,?55,"Medication & Dosage",?96,"GIVEN",?112,"Administration" Line Location: HEADA+3
Function Call: WRITE	Prompt: ! Line Location: HEADA+4
Function Call: WRITE	Prompt: $$MAKELINE("-",132) Line Location: HEADA+5
Function Call: WRITE	Prompt: $$PTFTR^PSBOHDR() Line Location: WRITEOT+14
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
^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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	OUTPUT+3, OUTPUT+4, OUTPUT+5, OUTPUT+12, COMNTS+3, COMNTS+6, COMNTS+8, COMNTS+9, COMNTS+10
^TMP("PSB"	ADD+1*, WRITEOT+6, WRITEOT+9, WRITEOT+13, CLEANALL+1!, CLEANSUM+1!
^TMP("PSJ1"	GETORDN+1!, GETOIS+3, GETOIS+4, GETOIS+12, GETOIS+13, GETOIS+14, GETOIS+15, GETOIS+19, GETOIS+20, GETOIS+21 , GETOIS+22, CLEANALL+1!, CLEANSUM+1!
^VA(200 - [#200]	COMNTS+9

Label References

Name	Line Occurrences
$$MAKELINE	COMNTS+5, COMNTS+12, HEADA+5
$$OFROMA	GETOIS+17
$$OFROMS	GETOIS+25
$$PAD	WRAPMEDS+11, WRAPMEDS+12
ADD	OUTPUT+9, OUTPUT+15, COMNTS+4, COMNTS+5, COMNTS+7, COMNTS+12, WRAP+1, WRAP+2, WRAP+3, WRAPMEDS+11 , WRAPMEDS+12, WRITEOT+5
CLEANALL	OUT+1
CLEANSUM	OUT+15
COMNTS	OUTPUT+14
GETADSO	OUT+11
GETOIS	OUT+10
GETORDN	OUT+9
HEADA	WRITEOT+8, WRITEOT+12
MEDS	WRITEOT+7
OUT	EN+14
OUTPUT	PREOUT+9
PARSE	WRAPMEDS+9
PREOUT	OUT+13
WRAP	COMNTS+10
WRAPMEDS	OUTPUT+13
WRITEOT	OUT+14

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+11, WRAPMEDS+8*, WRAPMEDS+9, WRAPMEDS+10, WRAPMEDS+11, WRAPMEDS+12, PAD~ , PAD+1, MAKELINE~, MAKELINE+3, PARSE~, PARSE+1, PARSE+4
>> CNTX	WRAPMEDS+6, PARSE+1, PARSE+2, PARSE+3, PARSE+4
>> CNTXX	PARSE+4*
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+9*, WRITEOT+13
FLE	MEDS+1~, MEDS+11, MEDS+12, MEDS+13*, MEDS+15, CLEANALL+1!
>> I	PREOUT+5*, PREOUT+6, PREOUT+7
IOM	FTR+2, FTR+4, MEDS+6
IOSL	WRITEOT+10, FTR+1
MED	WRAPMEDS~, WRAPMEDS+4, WRAPMEDS+11, MEDS+1~, MEDS+2, MEDS+5*, MEDS+6, MEDS+7, MEDS+8
PSBADD	GETOIS+15*, GETOIS+17, OFROMA~, OFROMA+1
PSBAOUT	GETADSO+1!, GETADSO+7!
PSBAOUT("DILIST"	GETADSO+4, GETADSO+5, GETADSO+6
>> PSBCOM	EN+8, EN+13, OUTPUT+14
>> PSBDD	OUTPUT+11*, OUTPUT+13
>> PSBGBL	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+7*, PREOUT+8, OUTPUT+3, OUTPUT+4, OUTPUT+5, OUTPUT+12, COMNTS+3, COMNTS+6, COMNTS+8, COMNTS+9 , COMNTS+10
>> PSBIENS	PREOUT+8*, OUTPUT+2, OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+13
>> PSBNODE	OUTPUT+10*, OUTPUT+11, OUTPUT+12
>> PSBOI	GETOIS+4, GETOIS+5, GETOIS+6
PSBOR	OUT+4, OUT+6, OUT+7, OUT+8, CLEANALL+1!
PSBORDNM	EN+14, OUT~, OUT+5, OUT+6, OUT+7, GETORDN+2, GETOIS+1, GETOIS+10
>> PSBRPT(	EN+6, EN+7, EN+8
PSBSOL	GETOIS+22*, GETOIS+25, OFROMS~, OFROMS+1
PSBSOUT	GETADSO+1!, GETADSO+14!
PSBSOUT("DILIST"	GETADSO+11, GETADSO+12, GETADSO+13
>> PSBSPC	OUTPUT+1*, OUTPUT+2, OUTPUT+5, OUTPUT+6, OUTPUT+7
PSBSTOP	EN+7, EN+10, EN+11, EN+14, OUT~, WRITEOT+3
PSBSTRT	EN+6, EN+9, EN+12, EN+14, OUT~, WRITEOT+2
PSBUNK	PREOUT+4!, OUTPUT+4*
>> PSBY	OUTPUT+12*, OUTPUT+13
>> PSTP	WRITEOT+3*, WRITEOT+4
>> PSTRTA	WRITEOT+2*, WRITEOT+4
SBSC	MEDS+1~, MEDS+11, MEDS+12, MEDS+13*, MEDS+14, MEDS+17, CLEANALL+1!
SIZE	WRAP~, WRAP+2, WRAP+3
>> 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+7, GETOIS+6, GETOIS+17, GETOIS+25, 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+9, OUTPUT+13 , OUTPUT+15, COMNTS+4, COMNTS+5, COMNTS+7, COMNTS+12, WRAP+1, WRAP+2, WRAP+3, ADD~, ADD+1 , WRAPMEDS~, WRAPMEDS+11, WRAPMEDS+12, MEDS~, MEDS+10, MEDS+11, MEDS+12, MEDS+13, MEDS+16
U	EN+6, EN+7, OUTPUT+3, OUTPUT+4, OUTPUT+5
UG	WRAPMEDS~, WRAPMEDS+7*, WRAPMEDS+10
UGWRAP	WRAPMEDS+5~, WRAPMEDS+10*, WRAPMEDS+11, WRAPMEDS+12
UOA	WRAPMEDS~, WRAPMEDS+9, PARSE+4
>> UOA1	WRAPMEDS+6*, WRAPMEDS+11
>> UOA16	WRAPMEDS+6*
>> UOA31	WRAPMEDS+6*
>> UOAX	PARSE+1, PARSE+2, PARSE+3*, PARSE+4
>> W	OUTPUT+2, OUTPUT+3, OUTPUT+5, OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+9
X	EN+12, PAD~, PAD+1, FTR+3*, FTR+4, MAKELINE~, MAKELINE+3, PARSE~, PARSE+1
>> X1	EN+11*
>> X2	EN+11, EN+12
XA	GETADSO+2, GETADSO+5, GETADSO+9, GETADSO+12, MEDS+1~, MEDS+4, MEDS+5, MEDS+9
XB	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+8*, COMNTS+9
>> XDT	PREOUT+4*, PREOUT+5, PREOUT+6
XE	ADD~, ADD+1
>> XT	COMNTS+6*, COMNTS+8, COMNTS+9, COMNTS+10
>> XXX	GETOIS+13, GETOIS+14, GETOIS+15, GETOIS+20, GETOIS+21, GETOIS+22
>> XXY	GETOIS+14, GETOIS+15, GETOIS+21, GETOIS+22
Y	COMNTS+8, WRITEOT+2, WRITEOT+3, MAKELINE+1~, MAKELINE+2, MAKELINE+3*, MAKELINE+4
Z	COMNTS+1~, COMNTS+2, COMNTS+9, COMNTS+10, MAKELINE+1~, MAKELINE+3*
ZP	WRAP~, WRAP+1

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBOPM

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: