|
Last change
on this file since 862 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.
