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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AGED62

Package: IHS Patient Registration

Routine: AGED62


Information

AGED62 ; IHS/ASDS/EFG - EDIT - PAGE 4 NEW RAILROAD SCREEN - PG2 ;

Source Information

Source file <AGED62.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Patient Registration 6 UPDATE1^AGED  READ^AGED1  (EDITCHEK,FETCHERR)^AGEDERR  $$ACTELIG^AGEDERR2  ($$DTEST,$$ISACTIVE,$$UPDTSEL,PROGVIEW,VERIF)^AGUTILS  $$S^AGVDF  
VA Fileman 6 ^%DTC  ^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Patient Registration 2 AGED4A  AGED4A01  

Entry Points

Name Comments DBIA/ICR reference
CONT ;
HDR ;
COINS ;PART B CO-INSURANCE
MSP ;GET DATA FROM AUPNMSP
VAR
GETAW ;DISPLAY
NEWENTRY ;NEW ENTRY
DED ;PART B DEDUCTIBLE
1 ;
LSTAREC ;FIND LAST PART A RECORD
DRAW ;EP
CLEANZER(WD0) ;EP - CLEAN ZERO NODE WITH NO DATES
END
EN(WD0,WD1,NEWENTRY,AGSELECT) ;EP -
WMSG ;DISPLAY THIS MSG IF THERE IS NO ENTRY IN THE MEDICARE ELIGIBILITY
INPDED ;INPATIENT DEDUCTIBLE
DTWC ;
CHKDATES(PARTIEN) ;
SNF ;SNF C0-INSURANCE
COINS61 ;CO-INSURANCE (61-90)
PARTIEN(INSPTR,PART) ;
ADDMSP ;
MCRDAY ;RAILROAD DAYS
LSTBREC ;FIND LAST PART B RECORD
LIFRES ;LIFETIME RESERVE
CLEAN(WD0) ;CLEAN EMPTY RECORD. IF NO ELIGIBILITY DATES RECORD IS

External References

Name Field # of Occurrence
^%DTC MSP+6
UPDATE1^AGED VAR+25
READ^AGED1 VAR+15
EDITCHEK^AGEDERR CONT+5
FETCHERR^AGEDERR CONT+2
$$ACTELIG^AGEDERR2 MSP+11
$$DTEST^AGUTILS HDR+17
$$ISACTIVE^AGUTILS CHKDATES+6
$$UPDTSEL^AGUTILS EN+11, VAR+24
PROGVIEW^AGUTILS HDR+9
VERIF^AGUTILS CONT+7
$$S^AGVDF HDR+8
^DIC NEWENTRY+7, ADDMSP+6, LSTAREC+11, LSTBREC+11
^DIE ADDMSP+11, ADDMSP+13, INPDED+5, COINS61+5, LIFRES+5, SNF+5, DED+5, COINS+5, MCRDAY+5
^DIK CLEANZER+2
$$GET1^DIQ GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, MSP+17, MSP+18, MSP+19
^DIR VAR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"New entry not made"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"New entry not made"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+2
Function Call: WRITE
  • Prompt: !,"EDITING OF COVERAGE TYPE PART A AND PART B BENEFITS MUST BE",!,"DONE THROUGH TABLE MAINTENANCE!"
  • Line Location: VAR+13
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",$G(AG("N"))
  • Line Location: VAR+19
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?36,"RAILROAD PAGE B"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?80-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,$E(AGPAT,1,23)
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: ?23,$$DTEST^AGUTILS(DFN)
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: ?42,"HRN#:",AGCHRT
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: ?56,"(",$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PENDING VERIFICATION",1:"NONE"),")"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !,"MEDICARE SECONDARY PAYER (Enter ""A"" to add a new MSP reason)"
  • Line Location: GETAW+1
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: GETAW+2
Function Call: WRITE
  • Prompt: !,"DATE OBTAINED",?20,"STATUS",?30,"REASON"
  • Line Location: GETAW+3
Function Call: WRITE
  • Prompt: !,AGLINE("-"),!
  • Line Location: GETAW+4
Function Call: WRITE
  • Prompt: !,"PART A BENEFITS ",$E(AGLINE("-"),1,28)," PART B BENEFITS ",$E(AGLINE("-"),1,19)
  • Line Location: GETAW+6
Function Call: WRITE
  • Prompt: @NEWLINE,ITEMNUM,$S(ITEMNUM'="":". ",1:""),@CAPDENT,$S($G(CAPTION)'="":CAPTION_": ",$G(CAPTION)="":"",1:$P($G(^DD(DIC,DR,0)),U)_": ")
  • Line Location: GETAW+26
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+29
Function Call: WRITE
  • Prompt: $J($$GET1^DIQ(DIC,PARTAD0,DR),10,2)
  • Line Location: GETAW+30
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,PARTAD0,DR)
  • Line Location: GETAW+31
Function Call: WRITE
  • Prompt: $J($$GET1^DIQ(DIC,PARTBD0,DR),10,2)
  • Line Location: GETAW+32
Function Call: WRITE
  • Prompt: $J($$GET1^DIQ(DIC,PARTBD0,DR),10)," %"
  • Line Location: GETAW+33
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !,"You must first enter the RAILROAD ELIGIBILITY"
  • Line Location: WMSG+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWENTRY+1
Function Call: WRITE
  • Prompt: ?1,$$GET1^DIQ(9000037,AG("REC"),.01)
  • Line Location: MSP+17
Function Call: WRITE
  • Prompt: ?20,$$GET1^DIQ(9000037,AG("REC"),.03)
  • Line Location: MSP+18
Function Call: WRITE
  • Prompt: ?30,$$GET1^DIQ(9000037,AG("REC"),.04)
  • Line Location: MSP+19
Function Call: WRITE
  • Prompt: ?79,$S(MSPALERT:"A",1:"")
  • Line Location: MSP+20
Function Call: WRITE
  • Prompt: !
  • Line Location: MSP+21
Function Call: WRITE
  • Prompt: !,"NO ""PART A"" COVERAGE TYPE FOUND IN THE COVERAGE TYPE FILE","PLEASE ENTER A ""PART A"" COVERAGE TYPE WITH 'RAILROAD' AS THE INSURER"
  • Line Location: LSTAREC+2
Function Call: WRITE
  • Prompt: !,"NO ""PART B"" COVERAGE TYPE FOUND IN THE COVERAGE TYPE FILE","PLEASE ENTER A ""PART B"" COVERAGE TYPE WITH MEDICARE AS THE INSURER"
  • Line Location: LSTBREC+2
Routine Call
  • DIE
  • Line Location:
    • ADDMSP+11
    • ADDMSP+13
    • INPDED+5
    • COINS61+5
    • LIFRES+5
    • SNF+5
    • DED+5
    • COINS+5
    • MCRDAY+5
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+7
    • ADDMSP+6
    • LSTAREC+11
    • LSTBREC+11
Routine Call
  • DIR
  • Line Location:
    • VAR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNRRE - [#9000005] Classic Fileman Calls
^AUPNMSP - [#9000037] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMSP("C" MSP+5, MSP+14, MSP+16
^AUPNPAT - [#9000001] HDR+2, HDR+4, HDR+20
^AUTNINS("B" EN+5
^AUTTPIC - [#9999999.65] LSTAREC+3, LSTAREC+15, LSTBREC+3, LSTBREC+15, PARTIEN+5, CHKDATES+4, CHKDATES+5, CHKDATES+7
^AUTTPIC("C" PARTIEN+4
^DD( GETAW+26
^DD(9999999.65 LSTAREC+9, LSTBREC+9
^DIC(4 - [#4] HDR+12
^DPT - [#2] HDR+1

Label References

Name Line Occurrences
$$CHKDATES GETAW+9, GETAW+10
$$PARTIEN GETAW+7, GETAW+8, LSTAREC+1, LSTBREC+1
@( VAR+23
ADDMSP VAR+20
CLEANZER EN+7, EN+8, CLEAN+2
DRAW EN+7, VAR
DTWC EN+8
END EN+7, EN+8, VAR+17
GETAW DRAW+4
HDR DRAW+3
MSP GETAW+5
NEWENTRY EN+7
VAR VAR+16, VAR+17, VAR+19, VAR+20, VAR+21, VAR+27
WMSG EN+7

Naked Globals

Name Field # of Occurrence
^(0 HDR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACTIVE CHKDATES+6*, CHKDATES+7
ADA END!
ADFN END!
ADT END!
AG END!, GETAW+13*
AG("AUPN" HDR+3*, HDR+4*
AG("C" VAR+21, VAR+23, GETAW+12!, GETAW+25*, GETAW+35
AG("CNT" MSP+1*, MSP+16, MSP+22*, MSP+23!
AG("COVDT" LSTAREC+3*, LSTAREC+4, LSTAREC+12*, LSTAREC+14, LSTAREC+15, LSTBREC+3*, LSTBREC+4, LSTBREC+12*, LSTBREC+14, LSTBREC+15
AG("EDIT" HDR+24!
AG("ERR" VAR+17
AG("MSPDT" MSP+1*, MSP+5, MSP+14*, MSP+16, MSP+23!
AG("N" VAR+19, VAR+23, GETAW+35*
AG("PG" DRAW+1*, CONT+2
AG("REC" MSP+15*, MSP+16*, MSP+17, MSP+18, MSP+19, MSP+23!, LSTAREC+15*, LSTAREC+16, LSTBREC+15*, LSTBREC+16
AG("SEL" VAR+23*
>> AGCHRT HDR+2*, HDR+18
>> AGELP("INS" EN+11
>> AGELSTS HDR+20*, HDR+21
AGI VAR+23*, VAR+26!
>> AGINS EN+11, VAR+24
>> AGLINE("-" HDR+5*, HDR+13*, GETAW+2, GETAW+4, GETAW+6, CONT+6
>> AGLINE("EQ" VAR+2, HDR+6*, HDR+14*, HDR+15, HDR+22
>> AGLINE("PGLN" HDR+7*
>> AGPAT HDR+1*, HDR+16
AGSCRN END!, GETAW+13, GETAW+14*, GETAW+15, GETAW+16, GETAW+17, GETAW+18, GETAW+19, GETAW+20, GETAW+21
, GETAW+22, GETAW+23, GETAW+24
>> AGSEENLY VAR+1, HDR+10
AGSELECT EN~, EN+4, EN+11*, VAR+24*, CONT+4
AGY VAR+22*, VAR+23, VAR+26!
>> CAPDENT GETAW+20*, GETAW+26
>> CAPTION GETAW+16*, GETAW+26
>> COMPIEN EN+9*, EN+11, VAR+24
D0 GETAW+28*, GETAW+29, ADDMSP+1!, INPDED+1!, COINS61+1!, LIFRES+1!, SNF+1!, DED+1!, COINS+1!, MCRDAY+1!
DA CLEANZER+1!, CLEANZER+2*, END!, HDR+23*, NEWENTRY+2!, ADDMSP+1!, ADDMSP+9*, INPDED+1!, INPDED+6!, COINS61+1!
, COINS61+6!, LIFRES+1!, LIFRES+6!, SNF+1!, SNF+6!, DED+1!, DED+6!, COINS+1!, COINS+6!, MCRDAY+1!
, MCRDAY+6!, LSTAREC+16*, LSTBREC+16*
DA(1 INPDED+2*, INPDED+3, COINS61+2*, COINS61+3, LIFRES+2*, LIFRES+3, SNF+2*, SNF+3, DED+2*, DED+3
, COINS+2*, COINS+3, MCRDAY+2*, MCRDAY+3, LSTAREC+6*, LSTAREC+7, LSTBREC+6*, LSTBREC+7
DD NEWENTRY+6!, ADDMSP+1!, INPDED+1!, COINS61+1!, LIFRES+1!, SNF+1!, DED+1!, COINS+1!, MCRDAY+1!
>> DFN VAR+25, HDR+1, HDR+2, HDR+4, HDR+17, HDR+20, HDR+23, GETAW+28, CONT+4, NEWENTRY+5
, MSP+5, MSP+11, MSP+14, MSP+16
DFOUT VAR+18, END!
DIC END!, GETAW+17*, GETAW+26, GETAW+27, GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, NEWENTRY+2!
, NEWENTRY+3*, ADDMSP+1!, ADDMSP+3*, ADDMSP+8, INPDED+1!, INPDED+6!, COINS61+1!, COINS61+6!, LIFRES+1!, LIFRES+6!
, SNF+1!, SNF+6!, DED+1!, DED+6!, COINS+1!, COINS+6!, MCRDAY+1!, MCRDAY+6!, LSTAREC+5!, LSTAREC+7*
, LSTBREC+5!, LSTBREC+7*
DIC("A" LSTAREC+10*, LSTBREC+10*
DIC("DR" ADDMSP+2*
DIC("P" LSTAREC+9*, LSTBREC+9*
DIC("S" ADDMSP+5*
DIC(0 NEWENTRY+4*, ADDMSP+4*, LSTAREC+8*, LSTBREC+8*
DIE NEWENTRY+2!, ADDMSP+1!, ADDMSP+8*, INPDED+1!, INPDED+3*, INPDED+6!, COINS61+1!, COINS61+3*, COINS61+6!, LIFRES+1!
, LIFRES+3*, LIFRES+6!, SNF+1!, SNF+3*, SNF+6!, DED+1!, DED+3*, DED+6!, COINS+1!, COINS+3*
, COINS+6!, MCRDAY+1!, MCRDAY+3*, MCRDAY+6!
DIFF MSP+2~, MSP+6*, MSP+11, MSP+12!
DIK CLEANZER+1!, CLEANZER+2*
DIR VAR+1!, VAR+7!, ADDMSP+1!
DIR("?" VAR+8*, VAR+9*, VAR+10*, VAR+11*, VAR+12*
DIR("A" VAR+1*, VAR+14*
DIR(0 VAR+1*
DLOUT VAR+17, END!
DO NEWENTRY+6!
DQOUT VAR+19, END!
DR END!, GETAW+18*, GETAW+26, GETAW+29, GETAW+30, GETAW+31, GETAW+32, GETAW+33, NEWENTRY+2!, ADDMSP+1!
, ADDMSP+10*, ADDMSP+12*, INPDED+1!, INPDED+4*, INPDED+6!, COINS61+1!, COINS61+4*, COINS61+6!, LIFRES+1!, LIFRES+4*
, LIFRES+6!, SNF+1!, SNF+4*, SNF+6!, DED+1!, DED+4*, DED+6!, COINS+1!, COINS+4*, COINS+6!
, MCRDAY+1!, MCRDAY+4*, MCRDAY+6!
DT MSP+6
DTOUT VAR+18, END!
DTREC CHKDATES+1~, CHKDATES+7*
>> DUOUT VAR+17
DUZ HDR+9
DUZ(2 VAR+25, HDR+2, HDR+12, CONT+4
EFFDT CHKDATES+1~, CHKDATES+3*, CHKDATES+4*, CHKDATES+5, CHKDATES+6, CHKDATES+7
>> ENDDT CHKDATES+5*, CHKDATES+6
>> EXECUTE GETAW+23*
FOUND PARTIEN+1~, PARTIEN+2*, PARTIEN+4, PARTIEN+5*
INSPTR EN+3~, EN+4*, EN+5*, GETAW+7, GETAW+8, LSTAREC+1, LSTBREC+1, PARTIEN~, PARTIEN+4
>> ITEMNUM GETAW+21*, GETAW+25, GETAW+26
>> LASTMSP MSP+5*, MSP+6
>> MSPALERT VAR+4, VAR+14, MSP+4*, MSP+11*, MSP+20
MYERRS CONT+1!, CONT+2, CONT+5
MYVARS CONT+1!, CONT+5
MYVARS("DFN" CONT+4*
MYVARS("FINDCALL" CONT+4*
MYVARS("SELECTION" CONT+4*
MYVARS("SITE" CONT+4*
NEWENTRY EN~, EN+6, EN+12*, CONT+5, NEWENTRY+10*
>> NEWLINE GETAW+19*, GETAW+26
PART PARTIEN~, PARTIEN+5
PARTAD0 EN+3~, GETAW+9*, GETAW+11, GETAW+30, GETAW+31
PARTAIEN EN+3~, GETAW+7*, GETAW+9, GETAW+34!, INPDED+2, COINS61+2, LIFRES+2, SNF+2, MCRDAY+2, LSTAREC+1*
, LSTAREC+2, LSTAREC+3, LSTAREC+6, LSTAREC+15
PARTBD0 EN+3~, GETAW+10*, GETAW+11, GETAW+32, GETAW+33
PARTBIEN EN+3~, GETAW+8*, GETAW+10, GETAW+34!, DED+2, COINS+2, LSTBREC+1*, LSTBREC+2, LSTBREC+3, LSTBREC+6
, LSTBREC+15
PARTIEN PARTIEN+1~, PARTIEN+3*, PARTIEN+4*, PARTIEN+5, CHKDATES~, CHKDATES+4, CHKDATES+5, CHKDATES+7
>> PREEXEC GETAW+24*
REC END!
RETURN PARTIEN+1~, PARTIEN+2*, PARTIEN+5*, PARTIEN+6, CHKDATES+1~, CHKDATES+2*, CHKDATES+7*, CHKDATES+8
>> ROUTID DRAW+2*
>> TAGCALL GETAW+22*, GETAW+25
U EN+4, VAR+24, HDR+1, HDR+2, HDR+12, HDR+20, GETAW+16, GETAW+17, GETAW+18, GETAW+19
, GETAW+20, GETAW+21, GETAW+22, GETAW+26, LSTAREC+9, LSTAREC+12, LSTBREC+9, LSTBREC+12, PARTIEN+5
WD0 EN~, EN+7, EN+8, EN+9, CLEAN~, CLEAN+2, CLEANZER~, CLEANZER+2, NEWENTRY+9*
WD1 EN~, EN+9, CLEAN+2
WDA END!
WDFN END!
WDT END!
X NEWENTRY+5*, MSP+2~, MSP+6, MSP+12!, ADDMSP+1!
X1 MSP+2~, MSP+6*, MSP+12!
X2 MSP+2~, MSP+6*, MSP+12!
Y EN+7, EN+8, VAR+16, VAR+17, VAR+19, VAR+20, VAR+22, END!, NEWENTRY+8, NEWENTRY+9
, ADDMSP+1!, ADDMSP+7, ADDMSP+9, LSTAREC+12, LSTAREC+13, LSTBREC+12, LSTBREC+13

Marked Items

Name Field # of Occurrence
$T( DRAW+2
$T(@1+AG GETAW+14
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 |  Naked Globals |  Local Variables |  Marked Items |  All