YSSITE ;SLC/DJP-Entry & Edit of Mental Health System Site Specific Files ; 10/12/88  15:27 ;
 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
 ;
ENREA ; Called from MENU option YS SITE-FILE 615.5
 ;FILE 615.5 - S/R REASONS
 N YFN
 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
 ;
ENCAT ; Called from MENU option YS SITE-FILE 615.6
 ;FILE 615.6 - S/R CATEGORY
 N YFN
 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
 ;
ENRELC ; Called from MENU option YS SITE-FILE 615.7
 ;FILE 615.7 - S/R REL CRITERIA
 N YFN
 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
 ;
ENALT ; Called from MENU option YS SITE-FILE 615.8
 ;FILE 615.8 - S/R ALTERNATIVES
 N YFN
 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
 ;
ENCKL ; Called from MENU option YS SITE-FILE 615.9
 ;FILE 615.9 - S/R CHECKLIST
 N YFN
 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
 ;
INST ; Called from MENU option YS SITE-FILE 602 TEST LIM
 ;FILE 602 - MENTAL HEALTH SITE PARAMETER FILE - Instrument Test restart limit
 N YFN
 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
 ;
ENWWU ; Called from MENU option YS SITE-FILE 602 WWU
 ;FILE 602 - MENTAL HEALTH SITE PARAMETER FILE - Weighted Work Unit
 N YFN
 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
 ;
ENSIGB ; Called from MENU option YS SITE-FILE 16
 ;FILE 200 - SIGNATURE TITLE BLOCK - For Progress Notes
 N YFN
 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)
END ;
 K DIC,DIE,DA,DR,DLAYGO
 Q