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

Package: IHS Patient Registration

Routine: AGMSP2


Information

AGMSP2 ; IHS/ASDS/EFG - PRINT PAGE 2 OF MSP FORM ;

Source Information

Source file <AGMSP2.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 2
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 II",!
  • 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 2"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?2,"1. Was the illness/injury due to a non-work-related accident ? ",!
  • Line Location: BLANK1+1
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Date of accident : _______________",!
  • Line Location: BLANK1+2
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO - GO TO PART III",!
  • Line Location: BLANK1+3
Function Call: WRITE
  • Prompt: !,?2,"2. What type of accident caused the illness/injury ? ",!
  • Line Location: BLANK1+4
Function Call: WRITE
  • Prompt: !,?5,"[ ] Automobile",!
  • Line Location: BLANK1+5
Function Call: WRITE
  • Prompt: !,?5,"[ ] Non-Automobile",!
  • Line Location: BLANK1+6
Function Call: WRITE
  • Prompt: !,?14,"Name and address of no-fault or liability insurer : ",!
  • Line Location: BLANK1+7
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+8
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+9
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+10
Function Call: WRITE
  • Prompt: !,?5,"Insurance claim number : _______________",!
  • Line Location: BLANK1+11
Function Call: WRITE
  • Prompt: !,"No-fault insurer is primary payer only for those claims related to the accident."
  • Line Location: BLANK1+12
Function Call: WRITE
  • Prompt: !,"GO TO PART III.",!
  • Line Location: BLANK1+13
Function Call: WRITE
  • Prompt: !,?5,"[ ] Other",!
  • Line Location: BLANK1+14
Function Call: WRITE
  • Prompt: !?2,"3. Was another party responsible for this accident ? ",!
  • Line Location: BLANK1+15
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: BLANK1+16
Function Call: WRITE
  • Prompt: !,?14,"Name and address of any liability insurer : ",!
  • Line Location: BLANK1+17
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+18
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+19
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: BLANK1+20
Function Call: WRITE
  • Prompt: !,?14,"Insurance claim number : _______________",!
  • Line Location: BLANK1+21
Function Call: WRITE
  • Prompt: !?2,"The liability insurer is primary only for those claims related to"
  • Line Location: BLANK1+22
Function Call: WRITE
  • Prompt: !?2,"the accident. GO TO PART III.",!
  • Line Location: BLANK1+23
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO - GO TO PART III",!
  • Line Location: BLANK1+24
Function Call: WRITE
  • Prompt: !,?2,"1. Was the illness/injury due to a non-work related accident ? ",!
  • Line Location: MAP1+1
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Date of accident : _______________",!
  • Line Location: MAP1+3
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO - GO TO PART III",!
  • Line Location: MAP1+4
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES Date of accident : _______________",!
  • Line Location: MAP1+6
Function Call: WRITE
  • Prompt: !,?5,"[X] NO - GO TO PART III",!
  • Line Location: MAP1+7
Function Call: WRITE
  • Prompt: !,?5,"[X] YES Date of accident : "
  • Line Location: MAP1+9
Function Call: WRITE
  • Prompt: $P(MSPRES(9000037,AG("DA"),.17),U)
  • Line Location: MAP1+10
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO - GO TO PART III",!
  • Line Location: MAP1+11
Function Call: WRITE
  • Prompt: !,?2,"2. What type of accident caused the illness/injury ? ",!
  • Line Location: MAP1+13
Function Call: WRITE
  • Prompt: !,?5,"[ ] Automobile",!
  • Line Location: MAP1+15
Function Call: WRITE
  • Prompt: !,?5,"[ ] Non-Automobile",!
  • Line Location: MAP1+16
Function Call: WRITE
  • Prompt: !,?5,"Name and address of no-fault or liability insurer : ",!
  • Line Location: MAP1+17
Function Call: WRITE
  • Prompt: !,?5,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+18
Function Call: WRITE
  • Prompt: !,?5,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+19
Function Call: WRITE
  • Prompt: !,?5,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+20
Function Call: WRITE
  • Prompt: !,?5,"Insurance claim number : _______________",!
  • Line Location: MAP1+21
Function Call: WRITE
  • Prompt: !,?5,"[ ] Other",!
  • Line Location: MAP1+22
Function Call: WRITE
  • Prompt: !,?5,"[X] Other",!
  • Line Location: MAP1+23
Function Call: WRITE
  • Prompt: !,?5,"[X] Automobile",!
  • Line Location: MAP1+26
Function Call: WRITE
  • Prompt: !,?5,"[ ] Non-Automobile",!
  • Line Location: MAP1+27
Function Call: WRITE
  • Prompt: !,?5,"[ ] Automobile",!
  • Line Location: MAP1+29
Function Call: WRITE
  • Prompt: !,?5,"[X] Non-Automobile",!
  • Line Location: MAP1+30
Function Call: WRITE
  • Prompt: !,?5,"Name and address of no-fault or liability insurer : ",!
  • Line Location: MAP1+31
Function Call: WRITE
  • Prompt: !,?5,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+33
Function Call: WRITE
  • Prompt: !,?5,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+34
Function Call: WRITE
  • Prompt: !,?5,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+35
Function Call: WRITE
  • Prompt: !,?5,$P(AG("INSADDR"),U),!
  • Line Location: MAP1+39
Function Call: WRITE
  • Prompt: !,?5,$P(AG("INSADDR"),U,2),!
  • Line Location: MAP1+40
Function Call: WRITE
  • Prompt: !,?5,$P(AG("INSADDR"),U,3)
  • Line Location: MAP1+41
Function Call: WRITE
  • Prompt: ", ",$P($G(^DIC(5,$P(AG("INSADDR"),U,4),0)),U,2)
  • Line Location: MAP1+43
Function Call: WRITE
  • Prompt: ", ",$P(AG("INSADDR"),U,5),!
  • Line Location: MAP1+44
Function Call: WRITE
  • Prompt: !,?5,"Insurance claim number : _______________",!
  • Line Location: MAP1+46
Function Call: WRITE
  • Prompt: !,?5,"Insurance claim number : ",$P(MSPRES(9000037,AG("DA"),.21),U),!
  • Line Location: MAP1+48
Function Call: WRITE
  • Prompt: !,?5,"[ ] Other",!
  • Line Location: MAP1+49
Function Call: WRITE
  • Prompt: !?2,"3. Was another party responsible for this accident ? ",!
  • Line Location: MAP1+51
Function Call: WRITE
  • Prompt: !,?5,"[ ] YES",!
  • Line Location: MAP1+53
Function Call: WRITE
  • Prompt: !,?14,"Name and address of any liability insurer : ",!
  • Line Location: MAP1+54
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+55
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+56
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+57
Function Call: WRITE
  • Prompt: !,?14,"Insurance claim number : _______________",!
  • Line Location: MAP1+58
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO - GO TO PART III",!
  • Line Location: MAP1+59
Function Call: WRITE
  • Prompt: !,?5,"[X] NO - GO TO PART III",!
  • Line Location: MAP1+60
Function Call: WRITE
  • Prompt: !,?5,"[X] YES",!
  • Line Location: MAP1+62
Function Call: WRITE
  • Prompt: !,?14,"Name and address of any liability insurer : ",!
  • Line Location: MAP1+63
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+65
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+66
Function Call: WRITE
  • Prompt: !,?14,$E(AGLINE("_"),1,50),!
  • Line Location: MAP1+67
Function Call: WRITE
  • Prompt: !,?14,$P(AG("INSADDR"),U),!
  • Line Location: MAP1+71
Function Call: WRITE
  • Prompt: !,?14,$P(AG("INSADDR"),U,2),!
  • Line Location: MAP1+72
Function Call: WRITE
  • Prompt: !,?14,$P(AG("INSADDR"),U,3)
  • Line Location: MAP1+73
Function Call: WRITE
  • Prompt: ", ",$P($G(^DIC(5,$P(AG("INSADDR"),U,4)),0),U,2)
  • Line Location: MAP1+75
Function Call: WRITE
  • Prompt: ", ",$P(AG("INSADDR"),U,5),!
  • Line Location: MAP1+76
Function Call: WRITE
  • Prompt: !,?5,"Insurance claim number : _______________",!
  • Line Location: MAP1+78
Function Call: WRITE
  • Prompt: !,?5,"Insurance claim number : ",$P(MSPRES(9000037,AG("DA"),.24),U),!
  • Line Location: MAP1+80
Function Call: WRITE
  • Prompt: !,?5,"[ ] NO - GO TO PART III",!
  • Line Location: MAP1+81

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMSP - [#9000037] MAP1+37, MAP1+69
^AUTNINS - [#9999999.18] MAP1+38, MAP1+70
^DIC(4 - [#4] EN+7
^DIC(5 - [#5] MAP1+43, MAP1+75

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+14, MAP1+22, MAP1+23, MAP1+24, MAP1+25, MAP1+28
, MAP1+32, MAP1+36, MAP1+37, MAP1+45, MAP1+47, MAP1+48, MAP1+52, MAP1+59, MAP1+60, MAP1+61
, MAP1+64, MAP1+68, MAP1+69, MAP1+77, MAP1+79, MAP1+80
>> AG("INSADDR" MAP1+38*, MAP1+39, MAP1+40, MAP1+41, MAP1+42, MAP1+43, MAP1+44, MAP1+70*, MAP1+71, MAP1+72
, MAP1+73, MAP1+74, MAP1+75, MAP1+76, MAP1+82!
>> AG("INSPTR" MAP1+37*, MAP1+38, MAP1+69*, MAP1+70, MAP1+82!
>> AG("MSPPRINT" EN+2, EN+3
>> AGLINE("EQ" EN+6
>> AGLINE("_" BLANK1+8, BLANK1+9, BLANK1+10, BLANK1+18, BLANK1+19, BLANK1+20, MAP1+18, MAP1+19, MAP1+20, MAP1+33
, MAP1+34, MAP1+35, MAP1+55, MAP1+56, MAP1+57, MAP1+65, MAP1+66, MAP1+67
DUZ(2 EN+7
>> MSPRES(9000037 MAP1+2, MAP1+5, MAP1+8, MAP1+10, MAP1+14, MAP1+22, MAP1+23, MAP1+24, MAP1+25, MAP1+28
, MAP1+32, MAP1+36, MAP1+45, MAP1+47, MAP1+48, MAP1+52, MAP1+59, MAP1+60, MAP1+61, MAP1+64
, MAP1+68, MAP1+77, MAP1+79, MAP1+80
U EN+7, MAP1+2, MAP1+5, MAP1+8, MAP1+10, MAP1+14, MAP1+22, MAP1+23, MAP1+24, MAP1+25
, MAP1+28, MAP1+32, MAP1+36, MAP1+37, MAP1+39, MAP1+40, MAP1+41, MAP1+42, MAP1+43, MAP1+44
, MAP1+45, MAP1+47, MAP1+48, MAP1+52, MAP1+59, MAP1+60, MAP1+61, MAP1+64, MAP1+68, MAP1+69
, MAP1+71, MAP1+72, MAP1+73, MAP1+74, MAP1+75, MAP1+76, MAP1+77, MAP1+79, MAP1+80
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All