AGMSPI3.m

AGMSPI3 ; IHS/SD/EFG - MSP INTERVIEW PART 3 ;

 ;;7.1;PATIENT REGISTRATION;**8**;AUG 25, 2005

 ;

EN ;EP -

 W !,"PART III"

 W !

QUES1 ;ASK QUESTION NUMBER 1

 S DR=".25 Are you entitled to Medicare based on (A)ge, (D)isability, or (E)SRD ?"

 D ^DIE

 Q:$D(Y)                                               ;AG*7.1*8

 S PARTIII1=X

 I X="A" D EN^AGMSPI4 Q

 I X="D" D EN^AGMSPI5 Q

 I X="E" D EN^AGMSPI6 Q

 Q

AGMSPI3   ; IHS/SD/EFG - MSP INTERVIEW PART 3 ;

 +1       ;;7.1;PATIENT REGISTRATION;**8**;AUG 25, 2005

 +2       ;

EN        ;EP -

 +1        WRITE !,"PART III"

 +2        WRITE !

QUES1     ;ASK QUESTION NUMBER 1

 +1        SET DR=".25 Are you entitled to Medicare based on (A)ge, (D)isability, or (E)SRD ?"

 +2        DO ^DIE

 +3       ;AG*7.1*8

           IF $DATA(Y)

               QUIT 

 +4        SET PARTIII1=X

 +5        IF X="A"

               DO EN^AGMSPI4

               QUIT 

 +6        IF X="D"

               DO EN^AGMSPI5

               QUIT 

 +7        IF X="E"

               DO EN^AGMSPI6

               QUIT 

 +8        QUIT