Routine: PSBOMT1

Package	Total	Call Graph
VA Fileman	2	LIST^DIC ($$GET1,D)^DIQ
Barcode Medication Administration	1	($$PTFTR,PT)^PSBOHDR

Package	Total	Caller Graph
Barcode Medication Administration	1	PSBOMT

Entry Points

Name	Comments	DBIA/ICR reference
FTR	;
CLEANSUM	; KILL ALL BUN THE "PSBIENS" LEVEL
HDR	; Header
GETADSO	; GET ALL ADDITIVES FOR ALL ORDERABLE ITEMS
PARSE(X,CNT)	;Split text for wrapping.
CLEANALL	; KILL ALL TMP LEVELS USED VARIABLES
PAD(X,CNT)	;
FINDIENS	; USE PSBOIS,PSBADDS AND PSBSOLS TO FIND ALL IENS FOR THE RPT
MAKELINE(X,CNT)	;LINE OF WHAT'S PASSED IN CNT TIMES
LEGEND	; Report Legend

External References

Name	Field # of Occurrence
LIST^DIC	GETADSO+3, GETADSO+10
$$GET1^DIQ	FINDIENS+6, FINDIENS+14, FINDIENS+22, LEGEND+7
D^DIQ	HDR+11, HDR+12
$$PTFTR^PSBOHDR	LEGEND+16
PT^PSBOHDR	LEGEND+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LEGEND+18
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","="),! Line Location: LEGEND+19
Function Call: WRITE	Prompt: !,PSBLGDO(X1) Line Location: LEGEND+20
Function Call: WRITE	Prompt: !!,$TR($J("",IOM)," ","="),! Line Location: LEGEND+21
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
Function Call: WRITE	Prompt: !,"BCMA MEDICATION THERAPY REPORT",?(IOM-$L(PSBDTTM)),PSBDTTM Line Location: FTR+5
Routine Call	DIC Line Location: GETADSO+3 GETADSO+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.79 - [#53.79]	FINDIENS+3, FINDIENS+4, FINDIENS+5, FINDIENS+9, FINDIENS+10, FINDIENS+12, FINDIENS+13, FINDIENS+17, FINDIENS+18, FINDIENS+20 , FINDIENS+21
^TMP("PSB"	CLEANALL+1!, CLEANSUM+1!
^TMP("PSJ1"	CLEANALL+1!, CLEANSUM+1!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	MAKELINE~, MAKELINE+3, PARSE~, PARSE+1, PARSE+4, PAD~, PAD+1
>> CNTX	PARSE+1*, PARSE+2, PARSE+3, PARSE+4
>> CNTXX	PARSE+4*
DUZ(2	HDR+6
IOF	HDR+1
IOM	HDR+7, LEGEND+19, LEGEND+21, FTR+2, FTR+4, FTR+5
IOSL	LEGEND+15, LEGEND+18, FTR+1
>> PSB	LEGEND+6*, LEGEND+7, LEGEND+8
PSBAOUT	GETADSO+1!, GETADSO+7!
PSBAOUT("DILIST"	GETADSO+4, GETADSO+5, GETADSO+6
>> PSBCFLG	HDR+15
>> PSBDT	FINDIENS+3*, FINDIENS+4
>> PSBDTTM	FTR+5
PSBHDR	HDR+9!, LEGEND+17
PSBHDR("NAME"	FTR+4
PSBHDR("ROOM"	FTR+3
PSBHDR("SSN"	FTR+4
PSBHDR("WARD"	FTR+3
PSBHDR(1	HDR+10, HDR+11, HDR+12*
PSBHDR(2	HDR+13, HDR+14
PSBHDR(3	HDR+15, HDR+16
PSBHDR(4	HDR+15*
>> PSBIEN	FINDIENS+4, FINDIENS+5, FINDIENS+6, FINDIENS+9, FINDIENS+10, FINDIENS+12, FINDIENS+13, FINDIENS+14, FINDIENS+17*, FINDIENS+18 , FINDIENS+20, FINDIENS+21, FINDIENS+22
>> PSBINIT	LEGEND+7*
>> PSBLGD("INITIALS"	LEGEND+6, LEGEND+7*, LEGEND+8!, LEGEND+14
>> PSBLGD("ORDER	TYPES" , LEGEND+2, LEGEND+3, LEGEND+4, LEGEND+5, LEGEND+13
PSBLGDO	LEGEND+1!
PSBLGDO(	LEGEND+13, LEGEND+14, LEGEND+20
PSBLGDO(""	LEGEND+15, LEGEND+18, LEGEND+20
PSBLGDO(0	LEGEND+9*
PSBLGDO(1	LEGEND+10*
PSBLGDO(2	LEGEND+11, LEGEND+14
PSBLGDO(3	LEGEND+12*
>> PSBNO	LEGEND+11, LEGEND+13
PSBOIP	CLEANALL+1!
PSBOIP("OIP"	GETADSO+2, GETADSO+9
>> PSBOUTP(""	HDR+5
>> PSBOUTP(0	HDR+4*
>> PSBPG	HDR+5*, HDR+7
>> PSBPGNUM	HDR+4*, HDR+5
>> PSBPGRM	HDR+7*
>> PSBRPNM	HDR+3*
>> PSBRPT(	HDR+8, HDR+11, HDR+12, HDR+14
>> PSBRPT(0	HDR+4, HDR+6
PSBSOUT	GETADSO+1!, GETADSO+14!
PSBSOUT("DILIST"	GETADSO+11, GETADSO+12, GETADSO+13
>> PSBSTOP	FINDIENS+3, FINDIENS+13, FINDIENS+21
>> PSBSTRT	FINDIENS+3, FINDIENS+13, FINDIENS+21
>> PSBXDFN	FINDIENS+3, FINDIENS+4, FINDIENS+9, FINDIENS+10, FINDIENS+17, FINDIENS+18, LEGEND+17
>> TMP("PSBADDS"	GETADSO+6*, FINDIENS+8, CLEANALL+1!, CLEANSUM+1!
>> TMP("PSBIENS"	FINDIENS+6, FINDIENS+14, FINDIENS+22*, CLEANALL+2!, CLEANSUM+1!
>> TMP("PSBOIS"	FINDIENS+2, CLEANSUM+1!
>> TMP("PSBSOLS"	GETADSO+13*, FINDIENS+16, CLEANALL+1!, CLEANSUM+1!
U	FINDIENS+5, FINDIENS+12, FINDIENS+20, HDR+6, HDR+8, HDR+11, HDR+12, HDR+14
>> UOA	PARSE+4
>> UOAX	PARSE+1, PARSE+2, PARSE+3*, PARSE+4
X	FTR+3*, FTR+4, MAKELINE~, MAKELINE+3, PARSE~, PARSE+1, PAD~, PAD+1
>> X1	LEGEND+13, LEGEND+14, LEGEND+20*
>> X2	LEGEND+13, LEGEND+14
>> XA	GETADSO+2, GETADSO+5, GETADSO+9, GETADSO+12, FINDIENS+2, FINDIENS+3, FINDIENS+4, FINDIENS+8, FINDIENS+11, FINDIENS+16* , FINDIENS+19
>> XB	GETADSO+4, GETADSO+5, GETADSO+6, GETADSO+11, GETADSO+12, GETADSO+13, FINDIENS+10, FINDIENS+11, FINDIENS+18, FINDIENS+19
Y	HDR+11, HDR+12, HDR+14, MAKELINE+1~, MAKELINE+2, MAKELINE+3*, MAKELINE+4
Z	MAKELINE+1~, MAKELINE+3*

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBOMT1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend: