GMTSCI.m

GMTSCI ; SLC/MKB,KER - Health Summary Component Inquiry ; 02/27/2002

 ;;2.7;Health Summary;**49**;Oct 20, 1995

 ;

 ; External References

 ;   DBIA 10010  EN1^DIP

 ;                 

EN ; Display a Health Summary Component

 S U="^",DIC="^GMT(142.1,",DIC(0)="AEMQ",DIC("A")="Select Health Summary Component Name: " D ^DIC K DIC("A") G:Y=-1 END S (FR,TO)=$P(Y,U,2),GMTSY=+Y

 S BY=".01",DHD="[GMTS COMP INQ HEADER]",FLDS="[GMTS COMP INQ]",L=0 D EN1^DIP K GMTSY

END ; Quit

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMTSCI   482     printed  Dec 13, 2024@01:57:07                                                                                                                                                                                                       Page 2

GMTSCI    ; SLC/MKB,KER - Health Summary Component Inquiry ; 02/27/2002

 +1       ;;2.7;Health Summary;**49**;Oct 20, 1995

 +2       ;

 +3       ; External References

 +4       ;   DBIA 10010  EN1^DIP

 +5       ;                 

EN        ; Display a Health Summary Component

 +1        SET U="^"

           SET DIC="^GMT(142.1,"

           SET DIC(0)="AEMQ"

           SET DIC("A")="Select Health Summary Component Name: "

           DO ^DIC

           KILL DIC("A")

           if Y=-1

               GOTO END

           SET (FR,TO)=$PIECE(Y,U,2)

           SET GMTSY=+Y

 +2        SET BY=".01"

           SET DHD="[GMTS COMP INQ HEADER]"

           SET FLDS="[GMTS COMP INQ]"

           SET L=0

           DO EN1^DIP

           KILL GMTSY

END       ; Quit

 +1        QUIT