46 lines
2.1 KiB
Mathematica
46 lines
2.1 KiB
Mathematica
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
|