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: AGMSP1

Package: IHS Patient Registration

Routine: AGMSP1


Information

AGMSP1 ; IHS/ASDS/EFG - PRINT PAGE 1 OF MSP FORM ;

Source Information

Source file <AGMSP1.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 1
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 I",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,?50,"Continued on next page ==>"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(4,DUZ(2),0)),U),?73,"PAGE 1"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?2,"1. Are you receiving Black Lung (BL) Benefits ? ",!
  • Line Location: BLANK1+1
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Date primary benefits begin: _______________"
  • Line Location: BLANK1+2
Function Call: WRITE
  • Prompt: !,?14,"BL is primary only for claims related to BL"
  • Line Location: BLANK1+3
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: BLANK1+4
Function Call: WRITE
  • Prompt: !,?2,"2. Are the services to be paid by a government program such as a research"
  • Line Location: BLANK1+5
Function Call: WRITE
  • Prompt: !,?5,"grant ? ",!
  • Line Location: BLANK1+6
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Government Program will pay primary benefits for these services.",!
  • Line Location: BLANK1+7
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: BLANK1+8
Function Call: WRITE
  • Prompt: !,?2,"3. Has the Department of Veteran Affairs (DVA) authorized and agreed to pay"
  • Line Location: BLANK1+9
Function Call: WRITE
  • Prompt: !,?5,"for care at this facility ? ",!
  • Line Location: BLANK1+10
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES: VA is primary for these services."
  • Line Location: BLANK1+11
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: BLANK1+12
Function Call: WRITE
  • Prompt: !,?2,"4. Was the illness/injury due to a work related accident/condition ? ",!
  • Line Location: BLANK1+13
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Date of injury/illness: _______________"
  • Line Location: BLANK1+14
Function Call: WRITE
  • Prompt: !,?14,"Name and address of Workman's Compensation (WC) plan:",!
  • Line Location: BLANK1+15
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+16
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+17
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+18
Function Call: WRITE
  • Prompt: !,?14,"Patient's policy or identification number: _______________"
  • Line Location: BLANK1+19
Function Call: WRITE
  • Prompt: !,?14,"Name and address of your employer:",!
  • Line Location: BLANK1+20
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+21
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+22
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+23
Function Call: WRITE
  • Prompt: !,?2,"WC is primary payer only for claims related to work-related injuries or"
  • Line Location: BLANK1+24
Function Call: WRITE
  • Prompt: !?2,"illness. GO TO PART III.",!
  • Line Location: BLANK1+25
Function Call: WRITE
  • Prompt: !?5,"[ ] NO - GO TO PART II",!
  • Line Location: BLANK1+26
Function Call: WRITE
  • Prompt: !,?2,"1. Are you receiving Black Lung (BL) Benefits ? ",!
  • Line Location: MAP1+1
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Date primary benefits begin: _______________",!
  • Line Location: MAP1+3
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+4
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Date primary benefits begin: _______________",!
  • Line Location: MAP1+6
Function Call: WRITE
  • Prompt: !,?5,"[X] NO",!
  • Line Location: MAP1+7
Function Call: WRITE
  • Prompt: !,?5,"[X] YES Date primary benefits begin: "
  • Line Location: MAP1+9
Function Call: WRITE
  • Prompt: $P(MSPRES(9000037,AG("DA"),.07),U)
  • Line Location: MAP1+10
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+11
Function Call: WRITE
  • Prompt: !,?2,"2. Are the services to be paid by a government program such as a research"
  • Line Location: MAP1+13
Function Call: WRITE
  • Prompt: !,?5,"grant ? ",!
  • Line Location: MAP1+14
Function Call: WRITE
  • Prompt: !,?5,"[X] YES Government Program will pay primary benefits for these services.",!
  • Line Location: MAP1+16
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+17
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Government Program will pay primary benefits for these services.",!
  • Line Location: MAP1+19
Function Call: WRITE
  • Prompt: !,?5,"[X] NO",!
  • Line Location: MAP1+20
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Government Program will pay primary benefits for these services.",!
  • Line Location: MAP1+22
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+23
Function Call: WRITE
  • Prompt: !,?2,"3. Has the Department of Veteran Affairs (DVA) authorized and agreed to pay"
  • Line Location: MAP1+25
Function Call: WRITE
  • Prompt: !,?5,"for care at this facility ? ",!
  • Line Location: MAP1+26
Function Call: WRITE
  • Prompt: !,?5,"[X] YES",!
  • Line Location: MAP1+28
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+29
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: MAP1+31
Function Call: WRITE
  • Prompt: !,?5,"[X] NO",!
  • Line Location: MAP1+32
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: MAP1+34
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO",!
  • Line Location: MAP1+35
Function Call: WRITE
  • Prompt: !,?2,"4. Was the illness/injury due to a work related accident/condition ? ",!
  • Line Location: MAP1+37
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Date of injury/illness: _______________"
  • Line Location: MAP1+39
Function Call: WRITE
  • Prompt: !!,?14,"Name and address of Workman's Compensation (WC) plan:",!
  • Line Location: MAP1+40
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+41
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+42
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+43
Function Call: WRITE
  • Prompt: !,?14,"Patient's policy or identification number: _______________"
  • Line Location: MAP1+44
Function Call: WRITE
  • Prompt: !,?14,"Name and address of your employer:",!
  • Line Location: MAP1+45
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+46
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+47
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+48
Function Call: WRITE
  • Prompt: !,?5,"[X] NO - GO TO PART II"
  • Line Location: MAP1+49
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO - GO TO PART II"
  • Line Location: MAP1+50
Function Call: WRITE
  • Prompt: !,?5,"[X] YES "
  • Line Location: MAP1+52
Function Call: WRITE
  • Prompt: "Date of injury/illness: ",$P(MSPRES(9000037,AG("DA"),.12),U)
  • Line Location: MAP1+54
Function Call: WRITE
  • Prompt: "Date of injury/illness: _______________"
  • Line Location: MAP1+56
Function Call: WRITE
  • Prompt: !,?14,"Name and address of Workman's Compensation (WC) plan:",!
  • Line Location: MAP1+57
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+59
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+60
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+61
Function Call: WRITE
  • Prompt: !,?14,$P(AG("INSADDR"),U),!
  • Line Location: MAP1+65
Function Call: WRITE
  • Prompt: !,?14,$P(AG("INSADDR"),U,2),!
  • Line Location: MAP1+66
Function Call: WRITE
  • Prompt: !,?14,$P(AG("INSADDR"),U,3)
  • Line Location: MAP1+67
Function Call: WRITE
  • Prompt: ", ",$P($G(^DIC(5,$P(AG("INSADDR"),U,4),0)),U,2)
  • Line Location: MAP1+69
Function Call: WRITE
  • Prompt: " ",$P(AG("INSADDR"),U,5),!
  • Line Location: MAP1+70
Function Call: WRITE
  • Prompt: !!,?14,"Patient's policy or identification number: _______________"
  • Line Location: MAP1+72
Function Call: WRITE
  • Prompt: !,?14,"Patient's policy or identification number: ",$P(MSPRES(9000037,AG("DA"),.14),U)
  • Line Location: MAP1+74
Function Call: WRITE
  • Prompt: !,?14,"Name and address of your employer:",!
  • Line Location: MAP1+76
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+77
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+78
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+79
Function Call: WRITE
  • Prompt: !,?14,"Name and address of your employer:",!
  • Line Location: MAP1+84
Function Call: WRITE
  • Prompt: !,?14,$P(AG("EMPADDR"),U),!
  • Line Location: MAP1+85
Function Call: WRITE
  • Prompt: !,?14,$P(AG("EMPADDR"),U,2),!
  • Line Location: MAP1+86
Function Call: WRITE
  • Prompt: !,?14,$P(AG("EMPADDR"),U,3)
  • Line Location: MAP1+87
Function Call: WRITE
  • Prompt: ", ",$P(AG("EMPADDR"),U,5),!
  • Line Location: MAP1+89
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+91
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+92
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+93
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO - GO TO PART II",!
  • Line Location: MAP1+94

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMSP - [#9000037] MAP1+63, MAP1+81
^AUTNEMPL - [#9999999.75] MAP1+83
^AUTNINS - [#9999999.18] MAP1+64
^DIC(4 - [#4] EN+7
^DIC(5 - [#5] MAP1+69, MAP1+88

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+5, MAP1+8, MAP1+10, MAP1+15, MAP1+18, MAP1+21, MAP1+27, MAP1+30, MAP1+33
, MAP1+38, MAP1+49, MAP1+50, MAP1+51, MAP1+53, MAP1+54, MAP1+55, MAP1+58, MAP1+62, MAP1+63
, MAP1+71, MAP1+73, MAP1+74, MAP1+75, MAP1+80, MAP1+81
>> AG("EMPADDR" MAP1+83*, MAP1+85, MAP1+86, MAP1+87, MAP1+88, MAP1+89, MAP1+95!
>> AG("EMPPTR" MAP1+81*, MAP1+82, MAP1+83, MAP1+90, MAP1+95!
>> AG("INSADDR" MAP1+64*, MAP1+65, MAP1+66, MAP1+67, MAP1+68, MAP1+69, MAP1+70, MAP1+95!
>> AG("INSPTR" MAP1+63*, MAP1+64, MAP1+95!
>> AG("MSPPRINT" EN+2, EN+3
>> AGLINE("EQ" EN+6
>> AGLINE("_" BLANK1+16, BLANK1+17, BLANK1+18, BLANK1+21, BLANK1+22, BLANK1+23, MAP1+41, MAP1+42, MAP1+43, MAP1+46
, MAP1+47, MAP1+48, MAP1+59, MAP1+60, MAP1+61, MAP1+77, MAP1+78, MAP1+79, MAP1+91, MAP1+92
, MAP1+93
DUZ(2 EN+7
>> MSPRES(9000037 MAP1+2, MAP1+5, MAP1+8, MAP1+10, MAP1+15, MAP1+18, MAP1+21, MAP1+27, MAP1+30, MAP1+33
, MAP1+38, MAP1+49, MAP1+50, MAP1+51, MAP1+53, MAP1+54, MAP1+55, MAP1+58, MAP1+62, MAP1+71
, MAP1+73, MAP1+74, MAP1+75, MAP1+80
U EN+7, MAP1+2, MAP1+5, MAP1+8, MAP1+10, MAP1+15, MAP1+18, MAP1+21, MAP1+27, MAP1+30
, MAP1+33, MAP1+38, MAP1+49, MAP1+50, MAP1+51, MAP1+53, MAP1+54, MAP1+55, MAP1+58, MAP1+62
, MAP1+63, MAP1+65, MAP1+66, MAP1+67, MAP1+68, MAP1+69, MAP1+70, MAP1+71, MAP1+73, MAP1+74
, MAP1+75, MAP1+80, MAP1+81, MAP1+85, MAP1+86, MAP1+87, MAP1+88, MAP1+89
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All