GMTSRI.m

GMTSRI ; SLC/DLT,KER - Health Summary Type Inquiry ; 08/27/2002

 ;;2.7;Health Summary;**30,56**;Oct 20, 1995

 ;                      

 ; External References

 ;   DBIA 10010  EN1^DIP

 ;                     

EN ; Inquire/Display a Health Summary Type

 S U="^",DIC="^GMT(142,",DIC(0)="AEMQF"

 S DIC("A")="Select Health Summary Type: "

 S Y=$$TYPE^GMTSULT K DIC("A") G:Y=-1!(Y=U) END S (FR,TO)=$P(Y,"^",2)

 S BY=".01",DHD="[GMTS TYPE INQ HEADER]-[GMTS TYPE INQ FOOTER]"

 S FLDS="[GMTS TYPE INQ]" S L=0 D EN1^DIP

END ; End/Quit without Display

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMTSRI   556     printed  Feb 18, 2025@23:26:26                                                                                                                                                                                                       Page 2

GMTSRI    ; SLC/DLT,KER - Health Summary Type Inquiry ; 08/27/2002

 +1       ;;2.7;Health Summary;**30,56**;Oct 20, 1995

 +2       ;                      

 +3       ; External References

 +4       ;   DBIA 10010  EN1^DIP

 +5       ;                     

EN        ; Inquire/Display a Health Summary Type

 +1        SET U="^"

           SET DIC="^GMT(142,"

           SET DIC(0)="AEMQF"

 +2        SET DIC("A")="Select Health Summary Type: "

 +3        SET Y=$$TYPE^GMTSULT

           KILL DIC("A")

           if Y=-1!(Y=U)

               GOTO END

           SET (FR,TO)=$PIECE(Y,"^",2)

 +4        SET BY=".01"

           SET DHD="[GMTS TYPE INQ HEADER]-[GMTS TYPE INQ FOOTER]"

 +5        SET FLDS="[GMTS TYPE INQ]"

           SET L=0

           DO EN1^DIP

END       ; End/Quit without Display

 +1        QUIT