Routine: PSBOPE

Package	Total	Call Graph
Barcode Medication Administration	1	($$PTFTR,PT,WARD)^PSBOHDR
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	$$GET1^DIQ

Entry Points

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

Name	Field # of Occurrence
$$GET1^DIQ	PRINT+15, PRINT+16, PRINT+36, PRINT+37, PRINT+42, PRINT+43
$$PTFTR^PSBOHDR	PRINT+9, PRINT+14, PRINT+17
PT^PSBOHDR	PTHDR+1
WARD^PSBOHDR	WRDHDR+1
$$FMTE^XLFDT	PRINT+6, PRINT+23

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+26
Function Call: WRITE	Prompt: $$WRDHDR() Line Location: PRINT+41
Function Call: WRITE	Prompt: !?5,"Administration Date/Time",?35,"Medication",?77,"Administered By" Line Location: WRDHDR+4
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: WRDHDR+5
Function Call: WRITE	Prompt: !,"Administration Date/Time",?30,"Medication",?72,"Administered By" Line Location: PTHDR+2
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: PTHDR+3

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

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+29, PRINT+30
^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+26, PRINT+28, PRINT+31, PRINT+33, PRINT+34 , PRINT+40
^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+28* , PRINT+29, PRINT+30, PRINT+31, PRINT+34*, PRINT+36, PRINT+37, PRINT+40, PTHDR+1
IOM	WRDHDR+5, PTHDR+3
IOSL	PRINT+14, PRINT+41
PSBADMIN	EN1+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+1, PTHDR+1
PSBHDR(1	PRINT+6, PRINT+23
>> PSBIEN	EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11, EN1+12, PRINT+11, PRINT+12 , PRINT+13, PRINT+39, PRINT+40, PRINT+42, PRINT+43
>> PSBIENS	PRINT+13*, PRINT+15, PRINT+16
>> PSBINDX	PRINT+29, PRINT+30, PRINT+31, PRINT+32, PRINT+33, PRINT+34
PSBMED	EN1+1~, PRINT+1~
PSBORD	EN1+1~
PSBOSTRT	EN1+1~
>> PSBRPT(	EN+3, EN+4, PRINT+5, PRINT+7, PRINT+22, PRINT+24, PRINT+27, PRINT+36, PRINT+37, WRDHDR+2 , WRDHDR+3
PSBSCHED	EN1+1~
>> PSBSORT	PRINT+27*, PRINT+29
PSBSTOP	EN+1~, EN+4*, EN1+4, EN1+11, PRINT+6, PRINT+23
PSBSTRT	EN+1~, EN+3*, EN1+3, PRINT+6, PRINT+23
>> PSBWARD	PRINT+24*
>> PSBWRD	WRDHDR+1
PSBX	EN1+1~
U	EN+3, EN+4, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11, PRINT+5, PRINT+7, PRINT+22 , PRINT+24, PRINT+27, PRINT+29, PRINT+30, PRINT+36, PRINT+37, WRDHDR+2, WRDHDR+3