Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSBOHDR1

PSBOHDR1.m

Go to the documentation of this file.
  1. PSBOHDR1 ;AITC/CR - REPORT FOR RESPIRATORY THERAPY MEDS ;7/30/18 12:32pm
  1. ;;3.0;BAR CODE MED ADMIN;**103**;Mar 2004;Build 21
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. WARD(PSBWP,PSBHDR,PSBCONT,PSBDT,SRCHTXT) ; called from PSBORT
  1. ; PSBWP: Nurse Location File IEN (optional)
  1. ; PSBHDR: array for header
  1. ; PSBCONT: True if this is a continuation page
  1. ; PSBDT: Date of Pt Information (Default to DT)
  1. ; SRCHTXT: search text - optional
  1. ;
  1. N PSBMODE,PSBWRDA,Y
  1. S:'$G(PSBDT) PSBDT=DT
  1. I '$D(PSBHDR("DATE")) D NOW^%DTC S Y=+$E(%,1,12) D D^DIQ S PSBHDR("DATE")="Run Date: "_Y
  1. S:'$D(PSBHDR("PAGE")) PSBHDR("PAGE")=0
  1. ;W:$Y>1 @IOF
  1. I $E(IOST,1,2)="C-" W !!
  1. E W:$Y>1 @IOF ; printout goes to a printer
  1. W:$X>0 !
  1. W $TR($J("",IOM)," ","=")
  1. W !,$G(PSBHDR(0))
  1. S PSBMODE="Include Inpatient Orders Only"
  1. I $G(PSBHDR(0))]"" W !,PSBMODE
  1. W $G(PSBHDR(1)),?102,PSBHDR("DATE")
  1. I $G(PSBHDR(0))="" W !,PSBMODE
  1. S PSBHDR("PAGE")=PSBHDR("PAGE")+1
  1. W $G(PSBHDR(2)),?103,$J("Page: "_PSBHDR("PAGE"),10)
  1. F X=3:1 Q:'$D(PSBHDR(X)) D
  1. . W !,PSBHDR(X)
  1. . I PSBHDR(X)["Clinic Search" W $$WRAP^PSBO(21,111,SRCHTXT)
  1. . I PSBHDR(X)["Ward Location" W SRCHTXT
  1. I $G(PSBCONT) W !?(IOM-35\2),"*** CONTINUED FROM PREVIOUS PAGE ***"
  1. I $G(PSBMUDV)=1 S X="Division: "_PSBNAME D HDR1 Q ; Div prompt
  1. I $G(PSBMUDV)=2 S X="Division: "_"ALL" D HDR1 Q ; Div prompt
  1. I $G(PSBMUDV)=0 S X="Division: "_$$NAME^XUAF4(DUZ(2)) D HDR1 Q ; no Div prompt, single site support
  1. Q
  1. HDR1 ;
  1. W !,X,!,$TR($J("",IOM)," ","=")
  1. Q