AGMSPI5 ; IHS/SD/EFG - MSP INTERVIEW PART 5 ;
;;7.1;PATIENT REGISTRATION;**8,10**;AUG 25, 2005;Build 7
;
EN ;EP -
W !,"PART V - Disability"
W !
QUES1 ;ASK QUESTION NUMBER 1
S DR=".41 Are you currently employed ? (Y/N) "
D ^DIE
K DIR("NO^")
Q:$D(Y) ;AG*7.1*8
S PARTV1=X
I X="Y" D Q:$D(Y) ;AG*7.1*8
. S DR=".42 Name of your employer : "
. D ^DIE
I X="N" D Q:$D(Y) ;AG*7.1*8
. S DR=".43 Date of retirement : "
. D ^DIE
QUES2 ;ASK QUESTION NUMBER 2
S DR=".44 Is a family member currently employed ? (Y/N) "
D ^DIE
K DIE("NO^")
Q:$D(Y) ;AG*7.1*8
S PARTV2=X
I X="Y" D Q:$D(Y) ;AG*7.1*8
. S DR=".45 Name of the family member's employer : "
. D ^DIE
I ($G(PARTV1)="N")&($G(PARTV2)="N") D Q ;AG*7.1*8
. W !,"If the patient answers no to both questions 1 and 2, Medicare is primary"
. W !,"unless the patient answered yes to questions in part I or 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=".46 Do you have group health plan (GHP) coverage based on your own, or a family member's current employment ? (Y/N) "
D ^DIE
K DIE("NO^")
Q:$D(Y) ;AG*7.1*8
S PARTV3=X
; I X="N" W !,"STOP. Medicare is primary unless the patient answered yes to questions in part I or II." ;AG*7.1*8
QUES4 ;ASK QUESTION NUMBER 4
S DR=".47 Does the employer that sponsors your GHP employ 100 or more amployees ? (Y/N)"
D ^DIE
K DIE("NO^")
Q:$D(Y) ;AG*7.1*8
S PARTV4=X
I X="Y" D Q:$D(Y)
.W !,"The GHP is primary. Obtain the following information:"
. S DR=".48 Name of GHP : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
. S DR=".49 Policy identification number : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
. S DR=".51 Group identification number : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
. S DR=".52 Name of policy holder : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
. S DR=".53 Relationship to patient : "
. D ^DIE
. Q:$D(Y) ;AG*7.1*8
; E W !,"STOP. Medicare is primary unless the patient answered yes to questions in part I and II." ;AG*7.1*8
S DR=".05////^S X=DUZ"
D ^DIE
Q
AGMSPI5 ; IHS/SD/EFG - MSP INTERVIEW PART 5 ;
+1 ;;7.1;PATIENT REGISTRATION;**8,10**;AUG 25, 2005;Build 7
+2 ;
EN ;EP -
+1 WRITE !,"PART V - Disability"
+2 WRITE !
QUES1 ;ASK QUESTION NUMBER 1
+1 SET DR=".41 Are you currently employed ? (Y/N) "
+2 DO ^DIE
+3 KILL DIR("NO^")
+4 ;AG*7.1*8
IF $DATA(Y)
QUIT
+5 SET PARTV1=X
+6 ;AG*7.1*8
IF X="Y"
Begin DoDot:1
+7 SET DR=".42 Name of your employer : "
+8 DO ^DIE
End DoDot:1
IF $DATA(Y)
QUIT
+9 ;AG*7.1*8
IF X="N"
Begin DoDot:1
+10 SET DR=".43 Date of retirement : "
+11 DO ^DIE
End DoDot:1
IF $DATA(Y)
QUIT
QUES2 ;ASK QUESTION NUMBER 2
+1 SET DR=".44 Is a family member currently employed ? (Y/N) "
+2 DO ^DIE
+3 KILL DIE("NO^")
+4 ;AG*7.1*8
IF $DATA(Y)
QUIT
+5 SET PARTV2=X
+6 ;AG*7.1*8
IF X="Y"
Begin DoDot:1
+7 SET DR=".45 Name of the family member's employer : "
+8 DO ^DIE
End DoDot:1
IF $DATA(Y)
QUIT
+9 ;AG*7.1*8
IF ($GET(PARTV1)="N")&($GET(PARTV2)="N")
Begin DoDot:1
+10 WRITE !,"If the patient answers no to both questions 1 and 2, Medicare is primary"
+11 WRITE !,"unless the patient answered yes to questions in part I or II."
+12 SET DIR(0)="E"
+13 SET DIR("A")="STOP. DO NOT PROCEED. Press any key to exit."
+14 ;AG*7.1*8
DO ^DIR
+15 KILL DIR
+16 QUIT
End DoDot:1
QUIT
+17 ;
QUES3 ;ASK QUESTION NUMBER 3
+1 SET DR=".46 Do you have group health plan (GHP) coverage based on your own, or a family member's current employment ? (Y/N) "
+2 DO ^DIE
+3 KILL DIE("NO^")
+4 ;AG*7.1*8
IF $DATA(Y)
QUIT
+5 SET PARTV3=X
+6 ; I X="N" W !,"STOP. Medicare is primary unless the patient answered yes to questions in part I or II." ;AG*7.1*8
QUES4 ;ASK QUESTION NUMBER 4
+1 SET DR=".47 Does the employer that sponsors your GHP employ 100 or more amployees ? (Y/N)"
+2 DO ^DIE
+3 KILL DIE("NO^")
+4 ;AG*7.1*8
IF $DATA(Y)
QUIT
+5 SET PARTV4=X
+6 IF X="Y"
Begin DoDot:1
+7 WRITE !,"The GHP is primary. Obtain the following information:"
+8 SET DR=".48 Name of GHP : "
+9 DO ^DIE
+10 ;AG*7.1*8
IF $DATA(Y)
QUIT
+11 SET DR=".49 Policy identification number : "
+12 DO ^DIE
+13 ;AG*7.1*8
IF $DATA(Y)
QUIT
+14 SET DR=".51 Group identification number : "
+15 DO ^DIE
+16 ;AG*7.1*8
IF $DATA(Y)
QUIT
+17 SET DR=".52 Name of policy holder : "
+18 DO ^DIE
+19 ;AG*7.1*8
IF $DATA(Y)
QUIT
+20 SET DR=".53 Relationship to patient : "
+21 DO ^DIE
+22 ;AG*7.1*8
IF $DATA(Y)
QUIT
End DoDot:1
IF $DATA(Y)
QUIT
+23 ; E W !,"STOP. Medicare is primary unless the patient answered yes to questions in part I and II." ;AG*7.1*8
+24 SET DR=".05////^S X=DUZ"
+25 DO ^DIE
+26 QUIT
