Print Page as PDF
USE OF FILEMAN IN ROUTINE DGMTDD ICR (5163)

USE OF FILEMAN IN ROUTINE DGMTDD    ICR (5163)

Name Value
NUMBER 5163
IA # 5163
GLOBAL ROOT DD(
DATE CREATED 2008/03/25
CUSTODIAL PACKAGE VA FILEMAN
USAGE Private
TYPE File
NAME USE OF FILEMAN IN ROUTINE DGMTDD
GENERAL DESCRIPTION
Routine ^DGMTDD uses a direct global read with ^DD to
get the cross-references for the Current Means Test Status field - file #2,
field #.14.

The code follows: CUR+15      .F  S DGIX=$O(^DD(2,.14,1,DGIX)) Q:'DGIX  X
^(DGIX,2) S X=DGCS CUR+19      .F  S DGIX=$O(^DD(2,.14,1,DGIX)) Q:'DGIX  X
^(DGIX,1) S X=DGMTS
STATUS Pending
DURATION Till Otherwise Agreed
ID DD(
SUBSCRIBING PACKAGE REGISTRATION