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

Package: IHS Patient Registration

Routine: AG6


Information

AG6 ; IHS/ASDS/EFG - ENTER RAILROAD RETIREMENT DATA ;

Source Information

Source file <AG6.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS Patient Registration 8 (READ,YN)^AG  DUOUT^AG5  ^AG7  ^AGDICLK  ($$NOPARTAB,EN)^AGED6  EN^AGED6PD  $$ISMINOR^AGUTILS  ($$GETRRE,EDITRRE)^AGUTL  
VA Fileman 6 ^%DT  ^DIC  YN^DICN  ^DIE  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Patient Registration 3 AG5  AG7  AGED6  

Entry Points

Name Comments DBIA/ICR reference
MORE1
ADDNEW ;EP - Add New Railroad Client.
PCP
L10
F05 ;EP
F04 ;EP
F07 ;EP
F06 ;EP
SIG
L9A
ASKPARTD(DFN,D1) ;ASK PART D FIELDS
CCD
F09 ;EP
F08 ;EP
END1
RRNM
L6A ;
QMB
RRDB
END
SIGD
CC
ADDCOV ;EP - Add New Coverage.
L7 ;
DFLT1
L2
L1
F13 ;EP
DUOUT ;EP
F11 ;EP
L8 ;
L9
DFLT2
MORE

External References

Name Field # of Occurrence
^%DT L9+10
READ^AG L1+3, L9+2, L9A+4, MORE+3
YN^AG L1+12, MORE+6
DUOUT^AG5 L1+7, L1+11
^AG7 L1+6, L1+8, END+4
^AGDICLK DFLT1+5
$$NOPARTAB^AGED6 L9A+5
EN^AGED6 L1+6
EN^AGED6PD L10+14
$$ISMINOR^AGUTILS L2+2
$$GETRRE^AGUTL F06+3
EDITRRE^AGUTL L8+5
^DIC L2+20
YN^DICN L9+15
^DIE L2+12, L2+25, RRNM+2, RRNM+7, QMB+2, SIG+2, SIGD+2, PCP+2, CC+2, CCD+2
, RRDB+2, L10+10, END1+3, F04+5, F05+2, F06+4, F07+2, F08+2, F09+2, F11+2
, F13+2
$$GET1^DIQ L10+7
^DIR L2+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Does this patient have RAILROAD RETIREMENT COVERAGE? (Y/N) "
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: AG("LT"),"// "
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !!,"Enter the ELIGIBILITY DATE: "
  • Line Location: L9+0
Function Call: WRITE
  • Prompt: !,"ELIGIBLITY DATE REQUIRED!"
  • Line Location: L9+3
Function Call: WRITE
  • Prompt: !,"ELIGIBLITY DATE REQUIRED!"
  • Line Location: L9+4
Function Call: WRITE
  • Prompt: !!,"Type of COVERAGE (A, B, D): "
  • Line Location: L9A+2
Function Call: WRITE
  • Prompt: !,"PATIENT MUST HAVE RAILROAD PART A OR B BEFORE BEING ELIGIBLE FOR PART D!"
  • Line Location: L9A+5
Function Call: WRITE
  • Prompt: !!,"DO NOT ADD PART D COVERAGE TO RAILROAD RETIREMENT",!,"REFER TO PATCH 1 ADDENDUM IN HOW TO SET UP PART D INSURERS",!
  • Line Location: L9A+6
Function Call: WRITE
  • Prompt: !!,"CAN NOT ADD PART D COVERAGE TO A NON MEDICARE PART D INSURER",!,"REFER TO PATCH 1 ADDENDUM IN HOW TO SET UP PART D INSURERS",!
  • Line Location: L9A+7
Function Call: WRITE
  • Prompt: !,"Enter either ""A"" or ""B""."
  • Line Location: L9A+8
Function Call: WRITE
  • Prompt: !,"Enter either ""A"" or ""B"" or ""D""."
  • Line Location: L9A+9
Function Call: WRITE
  • Prompt: !,"Enter either ""A"" or ""B""."
  • Line Location: L9A+11
Function Call: WRITE
  • Prompt: !,"Enter either ""A"" or ""B"" or ""D""."
  • Line Location: L9A+12
Function Call: WRITE
  • Prompt: AG("LKPRINT"),"// "
  • Line Location: DFLT1+8
Function Call: WRITE
  • Prompt: AG("LT2"),"// "
  • Line Location: DFLT2+4
Function Call: WRITE
  • Prompt: !!,"Do you wish to ADD ANOTHER COVERAGE TYPE? (Y/N) NO// "
  • Line Location: MORE+2
Routine Call
  • DIE
  • Line Location:
    • L2+12
    • L2+25
    • RRNM+2
    • RRNM+7
    • QMB+2
    • SIG+2
    • SIGD+2
    • PCP+2
    • CC+2
    • CCD+2
    • RRDB+2
    • L10+10
    • END1+3
    • F04+5
    • F05+2
    • F06+4
    • F07+2
    • F08+2
    • F09+2
    • F11+2
    • F13+2
Routine Call
  • DIC
  • Line Location:
    • L2+20
Routine Call
  • DIR
  • Line Location:
    • L2+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNRRE - [#9000005] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGFAC - [#9009061] L1+6, L1+7, L1+8
^AUPNRRE - [#9000005] L1, L2+14, RRNM+1, RRNM+3, RRNM+4, RRNM+6, RRDB+1, L10+11, END1, DFLT1+1
, DFLT2+1, DFLT2+2, MORE+1
^AUTNINS("B" L2+15
^DD("DD" RRDB+1
^DPT - [#2] L1+6, RRNM+1, RRDB+1

Label References

Name Line Occurrences
ADDCOV L2+10, L9+3, L9+4, END+2
ASKPARTD L10+14
DFLT1 L9+1
DFLT2 L9A+3
END END1, END1+4
END1 L1+11, L2+2, L9+6, L9A+10
F04 F05+3
F05 F06+5
F06 F07+3
F07 F08+3
F08 F09+3
F09 F11+3
F11 F13+3
L1 L1+6, L1+12, L2+14, DUOUT+1
L10 L9A+10
L2 L1+11
L6A L2+14
L8 L9+7, L9A+5
L9 L9+11, L9+15, L9A+10
L9A L9+7, L9A+9, L9A+12, L10+15
MORE END+1, MORE+7
MORE1 MORE+5
RRDB RRNM+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % L9+14*, L9+15
>> %DT L9+9*
>> ADDCHK L8+7*
AG END+3!
AG("COV" L9+17!, L9A+13*, L10+4, L10+14, DFLT2+2*
AG("DRENT" DFLT1+2*
AG("DT" L9+16*, L10+3, L10+11, DFLT1+7*
AG("EDIT" L2+13, L9+1, L9+5, L9A+3, L10+14, END, END1
AG("INS" L2+15*, L2+24
AG("LKDATA" DFLT1+7
AG("LKERR" DFLT1+6
AG("LKPRINT" DFLT1+7, DFLT1+8
AG("LT" L1*, L1+2, L1+4*, L1+6, L1+8, L1+11
AG("LT1" L9+6, DFLT1!, DFLT1+7*
AG("LT2" L9A+10, DFLT2!, DFLT2+2*, DFLT2+3, DFLT2+4
AG("MORE" L9A+14!, L10+14!, END+2, MORE!, MORE1*
AGDOB RRDB+1~*
>> AGELP("INS" F04+3
>> AGPAT L1+6*
AGSEX L10+6~, L10+7*
>> AGTYPE L2+10
AGXTERN L1+6*!
>> COMPIEN L10+12*, L10+14, F04+1*
COVTYP L9+17!
D0 L2+16!
D1 L10+14, ASKPARTD~, ASKPARTD+3
DA L2+11*, L2+22*, L2+24*, L8+6*, RRNM+1, RRNM+5*, QMB+1*, SIG+1*, SIGD+1*, PCP+1*
, CC+1*, CCD+1*, RRDB+1, L10+4*, L10+16!, END1+1*, DFLT1+2*, ASKPARTD+1!, ASKPARTD+3*, F04+1
DA(1 ASKPARTD+4*, ASKPARTD+5, F04+1
DD L2+16!
DFN L1, L1+6, L2+2, L2+11, L2+14, L2+19, L2+24, L8+5, L8+6, RRNM+1
, RRNM+3, RRNM+4, RRNM+5, RRNM+6, QMB+1, SIG+1, SIGD+1, PCP+1, CC+1, CCD+1
, RRDB+1, L9A+5, L10+4, L10+7, L10+11, L10+14, END1, END1+1, DFLT1+1, DFLT1+2
, DFLT2+1, DFLT2+2, MORE+1, ASKPARTD~, ASKPARTD+4, F06+3
>> DFOUT L1+10, L9+4, L9+6, L9A+10, MORE+4
DIC L2+16!, L2+17*, L10+16!, DFLT1+2*, ASKPARTD+1!
DIC(0 L2+18*
DIE L2+11*, L2+16!, L2+23*, L8+6*, RRNM+5*, QMB*, SIG*, SIGD*, PCP*, CC*
, CCD*, L10*, L10+16!, END1+1*, ASKPARTD+1!, ASKPARTD+5*
DIR L2+3!, L2+16!
DIR("A" L2+5*
DIR("B" L2+6*
DIR(0 L2+4*
>> DLOUT L1+11, L9+4, L9+6, L9+7, L9A+10, MORE+4
>> DQOUT L9+8, L9A+12
DR L2+11*, L2+16!, L2+24*, RRNM*, RRNM+1*, RRNM+6*, QMB+1*, SIG+1*, SIGD+1*, PCP+1*
, CC+1*, CCD+1*, RRDB*, RRDB+1*, L10+3*, L10+16!, END1+2*, DFLT1+2*, DFLT1+4*, ASKPARTD+1!
, F04+3*, F04+4*, F05+1*, F06+1!, F06+2*, F06+3*, F07+1*, F08+1*, F09+1*, F11+1*
, F13+1*
DR(2 RRNM+6*, L10+4*, L10+8*
DT L9+11, L9+12
>> DTOUT L1+10, L9+4, L9+6, L9A+10, MORE+4
>> DUOUT L1+7, L1+11, L9+3, L9+5, L9+7, L9A+10
DUZ(2 L1+6, L1+7, L1+8
>> GOL8 L10+15, ASKPARTD+2*, F04+6*
>> NEWENTRY L1+6, L2+9*, RRNM+1, RRDB+1, L10+14*
U L1+6, RRNM+1, RRNM+4, RRNM+6, RRDB+1, DFLT2+2
>> WD0 L10+11*, L10+12
>> WD1 L10+11*, L10+12
>> X L2+19*, L9+9*
Y L1+4, L1+11, L2+2, L2+13, L2+14, L2+21, L2+22, RRDB+1~*!, L9+8*, L9+9
, L9+11, L9+12, L9+16, L9A+5, L9A+9, L9A+12, L9A+13, MORE+4, MORE+5, F04+6
, F05+3, F06+5, F07+3, F08+3, F09+3, F11+3, F13+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All