source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSSITE.m@ 1524

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

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1YSSITE ;SLC/DJP-Entry & Edit of Mental Health System Site Specific Files ; 10/12/88 15:27 ;
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4ENREA ; Called from MENU option YS SITE-FILE 615.5
5 ;FILE 615.5 - S/R REASONS
6 N YFN
7 S DLAYGO=615,DIC="^YSR(615.5,",DIC(0)="AEQLM" D ^DIC G END:Y'>0 S (DA,YFN)=+Y,DIE=DIC,DR=.01 L +^YSR(615.5,DA) D ^DIE L -^YSR(615.5,YFN) G END
8 ;
9ENCAT ; Called from MENU option YS SITE-FILE 615.6
10 ;FILE 615.6 - S/R CATEGORY
11 N YFN
12 S DLAYGO=615,DIC="^YSR(615.6,",DIC(0)="AEQLM" D ^DIC G END:Y'>0 S (DA,YFN)=+Y,DIE=DIC,DR=.01 L +^YSR(615.6,YFN) D ^DIE L -^YSR(615.6,YFN) G END
13 ;
14ENRELC ; Called from MENU option YS SITE-FILE 615.7
15 ;FILE 615.7 - S/R REL CRITERIA
16 N YFN
17 S DLAYGO=615,DIC="^YSR(615.7,",DIC(0)="AEQML" D ^DIC G END:Y'>0 S (YFN,DA)=+Y,DIE=DIC,DR=.01 L +^YSR(615.7,YFN) D ^DIE L -^YSR(615.7,YFN) G END
18 ;
19ENALT ; Called from MENU option YS SITE-FILE 615.8
20 ;FILE 615.8 - S/R ALTERNATIVES
21 N YFN
22 S DLAYGO=615,DIC="^YSR(615.8,",DIC(0)="AEQLM" D ^DIC G END:Y'>0 S (DA,YFN)=+Y,DIE=DIC,DR=.01 L +^YSR(615.8,YFN) D ^DIE L -^YSR(615.8,YFN) G END
23 ;
24ENCKL ; Called from MENU option YS SITE-FILE 615.9
25 ;FILE 615.9 - S/R CHECKLIST
26 N YFN
27 S DLAYGO=615,DIC="^YSR(615.9,",DIC(0)="AEQLM" D ^DIC G END:Y'>0 S (DA,YFN)=+Y,DIE=DIC,DR=.01 L +^YSR(615.9,YFN) D ^DIE L -^YSR(615.9,YFN) G END
28 ;
29INST ; Called from MENU option YS SITE-FILE 602 TEST LIM
30 ;FILE 602 - MENTAL HEALTH SITE PARAMETER FILE - Instrument Test restart limit
31 N YFN
32 S DIC="^YSA(602,",DIC(0)="EMN",X="`1" D ^DIC G END:Y'>0 S (DA,YFN)=+Y,DIE=DIC,DR=.03 L +^YSA(602,YFN) D ^DIE L -^YSA(602,YFN) G END
33 ;
34ENWWU ; Called from MENU option YS SITE-FILE 602 WWU
35 ;FILE 602 - MENTAL HEALTH SITE PARAMETER FILE - Weighted Work Unit
36 N YFN
37 S DIC="^YSA(602,",DIC(0)="AEQM" D ^DIC G END:Y'>0 S (DA,YFN)=+Y,DIE=DIC,DR=5 L +^YSA(602,YFN) D ^DIE L -^YSA(602,YFN) G END
38 ;
39ENSIGB ; Called from MENU option YS SITE-FILE 16
40 ;FILE 200 - SIGNATURE TITLE BLOCK - For Progress Notes
41 N YFN
42 S DIC="^VA(200,",DIC(0)="AEQM" D ^DIC G END:Y'>0 S (DA,YFN)=+Y,DIE=DIC,DR="20.2;20.3" L +^VA(200,YFN) D ^DIE L -^VA(200,YFN)
43END ;
44 K DIC,DIE,DA,DR,DLAYGO
45 Q
Note: See TracBrowser for help on using the repository browser.