- MCENDIQ1 ;WISC/MLH-GET EXTERNAL FIELD VALUE ;5/4/92 09:54
- ;;2.3;Medicine;;09/13/1996
- VALUE(MCFL,MCRECNO,MCFLDNO) ; get field value
- N DA,DIC,DIQ,DR,MCY
- K ^UTILITY("DIQ1",$J)
- S DIC=MCFL,DR=MCFLDNO,DA=MCRECNO,DIQ(0)="E"
- D EN^DIQ1
- S MCY=$G(^UTILITY("DIQ1",$J,DIC,DA,DR,"E"))
- K ^UTILITY("DIQ1",$J)
- QUIT MCY
- MCENDIQ1 ;WISC/MLH-GET EXTERNAL FIELD VALUE ;5/4/92 09:54
- +1 ;;2.3;Medicine;;09/13/1996
- VALUE(MCFL,MCRECNO,MCFLDNO) ; get field value
- +1 NEW DA,DIC,DIQ,DR,MCY
- +2 KILL ^UTILITY("DIQ1",$JOB)
- +3 SET DIC=MCFL
- SET DR=MCFLDNO
- SET DA=MCRECNO
- SET DIQ(0)="E"
- +4 DO EN^DIQ1
- +5 SET MCY=$GET(^UTILITY("DIQ1",$JOB,DIC,DA,DR,"E"))
- +6 KILL ^UTILITY("DIQ1",$JOB)
- +7 QUIT MCY