- 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
