MCENDIQ1.m

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