Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MCENDIQ1

MCENDIQ1.m

Go to the documentation of this file.
  1. MCENDIQ1 ;WISC/MLH-GET EXTERNAL FIELD VALUE ;5/4/92 09:54
  1. ;;2.3;Medicine;;09/13/1996
  1. VALUE(MCFL,MCRECNO,MCFLDNO) ; get field value
  1. N DA,DIC,DIQ,DR,MCY
  1. K ^UTILITY("DIQ1",$J)
  1. S DIC=MCFL,DR=MCFLDNO,DA=MCRECNO,DIQ(0)="E"
  1. D EN^DIQ1
  1. S MCY=$G(^UTILITY("DIQ1",$J,DIC,DA,DR,"E"))
  1. K ^UTILITY("DIQ1",$J)
  1. QUIT MCY