AGMSPI4 ; IHS/SD/EFG - MSP INTERVIEW PART 4 ;
;;7.1;PATIENT REGISTRATION;**8,10**;AUG 25, 2005;Build 7
;
EN ;EP -
W !,"PART IV - Age"
W !
QUES1 ;ASK QUESTION NUMBER 1
S DR=".26 1. Are you currently employed ? (Y/N) "
D ^DIE
K DIE("NO^")
Q:$D(Y) ;AG*7.1*8
S PARTIV1=X
I X="Y" D Q:$D(Y) ;AG*7.1*8
. K AG("MCRCHK")
. S DR=".27 Name of your employer : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
I X="N" D Q:$D(Y) ;AG*7.1*8
. S DR=".28 Date of retirement : "
. D ^DIE
;
QUES2 ;ASK QUESTION NUMBER 2
S DR=".29 Is your spouse currently employed ? (Y/N) "
D ^DIE
K DIE("NO^")
Q:$D(Y) ;AG*7.1*8
S PARTIV2=X
I X="Y" D Q:$D(Y)
. K AG("MCRCHK")
. S DR=".31 Name of spouse's employer : "
. D ^DIE
I X="N" D Q:$D(Y) ;AG*7.1*8
. S DR=".32 Date of retirement : "
. D ^DIE
;I $D(AG("MCRCHK")) W !!,"**BASED ON THE PATIENT'S RESPONSE, MEDICARE IS PRIMARY. DO NOT PROCEED FURTHER**" H 2 Q
S COND1=(($G(PARTI1)="Y")!($G(PARTI2)="Y")!($G(PARTI3)="Y")!($G(PARTI4)="Y")!($G(PARTII1)="Y")!($G(PARTII2)="Y")!($G(PARTII3)="Y"))
I ($G(PARTIV1)="N")&($G(PARTIV2)="N") D Q
. W !,"If the patient answered no to both questions 1 and 2, Medicare is primary"
. W !,"unless the patient answered yes to questions in part I and II."
. S DIR(0)="E"
. S DIR("A")="STOP. DO NOT PROCEED. Press any key to exit."
. D ^DIR ;AG*7.1*8
. K DIR
. Q
;
QUES3 ;ASK QUESTION NUMBER 3
S DR=".33 Do you have group health plan (GHP) coverage based on your own, or a spouse's current employer ? (Y/N) "
S DIE("NO^")=""
D ^DIE
K DIE("NO^")
S PARTIV3=X
I X="N" D Q
. S DIR(0)="E"
. S DIR("A")="STOP. Medicare is primary unless the patient answered yes to the question in part I or II."
. D ^DIR
. K DIR
QUES4 ;ASK QUESTION NUMBER 4
S DR=".34 Does the employer that sponsors your GHP employ 20 or more employees ? (Y/N)"
D ^DIE
K DIE("NO^")
Q:$D(Y) ;AG*7.1*8
S PARTIV4=X
I X="Y" D Q:$D(Y)
. W !,"STOP. The GHP is primary. Obtain the following information:"
. S DR=".35 Name of GHP : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
. S DR=".36 Policy identification number : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
. S DR=".37 Group identification number : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
. S DR=".38 Name of policy holder : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
. S DR=".39 Relationship to patient : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
E W !,"STOP. Medicare is primary payer unless the patient answered yes to questions in part I or II."
S DR=".05////^S X=DUZ"
D ^DIE
Q:$D(Y) ;AG*7.1*8
Q
AGMSPI4 ; IHS/SD/EFG - MSP INTERVIEW PART 4 ;
+1 ;;7.1;PATIENT REGISTRATION;**8,10**;AUG 25, 2005;Build 7
+2 ;
EN ;EP -
+1 WRITE !,"PART IV - Age"
+2 WRITE !
QUES1 ;ASK QUESTION NUMBER 1
+1 SET DR=".26 1. Are you currently employed ? (Y/N) "
+2 DO ^DIE
+3 KILL DIE("NO^")
+4 ;AG*7.1*8
IF $DATA(Y)
QUIT
+5 SET PARTIV1=X
+6 ;AG*7.1*8
IF X="Y"
Begin DoDot:1
+7 KILL AG("MCRCHK")
+8 SET DR=".27 Name of your employer : "
+9 DO ^DIE
+10 ;AG*7.1*8
IF $DATA(Y)
QUIT
End DoDot:1
IF $DATA(Y)
QUIT
+11 ;AG*7.1*8
IF X="N"
Begin DoDot:1
+12 SET DR=".28 Date of retirement : "
+13 DO ^DIE
End DoDot:1
IF $DATA(Y)
QUIT
+14 ;
QUES2 ;ASK QUESTION NUMBER 2
+1 SET DR=".29 Is your spouse currently employed ? (Y/N) "
+2 DO ^DIE
+3 KILL DIE("NO^")
+4 ;AG*7.1*8
IF $DATA(Y)
QUIT
+5 SET PARTIV2=X
+6 IF X="Y"
Begin DoDot:1
+7 KILL AG("MCRCHK")
+8 SET DR=".31 Name of spouse's employer : "
+9 DO ^DIE
End DoDot:1
IF $DATA(Y)
QUIT
+10 ;AG*7.1*8
IF X="N"
Begin DoDot:1
+11 SET DR=".32 Date of retirement : "
+12 DO ^DIE
End DoDot:1
IF $DATA(Y)
QUIT
+13 ;I $D(AG("MCRCHK")) W !!,"**BASED ON THE PATIENT'S RESPONSE, MEDICARE IS PRIMARY. DO NOT PROCEED FURTHER**" H 2 Q
+14 SET COND1=(($GET(PARTI1)="Y")!($GET(PARTI2)="Y")!($GET(PARTI3)="Y")!($GET(PARTI4)="Y")!($GET(PARTII1)="Y")!($GET(PARTII2)="Y")!($GET(PARTII3)="Y"))
+15 IF ($GET(PARTIV1)="N")&($GET(PARTIV2)="N")
Begin DoDot:1
+16 WRITE !,"If the patient answered no to both questions 1 and 2, Medicare is primary"
+17 WRITE !,"unless the patient answered yes to questions in part I and II."
+18 SET DIR(0)="E"
+19 SET DIR("A")="STOP. DO NOT PROCEED. Press any key to exit."
+20 ;AG*7.1*8
DO ^DIR
+21 KILL DIR
+22 QUIT
End DoDot:1
QUIT
+23 ;
QUES3 ;ASK QUESTION NUMBER 3
+1 SET DR=".33 Do you have group health plan (GHP) coverage based on your own, or a spouse's current employer ? (Y/N) "
+2 SET DIE("NO^")=""
+3 DO ^DIE
+4 KILL DIE("NO^")
+5 SET PARTIV3=X
+6 IF X="N"
Begin DoDot:1
+7 SET DIR(0)="E"
+8 SET DIR("A")="STOP. Medicare is primary unless the patient answered yes to the question in part I or II."
+9 DO ^DIR
+10 KILL DIR
End DoDot:1
QUIT
QUES4 ;ASK QUESTION NUMBER 4
+1 SET DR=".34 Does the employer that sponsors your GHP employ 20 or more employees ? (Y/N)"
+2 DO ^DIE
+3 KILL DIE("NO^")
+4 ;AG*7.1*8
IF $DATA(Y)
QUIT
+5 SET PARTIV4=X
+6 IF X="Y"
Begin DoDot:1
+7 WRITE !,"STOP. The GHP is primary. Obtain the following information:"
+8 SET DR=".35 Name of GHP : "
+9 DO ^DIE
+10 ;AG*7.1*8
IF $DATA(Y)
QUIT
+11 SET DR=".36 Policy identification number : "
+12 DO ^DIE
+13 ;AG*7.1*8
IF $DATA(Y)
QUIT
+14 SET DR=".37 Group identification number : "
+15 DO ^DIE
+16 ;AG*7.1*8
IF $DATA(Y)
QUIT
+17 SET DR=".38 Name of policy holder : "
+18 DO ^DIE
+19 ;AG*7.1*8
IF $DATA(Y)
QUIT
+20 SET DR=".39 Relationship to patient : "
+21 DO ^DIE
+22 ;AG*7.1*8
IF $DATA(Y)
QUIT
End DoDot:1
IF $DATA(Y)
QUIT
+23 IF '$TEST
WRITE !,"STOP. Medicare is primary payer unless the patient answered yes to questions in part I or II."
+24 SET DR=".05////^S X=DUZ"
+25 DO ^DIE
+26 ;AG*7.1*8
IF $DATA(Y)
QUIT
+27 QUIT
