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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCENDIQ1 324 printed Sep 02, 2024@19:00:06 Page 2
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