source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSFORM.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1YSFORM ;SLC/TGA-HEADER & FOOTER FOR FORMS ;3/27/90 15:01 ;
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3ENHD ; 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 ;
17ENFT ; 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 ;
32SITE() ;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
Note: See TracBrowser for help on using the repository browser.