YSSITE ;SLC/DJP,HIOFO/FT - Entry & Edit of Mental Health System Site Specific Files ;9/15/11 10:28 am
;;5.01;MENTAL HEALTH;**60**;Dec 30, 1994;Build 47
;
;No external references
;
ENREA ; Called from MENU option YS SITE-FILE 615.5
;FILE 615.5 - S/R REASONS
N DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
S DLAYGO=615.5,DIC="^YSR(615.5,",DIC(0)="AEQLM"
D ^DIC Q:Y'>0
S (DA,YFN)=+Y,DIE=DIC,DR=.01
L +^YSR(615.5,DA):DILOCKTM
I '$T D ERRMSG Q
D ^DIE
L -^YSR(615.5,YFN)
Q
ENCAT ; Called from MENU option YS SITE-FILE 615.6
;FILE 615.6 - S/R CATEGORY
N DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
S DLAYGO=615.6,DIC="^YSR(615.6,",DIC(0)="AEQLM"
D ^DIC Q:Y'>0
S (DA,YFN)=+Y,DIE=DIC,DR=.01
L +^YSR(615.6,YFN):DILOCKTM
I '$T D ERRMSG Q
D ^DIE
L -^YSR(615.6,YFN)
Q
ENRELC ; Called from MENU option YS SITE-FILE 615.7
;FILE 615.7 - S/R REL CRITERIA
N DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
S DLAYGO=615.7,DIC="^YSR(615.7,",DIC(0)="AEQML"
D ^DIC Q:Y'>0
S (YFN,DA)=+Y,DIE=DIC,DR=.01
L +^YSR(615.7,YFN):DILOCKTM
I '$T D ERRMSG Q
D ^DIE
L -^YSR(615.7,YFN)
Q
ENALT ; Called from MENU option YS SITE-FILE 615.8
;FILE 615.8 - S/R ALTERNATIVES
N DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
S DLAYGO=615.8,DIC="^YSR(615.8,",DIC(0)="AEQLM"
D ^DIC Q:Y'>0
S (DA,YFN)=+Y,DIE=DIC,DR=.01
L +^YSR(615.8,YFN):DILOCKTM
I '$T D ERRMSG Q
D ^DIE
L -^YSR(615.8,YFN)
Q
ENCKL ; Called from MENU option YS SITE-FILE 615.9
N DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
S DLAYGO=615.9,DIC="^YSR(615.9,",DIC(0)="AEQLM"
D ^DIC Q:Y'>0
S (DA,YFN)=+Y,DIE=DIC,DR=.01
L +^YSR(615.9,YFN):DILOCKTM
I '$T D ERRMSG Q
D ^DIE
L -^YSR(615.9,YFN)
Q
ERRMSG ;Write error message
D EN^DDIOL("Can't lock entry now, please try again later.","","!")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSSITE 1739 printed Dec 13, 2024@02:14:54 Page 2
YSSITE ;SLC/DJP,HIOFO/FT - Entry & Edit of Mental Health System Site Specific Files ;9/15/11 10:28 am
+1 ;;5.01;MENTAL HEALTH;**60**;Dec 30, 1994;Build 47
+2 ;
+3 ;No external references
+4 ;
ENREA ; Called from MENU option YS SITE-FILE 615.5
+1 ;FILE 615.5 - S/R REASONS
+2 NEW DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
+3 SET DLAYGO=615.5
SET DIC="^YSR(615.5,"
SET DIC(0)="AEQLM"
+4 DO ^DIC
if Y'>0
QUIT
+5 SET (DA,YFN)=+Y
SET DIE=DIC
SET DR=.01
+6 LOCK +^YSR(615.5,DA):DILOCKTM
+7 IF '$TEST
DO ERRMSG
QUIT
+8 DO ^DIE
+9 LOCK -^YSR(615.5,YFN)
+10 QUIT
ENCAT ; Called from MENU option YS SITE-FILE 615.6
+1 ;FILE 615.6 - S/R CATEGORY
+2 NEW DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
+3 SET DLAYGO=615.6
SET DIC="^YSR(615.6,"
SET DIC(0)="AEQLM"
+4 DO ^DIC
if Y'>0
QUIT
+5 SET (DA,YFN)=+Y
SET DIE=DIC
SET DR=.01
+6 LOCK +^YSR(615.6,YFN):DILOCKTM
+7 IF '$TEST
DO ERRMSG
QUIT
+8 DO ^DIE
+9 LOCK -^YSR(615.6,YFN)
+10 QUIT
ENRELC ; Called from MENU option YS SITE-FILE 615.7
+1 ;FILE 615.7 - S/R REL CRITERIA
+2 NEW DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
+3 SET DLAYGO=615.7
SET DIC="^YSR(615.7,"
SET DIC(0)="AEQML"
+4 DO ^DIC
if Y'>0
QUIT
+5 SET (YFN,DA)=+Y
SET DIE=DIC
SET DR=.01
+6 LOCK +^YSR(615.7,YFN):DILOCKTM
+7 IF '$TEST
DO ERRMSG
QUIT
+8 DO ^DIE
+9 LOCK -^YSR(615.7,YFN)
+10 QUIT
ENALT ; Called from MENU option YS SITE-FILE 615.8
+1 ;FILE 615.8 - S/R ALTERNATIVES
+2 NEW DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
+3 SET DLAYGO=615.8
SET DIC="^YSR(615.8,"
SET DIC(0)="AEQLM"
+4 DO ^DIC
if Y'>0
QUIT
+5 SET (DA,YFN)=+Y
SET DIE=DIC
SET DR=.01
+6 LOCK +^YSR(615.8,YFN):DILOCKTM
+7 IF '$TEST
DO ERRMSG
QUIT
+8 DO ^DIE
+9 LOCK -^YSR(615.8,YFN)
+10 QUIT
ENCKL ; Called from MENU option YS SITE-FILE 615.9
+1 NEW DIC,DIE,DA,DR,DLAYGO,X,Y,YFN
+2 SET DLAYGO=615.9
SET DIC="^YSR(615.9,"
SET DIC(0)="AEQLM"
+3 DO ^DIC
if Y'>0
QUIT
+4 SET (DA,YFN)=+Y
SET DIE=DIC
SET DR=.01
+5 LOCK +^YSR(615.9,YFN):DILOCKTM
+6 IF '$TEST
DO ERRMSG
QUIT
+7 DO ^DIE
+8 LOCK -^YSR(615.9,YFN)
+9 QUIT
ERRMSG ;Write error message
+1 DO EN^DDIOL("Can't lock entry now, please try again later.","","!")
+2 QUIT
