- 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 Feb 18, 2025@23:41:12 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
