| [613] | 1 | YSLRP ;ALB/ASF-LOOKUP PATIENT 7/13/88 ;12/18/90 18:23 ;
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ; Called by routines YSCEN5, YSCEN51, YSDX3U, YSHX1, YSMV, YSPHY
|
|---|
| 5 | ; YSPPJ, YSPROB, YSPROB4, YSPROBR, YSPTX, YSSR
|
|---|
| 6 | S DIC(0)="ACEQMZ"
|
|---|
| 7 | 1 ; Called by routine YSCEN1
|
|---|
| 8 | D CNCLN S DIC="^DPT(",YSDFN=-1 D ^DIC S YSTOUT=$D(DTOUT),YSUOUT=$D(DUOUT) S:Y>0 YSDFN=+Y,Z1=Y I $D(Y(0)) S:'$D(YSDFN(0)) YSDFN(0)=Y(0)
|
|---|
| 9 | I YSTOUT!YSUOUT!(YSDFN'>0) S YSQT=1 G END
|
|---|
| 10 | PTVAR ;Patient Variables
|
|---|
| 11 | S DFN=YSDFN D DEM^VADPT,PID^VADPT
|
|---|
| 12 | S YSNM=VADM(1),YSSEX=$P(VADM(5),U),YSDOB=$P(VADM(3),U,2),YSAGE=VADM(4),YSSSN=VA("PID")
|
|---|
| 13 | CN ;
|
|---|
| 14 | I '$D(^PTX(YSDFN,"CN"))!$D(YSSCN) G MS
|
|---|
| 15 | S YSLK=$O(^YSG("CNT","AA",YSDFN,"CN",DUZ,0)) G CNPT:'YSLK
|
|---|
| 16 | S YSCM=$O(^YSG("CNT","AD",YSDFN,"SC",0)) G MS:'YSCM,MS:YSLK<YSCM
|
|---|
| 17 | CNPT ;
|
|---|
| 18 | D ENCN^YSPTXR S DIC="^YSG(""CNT"",1,1,",DLAYGO=600,DIC(0)="L",X="""NOW""" D ^DIC S ^YSG("CNT",1,1,+Y,0)=$P(Y,U,2)_U_YSDFN_U_"CN"_U_DUZ,^YSG("CNT","AA",YSDFN,"CN",DUZ,9999999-$P(Y,U,2),+Y)=""
|
|---|
| 19 | MS ;
|
|---|
| 20 | G:'$D(^PTX(YSDFN,"MS"))!$D(YSSCN) END S YSLK=$O(^YSG("CNT","AA",YSDFN,"MS",DUZ,0)) I YSLK>0 S YSCM=$O(^YSG("CNT","AD",YSDFN,"SM",0)) G:YSCM<1!(YSLK'>YSCM) END
|
|---|
| 21 | W !!!?10,"Message(s) are on file for ",$P(^DPT(YSDFN,0),U),!?10,"Last message was entered on " S YSCM=$O(^PTX(YSDFN,"MS",0)),Y=9999999-YSCM D DD^%DT W $C(7,7),Y,!
|
|---|
| 22 | D WAIT^YSUTL
|
|---|
| 23 | S DIC="^YSG(""CNT"",1,1,",DLAYGO=600,DIC(0)="L",X="""NOW""" D ^DIC S ^YSG("CNT",1,1,+Y,0)=$P(Y,U,2)_U_YSDFN_U_"MS"_U_DUZ,^YSG("CNT","AA",YSDFN,"MS",DUZ,9999999-$P(Y,U,2),+Y)=""
|
|---|
| 24 | END ;
|
|---|
| 25 | K YSLK,YSCM,DIC,DIE,DA,DR Q
|
|---|
| 26 | CNCLN ;
|
|---|
| 27 | Q:DT=$G(^YSG("CNT",1,0))
|
|---|
| 28 | L +^YSG("CNT") K ^YSG("CNT",1),^YSG("CNT","B"),^("AA"),^("AD") S ^YSG("CNT",0)="CRISIS NOTE DISPLAY^600.7D^1^1",^YSG("CNT",1,0)=DT,^YSG("CNT",1,1,0)="^600.71DA^0^0",^YSG("CNT","B",DT,1)="" L -^YSG("CNT")
|
|---|
