| [613] | 1 | YSSITE ;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 | ;
|
|---|
| 4 | ENREA ; 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 | ;
|
|---|
| 9 | ENCAT ; 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 | ;
|
|---|
| 14 | ENRELC ; 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 | ;
|
|---|
| 19 | ENALT ; 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 | ;
|
|---|
| 24 | ENCKL ; 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 | ;
|
|---|
| 29 | INST ; 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 | ;
|
|---|
| 34 | ENWWU ; 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 | ;
|
|---|
| 39 | ENSIGB ; 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)
|
|---|
| 43 | END ;
|
|---|
| 44 | K DIC,DIE,DA,DR,DLAYGO
|
|---|
| 45 | Q
|
|---|
