source:
FOIAVistA/trunk/r/INCOMPLETE_RECORDS_TRACKING-DGJ/DGJPAR.m@
677
| Last change on this file since 677 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 240 bytes | |
| Line | |
|---|---|
| 1 | DGJPAR ;MAF/ALB - PARAMETER SET UP FOR IRT ; JUN 21,1991@8:00 |
| 2 | ;;1.0;Incomplete Records Tracking;;Jun 25, 2001 |
| 3 | S DIC="^DG(40.8,",DIC(0)="AEMQ" D ^DIC G:Y'>0 QUIT |
| 4 | S DIE=DIC,DA=+Y,DR="[DGJ IRT PARAMETERS]" D ^DIE |
| 5 | QUIT K DIC,DIE,DA,DR,X,Y Q |
Note:
See TracBrowser
for help on using the repository browser.
