source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSASCR.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 598 bytes
Line 
1YSASCR ;692/DCL-CLOSE ASI RECORD AFTER SIGNATURE ;3/16/98 09:17
2 ;;5.01;MENTAL HEALTH;**24,30,32,38**;Dec 30, 1994
3 Q
4CR(YSASIEN,YSASDUZ,YSASPNI) ;Close Record - pass IEN and DUZ of e-signature
5 Q:$G(YSASIEN)'>0
6 Q:$G(YSASDUZ)'>0
7 N DIC,DIE,DA,DR,X,Y
8 S DIE="^YSTX(604,",DA=YSASIEN
9 S DR=".125///NOW;.81///@;.51///1;.52///`"_YSASDUZ_";5.5///1"
10 S:$G(YSASPNI)>0 DR=DR_";.53///`"_YSASPNI
11 D ^DIE
12 Q
13 ;
14CONV(YSASIEN,YSASDUZT) ;Convert person allowed to edit ASI field to_DUZ
15 Q:$G(YSASIEN)'>0
16 Q:$G(YSASDUZT)'>0
17 N DIC,DIE,DA,DR,X,Y
18 S DIE="^YSTX(604,",DA=YSASIEN
19 S DR=".81///`"_YSASDUZT
20 D ^DIE
21 Q
Note: See TracBrowser for help on using the repository browser.