Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGMSP7

Package: IHS Patient Registration

Routine: AGMSP7


Information

AGMSP7 ; IHS/ASDS/EFG - PRINT PAGE 7 OF MSP FORM ;

Source Information

Source file <AGMSP7.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGMSPFRM  

Entry Points

Name Comments DBIA/ICR reference
BLANK1 ;THIS SECTION IS USED TO PRINT THE BLANK PAGE 7
EN ;EP
MAP1 ;THIS SECTION IS USED TO PRINT THE PATIENT'S DATA ON THE FORM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PART VI - ESRD (con't)",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!!!!!!!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(4,DUZ(2),0)),U),?73,"PAGE 7"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?2,"4. Are you within the 30 month coordination period ? ",!
  • Line Location: BLANK1+1
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: BLANK1+2
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO. STOP. Medicare is primary.",!
  • Line Location: BLANK1+3
Function Call: WRITE
  • Prompt: !,?2,"5. Are you entitled to Medicare on the basis of either ESRD and age or ESRD"
  • Line Location: BLANK1+4
Function Call: WRITE
  • Prompt: !,?5,"and disability ? ",!
  • Line Location: BLANK1+5
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: BLANK1+6
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO. STOP. The group health plan (GHP) is primary during the 30-month"
  • Line Location: BLANK1+7
Function Call: WRITE
  • Prompt: !?19,"coordination period.",!
  • Line Location: BLANK1+8
Function Call: WRITE
  • Prompt: !,?2,"6. Was your initial entitlement to Medicare (including simultaneous"
  • Line Location: BLANK1+9
Function Call: WRITE
  • Prompt: !,?5,"entitlement) based on ESRD ? ",!
  • Line Location: BLANK1+10
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES. STOP. The GHP continues to pay primary during the 30-month"
  • Line Location: BLANK1+11
Function Call: WRITE
  • Prompt: !?19,"coordination period.",!
  • Line Location: BLANK1+12
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO. Initial entitlement is based on age or diability.",!
  • Line Location: BLANK1+13
Function Call: WRITE
  • Prompt: !,?2,"7. Does the working aged or disability MSP provision apply (i.e., is the GHP"
  • Line Location: BLANK1+14
Function Call: WRITE
  • Prompt: !,?5,"primary based on age or disability entitlement) ? ",!
  • Line Location: BLANK1+15
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES. The GHP continues to pay primary during the 30-month"
  • Line Location: BLANK1+16
Function Call: WRITE
  • Prompt: !?14,"coordination period.",!
  • Line Location: BLANK1+17
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO. Medicare continues to pay primary.",!
  • Line Location: BLANK1+18
Function Call: WRITE
  • Prompt: !!!
  • Line Location: BLANK1+19
Function Call: WRITE
  • Prompt: !,?2," SIGNATURE : ______________________________"
  • Line Location: BLANK1+20
Function Call: WRITE
  • Prompt: !,?2," SIGNATURE DATE : __________________"
  • Line Location: BLANK1+21
Function Call: WRITE
  • Prompt: !,?2,"DATE SURVEY GIVEN : __________________"
  • Line Location: BLANK1+22
Function Call: WRITE
  • Prompt: !,?2,"4. Are you within the 30 month coordination period ? ",!
  • Line Location: MAP1+1
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: MAP1+3
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+4
Function Call: WRITE
  • Prompt: !,?5,"[X] NO",!
  • Line Location: MAP1+5
Function Call: WRITE
  • Prompt: !,?5,"[X] YES",!
  • Line Location: MAP1+7
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+8
Function Call: WRITE
  • Prompt: !,?2,"5. Are you entitled to Medicare on the basis of either ESRD and age or ESRD"
  • Line Location: MAP1+10
Function Call: WRITE
  • Prompt: !,?5,"and disability ? ",!
  • Line Location: MAP1+11
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: MAP1+13
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+14
Function Call: WRITE
  • Prompt: !,?5,"[X] NO",!
  • Line Location: MAP1+15
Function Call: WRITE
  • Prompt: !,?5,"[X] YES",!
  • Line Location: MAP1+17
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+18
Function Call: WRITE
  • Prompt: !,?2,"6. Was your initial entitlement to Medicare (including simultaneous"
  • Line Location: MAP1+20
Function Call: WRITE
  • Prompt: !,?5,"entitlement) based on ESRD ? ",!
  • Line Location: MAP1+21
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: MAP1+23
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+24
Function Call: WRITE
  • Prompt: !,?5,"[X] NO",!
  • Line Location: MAP1+25
Function Call: WRITE
  • Prompt: !,?5,"[X] YES",!
  • Line Location: MAP1+27
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+28
Function Call: WRITE
  • Prompt: !,?2,"7. Does the working aged or disability MSP provision apply (i.e., is the GHP"
  • Line Location: MAP1+30
Function Call: WRITE
  • Prompt: !,?5,"primary based on age or disability entitlement) ? ",!
  • Line Location: MAP1+31
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: MAP1+33
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+34
Function Call: WRITE
  • Prompt: !,?5,"[X] NO",!
  • Line Location: MAP1+35
Function Call: WRITE
  • Prompt: !,?5,"[X] YES",!
  • Line Location: MAP1+37
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+38
Function Call: WRITE
  • Prompt: !!!
  • Line Location: MAP1+40
Function Call: WRITE
  • Prompt: !,?2,"SIGNATURE : ",SIGLINE
  • Line Location: MAP1+42
Function Call: WRITE
  • Prompt: !?2,"SIGNATURE DATE : ",Y
  • Line Location: MAP1+45
Function Call: WRITE
  • Prompt: !!?2,"DATE SURVEY GIVEN: ",$P(MSPRES(9000037,AG("DA"),.01),U)
  • Line Location: MAP1+46

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMSP - [#9000037] MAP1+43
^DD("DD" MAP1+44
^DIC(4 - [#4] EN+7

Label References

Name Line Occurrences
BLANK1 EN+2
MAP1 EN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG("DA" MAP1+2, MAP1+4, MAP1+5, MAP1+6, MAP1+12, MAP1+14, MAP1+15, MAP1+16, MAP1+22, MAP1+24
, MAP1+25, MAP1+26, MAP1+32, MAP1+34, MAP1+35, MAP1+36, MAP1+43, MAP1+46
>> AG("MSPPRINT" EN+2, EN+3
>> AGLINE("EQ" EN+6
DUZ(2 EN+7
>> MSPRES(9000037 MAP1+2, MAP1+4, MAP1+5, MAP1+6, MAP1+12, MAP1+14, MAP1+15, MAP1+16, MAP1+22, MAP1+24
, MAP1+25, MAP1+26, MAP1+32, MAP1+34, MAP1+35, MAP1+36, MAP1+46
>> SIGLINE MAP1+41*, MAP1+42
U EN+7, MAP1+2, MAP1+4, MAP1+5, MAP1+6, MAP1+12, MAP1+14, MAP1+15, MAP1+16, MAP1+22
, MAP1+24, MAP1+25, MAP1+26, MAP1+32, MAP1+34, MAP1+35, MAP1+36, MAP1+43, MAP1+46
>> Y MAP1+43*, MAP1+45
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All