Routine: PSBOPE

Package	Total	Call Graph
Barcode Medication Administration	2	$$GETINIT^PSBCSUTX ($$PTFTR,$$SRCHLIST,PT,WARD)^PSBOHDR
Kernel	1	$$FMTE^XLFDT
VA FileMan	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Called from DQ^PSBO
EN1	; Expects DFN,PSBSTRT,PSBSTOP from EN
PRINT	; Print meds stored in ^TMP("PSB",$J,DFN,....
WRDHDR()	; Ward Header
PTHDR()	; Patient Header

Name	Field # of Occurrence
$$GET1^DIQ	PRINT+15, PRINT+16, PRINT+17, PRINT+37, PRINT+38, PRINT+43, PRINT+44, PRINT+45
$$GETINIT^PSBCSUTX	PRINT+15, PRINT+43
$$PTFTR^PSBOHDR	PRINT+9, PRINT+14, PRINT+18
$$SRCHLIST^PSBOHDR	WRDHDR+2
PT^PSBOHDR	PTHDR+2
WARD^PSBOHDR	WRDHDR+5
$$FMTE^XLFDT	PRINT+6, PRINT+24

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No PRN Medications Found",$$PTFTR^PSBOHDR() Line Location: PRINT+9
Function Call: WRITE	Prompt: $$PTFTR^PSBOHDR(),$$PTHDR() Line Location: PRINT+14
Function Call: WRITE	Prompt: !,"No PRN Medications Found" Line Location: PRINT+27
Function Call: WRITE	Prompt: $$WRDHDR() Line Location: PRINT+42
Function Call: WRITE	Prompt: !?5,"Admin Date/Time",?35,"Medication",?68,"Administered By" Line Location: WRDHDR+9
Function Call: WRITE	Prompt: ?102,"Location" Line Location: WRDHDR+10
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: WRDHDR+11
Function Call: WRITE	Prompt: !,"Admin Date/Time",?30,"Medication",?64,"Administered By" Line Location: PTHDR+3
Function Call: WRITE	Prompt: ?102,"Location" Line Location: PTHDR+4
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: PTHDR+5

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSB(53.79 - [#53.79]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+30, PRINT+31
^PSB(53.79 - [#53.79]	EN1+4, EN1+6, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11
^TMP("PSB"	EN+2!, EN+7!, EN1+12, PRINT+9, PRINT+12, PRINT+27, PRINT+29, PRINT+32, PRINT+34, PRINT+35 , PRINT+41
^TMP("PSBO"	EN+5
^TMP("PSJ"	EN+7!, EN1+2!

Name	Field # of Occurrence
DFN	EN+1~, EN+5, EN1+4, EN1+6, EN1+12, PRINT+1~, PRINT+7, PRINT+9, PRINT+12, PRINT+29* , PRINT+30, PRINT+31, PRINT+32, PRINT+35*, PRINT+37, PRINT+38, PRINT+41, PTHDR+2
IOM	WRDHDR+11, PTHDR+5
IOSL	PRINT+14, PRINT+42
PSBADMIN	EN1+1~
PSBCLINORD	WRDHDR+4~, PTHDR+1~
PSBDFN	EN1+1~
PSBDT	EN1+1~, EN1+3, EN1+4, EN1+6, EN1+10, PRINT+1~
PSBGBL	EN1+1~
PSBHDR	EN1+1~, PRINT+1~, WRDHDR+5, PTHDR+2
PSBHDR(1	PRINT+6, PRINT+24
PSBHDR(2	WRDHDR+3*
PSBHDR(3	WRDHDR+3*
PSBHDR(4	WRDHDR+3*
>> PSBIEN	EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11, EN1+12, PRINT+11, PRINT+12 , PRINT+13, PRINT+15, PRINT+40, PRINT+41, PRINT+43, PRINT+44, PRINT+45
>> PSBIENS	PRINT+13*, PRINT+15, PRINT+16, PRINT+17
>> PSBINDX	PRINT+30, PRINT+31, PRINT+32, PRINT+33, PRINT+34, PRINT+35
PSBMED	EN1+1~, PRINT+1~
PSBORD	EN1+1~
PSBOSTRT	EN1+1~
>> PSBRPT(	EN+3, EN+4, PRINT+5, PRINT+7, PRINT+23, PRINT+25, PRINT+28, PRINT+37, PRINT+38, WRDHDR+6 , WRDHDR+7
PSBSCHED	EN1+1~
>> PSBSORT	PRINT+28*, PRINT+30
PSBSRCHL	WRDHDR+1~, WRDHDR+2*, WRDHDR+5
PSBSTOP	EN+1~, EN+4*, EN1+4, EN1+11, PRINT+6, PRINT+24
PSBSTRT	EN+1~, EN+3*, EN1+3, PRINT+6, PRINT+24
>> PSBWARD	PRINT+25*
>> PSBWRD	WRDHDR+5
PSBX	EN1+1~
U	EN+3, EN+4, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11, PRINT+5, PRINT+7, PRINT+23 , PRINT+25, PRINT+28, PRINT+30, PRINT+31, PRINT+37, PRINT+38, WRDHDR+6, WRDHDR+7