Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
314 bytes
|
Rev | Line | |
---|
[613] | 1 | MCENDIQ1 ;WISC/MLH-GET EXTERNAL FIELD VALUE ;5/4/92 09:54
|
---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
---|
| 3 | VALUE(MCFL,MCRECNO,MCFLDNO) ; get field value
|
---|
| 4 | N DA,DIC,DIQ,DR,MCY
|
---|
| 5 | K ^UTILITY("DIQ1",$J)
|
---|
| 6 | S DIC=MCFL,DR=MCFLDNO,DA=MCRECNO,DIQ(0)="E"
|
---|
| 7 | D EN^DIQ1
|
---|
| 8 | S MCY=$G(^UTILITY("DIQ1",$J,DIC,DA,DR,"E"))
|
---|
| 9 | K ^UTILITY("DIQ1",$J)
|
---|
| 10 | QUIT MCY
|
---|
Note:
See
TracBrowser
for help on using the repository browser.