Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
314 bytes
|
Line | |
---|
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.