|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
485 bytes
|
| Line | |
|---|
| 1 | SDWLCU4 ;IOFO BAY PINES/JS - EWL FILE 409.3 CLEANUP ;2/4/03
|
|---|
| 2 | ;;5.3;scheduling;**280**;AUG 13 1993
|
|---|
| 3 | I '$D(^SCTM(404.46,"B","1.2.3.2")) D
|
|---|
| 4 | .K DO S DIC(0)="LM",DIC("DR")=".02////1;.03////"_DT,DIC="^SCTM(404.46,",X="1.2.3.2" D FILE^DICN
|
|---|
| 5 | I '$D(^SCTM(404.45,"B","SD*5.3*280")) D
|
|---|
| 6 | .S ENTRY=$O(^SCTM(404.46,"B","1.2.3.2",0))
|
|---|
| 7 | .S DIC("DR")=".02////"_(+ENTRY)_";.03////"_DT_";.04////1",DIC(0)="LM"
|
|---|
| 8 | .K DO S X="SD*5.3*280",DIC="^SCTM(404.45," D FILE^DICN
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
