source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YS85POST.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 932 bytes
Line 
1YS85POST ;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
17HL7 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
20B36(X) Q $$N(X\(36*36)#36+1)_$$N(X\36#36+1)_$$N(X#36+1)
21N(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
Note: See TracBrowser for help on using the repository browser.