| 1 | YSFORM ;SLC/TGA-HEADER & FOOTER FOR FORMS ;3/27/90 15:01 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ENHD ; Called by routines YSDX3R, YSDX3R1, YSDX3RU, YSDSR, YSHX1R YSPDR1
|
|---|
| 4 | ; YSPDXR, YSPHYR, YSPP, YSPP1, YSPP1A, YSPP3, YSPP4, YSPP5, YSPP6
|
|---|
| 5 | ; YSPP7, YSPP8, YSPP9, YSPRBR1, YSPRBR2, YSPROB5, YSPROBR, YSPROSE
|
|---|
| 6 | ; YSPTXR
|
|---|
| 7 | ;Generates page header
|
|---|
| 8 | S:'$D(YSCON) YSCON=0 S:'$D(YSFTR) YSFTR="" S:'$D(YSFHDR(1)) YSFHDR(1)="" W @IOF
|
|---|
| 9 | S:'$D(YSLCN) YSLCN=$$SITE,YSLCN="VAMC "_YSLCN
|
|---|
| 10 | I IOST?1"C-".E W YSNM,?47,"SSN ",YSSSN,?65,"DOB ",YSDOB,!
|
|---|
| 11 | I IOST?1"P".E W ! F I0=1:1:80 W "-"
|
|---|
| 12 | I IOST?1"P".E W ! W:YSFTR]"" "MEDICAL RECORD"
|
|---|
| 13 | W ?80-$L(YSFHDR)/2,YSFHDR I IOST?1"P".E W ! F I0=1:1:IOM W "-"
|
|---|
| 14 | W:YSCON !?25,"(Continued from previous page)" X:YSFHDR(1)]"" YSFHDR(1)
|
|---|
| 15 | K I0 S YSCON=0 Q
|
|---|
| 16 | ;
|
|---|
| 17 | ENFT ; Called by routines YSDX3R1, YSDX3RU, YSDXR, YSHX1R YSPDR1
|
|---|
| 18 | ; YSPDXR, YSPHYR, YSPP, YSPP1, YSPP1A, YSPP3, YSPP4, YSPP5
|
|---|
| 19 | ; YSPP7, YSPP8, YSPP9, YSPRBR1, YSPRBR2, YSPROB5, YSPROBR1, YSPROSE
|
|---|
| 20 | ; YSPTXR
|
|---|
| 21 | ;Generates page footer
|
|---|
| 22 | S:'$D(YSFTR) YSFTR="" S:'$D(YSCON) YSCON=0
|
|---|
| 23 | S:'$D(YSLCN) YSLCN=$$SITE,YSLCN="VAMC "_YSLCN
|
|---|
| 24 | F I0=1:1:(IOSL-$Y-9) W !
|
|---|
| 25 | W ! W:YSCON ?28,"(Continued on next page)"
|
|---|
| 26 | W ! F I0=1:1:IOM W "_"
|
|---|
| 27 | W !,YSNM,?(31+(37-$L(YSLCN)/2)),YSLCN W:YSFTR]"" ?69,"VAF 10-9034"
|
|---|
| 28 | I YSFTR]"" S YSFTR(1)="(VICE "_YSFTR_")"
|
|---|
| 29 | W !,YSSSN W:YSDOB]"" " DOB ",YSDOB W:YSFTR]"" ?(80-$L(YSFTR(1))),YSFTR(1)
|
|---|
| 30 | W:IOST?1"P".E ! K I0 Q
|
|---|
| 31 | ;
|
|---|
| 32 | SITE() ;Set YSLOC to location using KERNEL site parameter file entry
|
|---|
| 33 | N DIC,DA,DIQ,DR
|
|---|
| 34 | S YSDA=+$P(^XMB(1,1,"XUS"),U,17)
|
|---|
| 35 | S DIC=4,DR=".01",DA=YSDA,DIQ(0)="EN",DIQ="YSLOC" D EN^DIQ1
|
|---|
| 36 | S YSLOC=$P(YSLOC(4,+YSDA,.01,"E"),",")
|
|---|
| 37 | QUIT YSLOC
|
|---|
