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

Package: IHS Patient Registration

Routine: AG4


Information

AG4 ; IHS/ASDS/EFG - ENTER MEDICARE DATA ;

Source Information

Source file <AG4.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS Patient Registration 8 (READ,YN)^AG  DUOUT^AG3  ^AG5  ^AGDICLK  ($$NOPARTAB,EN)^AGED4  EN^AGED4PD  $$ISMINOR^AGUTILS  ($$GETMCR,EDITMCR)^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 AG3  AG5  AGED4  

Entry Points

Name Comments DBIA/ICR reference
MORE1
ADDNEW ;EP - ADD NEW MEDICARE CLIENT.
PCP
F05 ;EP
F04 ;EP
F07 ;EP
F06 ;EP
ASKPARTD(DFN,D1) ;ASK PART D FIELDS
CCD
F09 ;EP
F08 ;EP
END1
IMPMSG ;
QMB
END
CC
ADDCOV ;EP - ADD NEW COVERAGE.
L6 ;REQUIRE MCR DOB
DFLT2
L4 ;REQUIRE MCR NUMBER
L5 ;
L2
L3 ;
L1
F13 ;EP
DUOUT ;EP
F11 ;EP
L8
L9
L7
DFLT1
MORE

External References

Name Field # of Occurrence
^%DT L7+7
READ^AG L1+2, L7+2, L8+4, MORE+3
YN^AG L1+13, MORE+6
DUOUT^AG3 L1+7, L1+12
^AG5 L1+6, L1+8, END+3
^AGDICLK DFLT1+5
$$NOPARTAB^AGED4 L8+5
EN^AGED4 L1+6
EN^AGED4PD L9+18
$$ISMINOR^AGUTILS L2+2
$$GETMCR^AGUTL F06+3
EDITMCR^AGUTL L5+6
^DIC L2+21, IMPMSG+4
YN^DICN L7+9
^DIE L2+15, L2+25, L5+12, L6+3, QMB+2, PCP+2, CC+2, CCD+2, L9+3, L9+15
, END1+4, F04+5, F05+2, F06+4, F07+2, F08+2, F09+2, F11+2, F13+2
$$GET1^DIQ L9+11
^DIR L2+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Does this patient have MEDICARE COVERAGE? (Y/N) ",AG("LT"),"// "
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !!,"Enter the ELIGIBILITY DATE: "
  • Line Location: L7+0
Function Call: WRITE
  • Prompt: !,"MEDICARE ELIGIBILITY DATE REQUIRED!"
  • Line Location: L7+3
Function Call: WRITE
  • Prompt: *7,!!,"SURE ABOUT THE FUTURE START DATE"
  • Line Location: L7+9
Function Call: WRITE
  • Prompt: !!,"Type of COVERAGE (A, B, D): "
  • Line Location: L8+2
Function Call: WRITE
  • Prompt: !,"PATIENT MUST HAVE MEDICARE PART A OR B BEFORE BEING ELIGIBLE FOR PART D!"
  • Line Location: L8+5
Function Call: WRITE
  • Prompt: !!,"DO NOT ADD PART D COVERAGE TO A MEDICARE INSURER ENTRY",!,"REFER TO PATCH 1 ADDENDUM IN HOW TO SET UP PART D INSURERS",!
  • Line Location: L8+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: L8+7
Function Call: WRITE
  • Prompt: !,"Enter either ""A"" or ""B""."
  • Line Location: L8+9
Function Call: WRITE
  • Prompt: !,"Enter either ""A"" or ""B"" or ""D""."
  • Line Location: L8+10
Function Call: WRITE
  • Prompt: !,"Enter either ""A"" or ""B""."
  • Line Location: L8+12
Function Call: WRITE
  • Prompt: !,"Enter either ""A"" or ""B"" or ""D""."
  • Line Location: L8+13
Function Call: WRITE
  • Prompt: !,"Enter either ""A"" or ""B""."
  • Line Location: L8+15
Function Call: WRITE
  • Prompt: AG("LKPRINT"),"// "
  • Line Location: DFLT1+9
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+15
    • L2+25
    • L5+12
    • L6+3
    • QMB+2
    • PCP+2
    • CC+2
    • CCD+2
    • L9+3
    • L9+15
    • END1+4
    • F04+5
    • F05+2
    • F06+4
    • F07+2
    • F08+2
    • F09+2
    • F11+2
    • F13+2
Routine Call
  • DIC
  • Line Location:
    • L2+21
    • IMPMSG+4
Routine Call
  • DIR
  • Line Location:
    • L2+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNMCR - [#9000003] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGFAC - [#9009061] L1+6, L1+7, L1+8
^AUPNMCR - [#9000003] L1, L2+15, L5+11, L5+13, L6+2, END1, DFLT1+1, DFLT2+1, DFLT2+2, MORE+1
^AUTNINS("B" L2+16
^DD("DD" L6+2
^DPT - [#2] L1+6, L5+11, L6+2

Label References

Name Line Occurrences
ADDCOV L2+10, END+2
ASKPARTD L9+18
DFLT1 L7+1
DFLT2 L8+3
END END1, END1+5
END1 L1+11, L2+2, L7+4, L8+11
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+13, L2+15, DUOUT+1
L2 L1+10, L1+12
L3 L2+15
L5 L7+4
L6 L5+13
L7 L7+3, L7+8, L7+9, L8+11
L8 L7+4, L8+5, L8+10, L8+13, L9+21
L9 L8+11
MORE END+1, MORE+7
MORE1 MORE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % L7+9*
>> %DT L7+6*
>> ADDCHK L5+8*
AG END+2!
AG("COV" L7+11!, L8+18*, L9+8, L9+18, DFLT2+2*
AG("DRENT" DFLT1+4*
AG("DT" L7+10*, L9+7, DFLT1+8*
AG("EDIT" L2+15, L7+1, L7+4, L8+3, L9+18, END, END1
AG("INS" L2+16*, L2+24
AG("LKDATA" DFLT1+8
AG("LKERR" DFLT1+6
AG("LKPRINT" DFLT1+7, DFLT1+9
AG("LT" L1*, L1+1, L1+3*, L1+6, L1+8, L1+11, L1+12
AG("LT1" L7+4, DFLT1!, DFLT1+7*
AG("LT2" L8+11, DFLT2!, DFLT2+2*, DFLT2+3, DFLT2+4
AG("MORE" L8+19!, L9+18!, END+2, MORE!, MORE1*
AGDOB L6+2~*, L6+4!
>> AGELP("INS" F04+3
>> AGPAT L1+6*
AGSEX L9+10~, L9+11*
>> AGTYPE L2+10
AGXTERN L1+6*!
>> COMPIEN L9+18, F04+1*
COVTYP L7+11!
D0 L2+17!
D1 L9+18, ASKPARTD~, ASKPARTD+3
DA L2+14*, L2+23*, L2+24*, L5+7*, L5+11, L6+2, QMB*, PCP*, CC*, CCD*
, L9+14*, L9+22!, END1+1*, DFLT1+4*, ASKPARTD+1!, ASKPARTD+3*, F04+1
DA(1 IMPMSG+2*, IMPMSG+3, ASKPARTD+4*, ASKPARTD+5, F04+1
DD L2+17!
DFN L1, L1+6, L2+2, L2+14, L2+15, L2+20, L2+24, L5+6, L5+7, L5+11
, L5+13, L6+2, QMB, IMPMSG+2, PCP, CC, CCD, L8+5, L9+11, L9+14
, L9+18, END1, END1+1, DFLT1+1, DFLT1+4, DFLT2+1, DFLT2+2, MORE+1, ASKPARTD~, ASKPARTD+4
, F06+3
>> DFOUT L1+4, L7+4, L8+11, MORE+4
DIC L2+11!, L2+17!, L2+18*, IMPMSG+3*, L9+22!, DFLT1+2*, ASKPARTD+1!
DIC(0 L2+19*, IMPMSG+1*
DIE L2+11!, L2+12*, L2+17!, L2+24*, L5+7*, QMB+1*, PCP+1*, CC+1*, CCD+1*, L9*
, L9+22!, END1+2*, ASKPARTD+1!, ASKPARTD+5*
DIR L2+3!, L2+11!, L2+17!
DIR("A" L2+5*
DIR("B" L2+6*
DIR(0 L2+4*
>> DLOUT L1+11, L1+12, L7+4, L8+11, MORE+4
>> DQOUT L7+5, L8+13
DR L2+11!, L2+14*, L2+17!, L2+24*, L5+10*, L5+11*, L6+1*, L6+2*, QMB*, PCP*
, CC*, CCD*, L9+2*, L9+7*, L9+22!, END1+3*, DFLT1+4*, ASKPARTD+1!, F04+3*, F04+4*
, F05+1*, F06+1!, F06+3*, F07+1*, F08+1*, F09+1*, F11+1*, F13+1*
DR(2 L9+8*, L9+12*
DT L7+8, L7+9
>> DTOUT L1+4, L7+4, L8+11, MORE+4
DUOUT L1+6!, L1+7, L1+12, L7+4, L8+11
DUZ(2 L1+6, L1+7, L1+8
>> GOL8 L9+21, ASKPARTD+2*, F04+6*
>> NEWENTRY L1+6, L2+9*, L5+11, L6+2, L9+18*
U L1+6, L5+11, L6+2, DFLT2+2
>> X L2+20*, L7+6*
Y L1+3, L1+10, L1+11, L2+2, L2+15, L2+22, L2+23, L6+2~*!, L7+3, L7+5*
, L7+6, L7+8, L7+9, L7+10, L8+5, L8+10, L8+13, L8+18, 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