DGMTLK.m

DGMTLK ;ALB/RMO - Look-up a Means Test for a Patient ;28 MAY 1992 10:41 am

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

 ; Input  -- DFN      Patient IEN

 ;           DIC      DIC variables as defined by FM ^DIC call

 ;                    DIC("A"), DIC("B"), DIC("S") are Optional

 ;                    Special Notes:

 ;                     - DIC(0) should NOT contain A, M or N for

 ;                       performance purposes

 ;                     - DIC("B") should be in internal format and will

 ;                       be converted to external format when displayed

 ; Output -- All variables as defined by FM ^DIC call

 ;

EN ;Entry point to look-up a means test for a patient

 W !,$S($D(DIC("A")):DIC("A"),1:"Select DATE OF TEST: ") I $D(DIC("B")) S %=DIC("B") D DT^DGUTL K % W "// "

 R X:DTIME I '$T S DTOUT=1,Y=-1 G Q

 I X="",$D(DIC("B")) S X=DIC("B")

 S:X["^" DUOUT=1 I X["^"!(X="") S Y=-1 G Q

 I X["?" S D="ADFN"_DFN D IX^DIC K D G EN

 D ^DIC G EN:Y<0

Q Q

DGMTLK    ;ALB/RMO - Look-up a Means Test for a Patient ;28 MAY 1992 10:41 am

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ; Input  -- DFN      Patient IEN

 +4       ;           DIC      DIC variables as defined by FM ^DIC call

 +5       ;                    DIC("A"), DIC("B"), DIC("S") are Optional

 +6       ;                    Special Notes:

 +7       ;                     - DIC(0) should NOT contain A, M or N for

 +8       ;                       performance purposes

 +9       ;                     - DIC("B") should be in internal format and will

 +10      ;                       be converted to external format when displayed

 +11      ; Output -- All variables as defined by FM ^DIC call

 +12      ;

EN        ;Entry point to look-up a means test for a patient

 +1        WRITE !,$SELECT($DATA(DIC("A")):DIC("A"),1:"Select DATE OF TEST: ")

           IF $DATA(DIC("B"))

               SET %=DIC("B")

               DO DT^DGUTL

               KILL %

               WRITE "// "

 +2        READ X:DTIME

           IF '$TEST

               SET DTOUT=1

               SET Y=-1

               GOTO Q

 +3        IF X=""

               IF $DATA(DIC("B"))

                   SET X=DIC("B")

 +4        IF X["^"

               SET DUOUT=1

           IF X["^"!(X="")

               SET Y=-1

               GOTO Q

 +5        IF X["?"

               SET D="ADFN"_DFN

               DO IX^DIC

               KILL D

               GOTO EN

 +6        DO ^DIC

           IF Y<0

               GOTO EN

Q          QUIT