source:
WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YS85PRE.m@
789
| Last change on this file since 789 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 465 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | YS85PRE ;ALB/ASF-YS 501 PATCH 85 PRE ; 6/14/07 9:57am |
| 2 | ;;5.01;MENTAL HEALTH;**85**;Dec 30, 1994;Build 49 | |
| 3 | ; initialize national areas | |
| 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 | N YSEX | |
| 7 | D DT^DICRW K ^UTILITY(U,$J),^UTILITY("DIK",$J) | |
| 8 | ENT ; | |
| 9 | F YSEX=71,72,73,74,75,751,76,77,781,79,81,82,83,86,87,88,89,91,93 D | |
| 10 | . S DIK="^YTT(601."_YSEX_"," | |
| 11 | . S DA=0 F S DA=$O(^YTT("601."_YSEX,DA)) Q:DA'>0!(DA>99999) D ^DIK |
Note:
See TracBrowser
for help on using the repository browser.
