source:
FOIAVistA/trunk/r/INCOMPLETE_RECORDS_TRACKING-DGJ/DGJPAR.m@
1528
Last change on this file since 1528 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.