Routine: PSBOHDR1

Information

PSBOHDR1 ;AITC/CR - REPORT FOR RESPIRATORY THERAPY MEDS ;7/30/18 12:32pm

Name	Comments	DBIA/ICR reference
WARD(PSBWP,PSBHDR,PSBCONT,PSBDT,SRCHTXT)	; called from PSBORT ; PSBWP: Nurse Location File IEN (optional) ; PSBHDR: array for header ; PSBCONT: True if this is a continuation page ; PSBDT: Date of Pt Information (Default to DT) ; SRCHTXT: search text - optional
HDR1	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: WARD+12
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","=") Line Location: WARD+15
Function Call: WRITE	Prompt: !,$G(PSBHDR(0)) Line Location: WARD+16
Function Call: WRITE	Prompt: !,PSBMODE Line Location: WARD+18
Function Call: WRITE	Prompt: $G(PSBHDR(1)),?102,PSBHDR("DATE") Line Location: WARD+19
Function Call: WRITE	Prompt: !,PSBMODE Line Location: WARD+20
Function Call: WRITE	Prompt: $G(PSBHDR(2)),?103,$J("Page: "_PSBHDR("PAGE"),10) Line Location: WARD+22
Function Call: WRITE	Prompt: !,PSBHDR(X) Line Location: WARD+24
Function Call: WRITE	Prompt: $$WRAP^PSBO(21,111,SRCHTXT) Line Location: WARD+25
Function Call: WRITE	Prompt: SRCHTXT Line Location: WARD+26
Function Call: WRITE	Prompt: !?(IOM-35\2),"* CONTINUED FROM PREVIOUS PAGE *" Line Location: WARD+27
Function Call: WRITE	Prompt: !,X,!,$TR($J("",IOM)," ","=") Line Location: HDR1+1