| 1 | YS85POST ;ALB/ASF-YS 501 PATCH 85 POST ; 7/27/07 2:11pm
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**85**;Dec 30, 1994;Build 48
|
|---|
| 3 | ; LOADS AND INDEXES DD'S
|
|---|
| 4 | ;
|
|---|
| 5 | K DIF,DIK,D,DDF,DDT,DTO,D0,DLAYGO,DIC,DIDUZ,DIR,DA,DFR,DTN,DIX,DZ D DT^DICRW S %=1,U="^",DSEC=1
|
|---|
| 6 | D DT^DICRW K ^UTILITY(U,$J),^UTILITY("DIK",$J)
|
|---|
| 7 | S DIFQ(601.751)=1,DIFQR(601.751)=1,NO=""
|
|---|
| 8 | S DN="^YTQQI" F R=1:1:20 D @(DN_$$B36(R)) W "."
|
|---|
| 9 | S YSIEN=0 F S YSIEN=$O(^UTILITY(U,$J,601.751,YSIEN)) Q:YSIEN'>0 S ^YTT(601.751,YSIEN,0)=^UTILITY(U,$J,601.751,YSIEN,0)
|
|---|
| 10 | S DIK="^YTT(601.751," D IXALL^DIK
|
|---|
| 11 | S YSN=$O(^YTT(601,"B","DOM80",0))
|
|---|
| 12 | S ^YTT(601,YSN,"S",0)="^601.01AI^1^1"
|
|---|
| 13 | S ^YTT(601,YSN,"S",1,0)="1^Total"
|
|---|
| 14 | S ^YTT(601,YSN,"S","B",1,1)=""
|
|---|
| 15 | S ^YTT(601,YSN,"S","C","Total",1)=""
|
|---|
| 16 | K YSN
|
|---|
| 17 | HL7 S DIC=771,X="YS MHA",DIC(0)="M" D ^DIC Q:Y'>0
|
|---|
| 18 | S DA=+Y,DIE=771,DR="3///"_$$KSP^XUPARAM("INST") D ^DIE
|
|---|
| 19 | Q
|
|---|
| 20 | B36(X) Q $$N(X\(36*36)#36+1)_$$N(X\36#36+1)_$$N(X#36+1)
|
|---|
| 21 | N(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
|
|---|
