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 |  Marked Items |  All
Print Page as PDF
Routine: AGEDMCD

Package: IHS Patient Registration

Routine: AGEDMCD


Information

AGEDMCD ; IHS/ASDS/TPF - NEW EDIT/DISP MCD SCREEN - REPLACES AGED5 AND AGED51 ;

Source Information

Source file <AGEDMCD.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Patient Registration 6 UPDATE1^AGED  READ^AGED1  (EDITCHEK,FETCHERR)^AGEDERR  (GETDATES,HDR)^AGEDMCD1  ($$20,$$30,$$31)^AGEROVR  ($$UPDTSEL,$$USED,VERIF)^AGUTILS  
VA Fileman 5 ^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Patient Registration 3 AG5  AGED4A  AGED4A01  

Entry Points

Name Comments DBIA/ICR reference
RATECD ;RATE CODE
CONT ;
PCP ;PRIM CARE PROV
MEDSTATE ;MCD ST EDIT FOR NEW ENTRY
GETAW ;DISP
MSG ;DISP IF NEW ENTRY
END
NEWENTRY ;NEW ENTRY
GRPNAME ;GRP NAME
EFFDT ;ELIG DTS AND COV TYPE
COVTYPE ;
AEFFDT ;ADD EFF DT
1 ;
MEDDOB ;MCD DOB
DRAW ;EP
CLEANZER(WD0) ;EP - CLEAN ZERO NODE WITH NO DTS
ENDDATE ;
OVERLAP(WD0,WD1) ;EP - DETERMINE OVERLAPPING ELIG RANGES
GOODDT(AD0,AD1) ;EP -
CCONFILE ;CC ON FILE
MEDNUM ;MCD #
EN(WD0,WD1,NEWENTRY,AGSELECT,AGOPTION) ;EP
VAR
MEDNAME ;MCD NAME
CLEAN(WD0) ;IF NO ELIG DTS, CLEAN EMPTY RECORD.
PLANNM ;PLAN NAME

External References

Name Field # of Occurrence
UPDATE1^AGED CONT+5, GETAW+52
READ^AGED1 VAR+22
EDITCHEK^AGEDERR GETAW+56
FETCHERR^AGEDERR GETAW+54
GETDATES^AGEDMCD1 GETAW+47
HDR^AGEDMCD1 DRAW+4
$$20^AGEROVR PLANNM+6
$$30^AGEROVR COVTYPE+7
$$31^AGEROVR RATECD+7
$$UPDTSEL^AGUTILS EN+15, CONT+4
$$USED^AGUTILS EFFDT+6
VERIF^AGUTILS GETAW+58
^DIC NEWENTRY+9, AEFFDT+10
^DIE CONT+10, NEWENTRY+25, MEDSTATE+6, EFFDT+23, ENDDATE+6, COVTYPE+11, OVERLAP+28, MEDNUM+6, MEDNAME+6, MEDDOB+6
, PCP+5, GRPNAME+5, PLANNM+10, RATECD+11, CCONFILE+8, CCONFILE+14, CCONFILE+20
^DIK CLEANZER+2
$$GET1^DIQ GETAW+31, GETAW+33, GETAW+35, GETAW+41, NEWENTRY+22
^DIR VAR+6, GETAW+59, EFFDT+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Entry could not be created."
  • Line Location: EN+6
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: !,"ERRORS ON THIS PAGE. PLEASE EDIT AND FIX BEFORE EXITING!!"
  • Line Location: VAR+8
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!"
  • Line Location: VAR+24
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+28
Function Call: WRITE
  • Prompt: @NEWLINE
  • Line Location: GETAW+20
Function Call: WRITE
  • Prompt: ITEMNUM
  • Line Location: GETAW+21
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+31
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+33
Function Call: WRITE
  • Prompt: ?21,"("_$$GET1^DIQ(DIC,D0,DR)_")"
  • Line Location: GETAW+41
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+49
Function Call: WRITE
  • Prompt: !,"STATE FIELD MUST BE POPULATED"
  • Line Location: GETAW+51
Function Call: WRITE
  • Prompt: !,"STATE NOT ENTERED, THIS RECORD WILL BE DELETED"
  • Line Location: GETAW+51
Function Call: WRITE
  • Prompt: !,"STATE NOT ENTERED, THIS RECORD WILL BE DELETED"
  • Line Location: GETAW+52
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+57
Function Call: WRITE
  • Prompt: !,"You have entered a new record for "_$P($G(^DPT(DFN,0)),U)_" in the MEDICAID file."
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWENTRY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RATECD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CCONFILE+1
Function Call: WRITE
  • Prompt: !,"CANNOT HAVE AN ENDING DATE WITHOUT A BEGINNING DATE! TRY AGAIN"
  • Line Location: GOODDT+4
Function Call: WRITE
  • Prompt: !,"ENDING DATE IS LESS THAN THE EFFECTIVE DATE! TRY AGAIN"
  • Line Location: GOODDT+5
Function Call: WRITE
  • Prompt: !,"EFFECTIVE DATE IS GREATER THAN THE ENDING DATE! TRY AGAIN"
  • Line Location: GOODDT+6
Routine Call
  • DIE
  • Line Location:
    • CONT+10
    • NEWENTRY+25
    • MEDSTATE+6
    • EFFDT+23
    • ENDDATE+6
    • COVTYPE+11
    • OVERLAP+28
    • MEDNUM+6
    • MEDNAME+6
    • MEDDOB+6
    • PCP+5
    • GRPNAME+5
    • PLANNM+10
    • RATECD+11
    • CCONFILE+8
    • CCONFILE+14
    • CCONFILE+20
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+9
    • AEFFDT+10
Routine Call
  • DIR
  • Line Location:
    • VAR+6
    • GETAW+59
    • EFFDT+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNMCD - [#9000004] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGFAC - [#9009061] EN+12
^AUPNMCD - [#9000004] VAR+7, VAR+12, VAR+14, AEFFDT+4*, OVERLAP+3, OVERLAP+4, OVERLAP+9, OVERLAP+11, OVERLAP+13, MEDNAME+5
, MEDDOB+5, CCONFILE+9, CCONFILE+15, GOODDT+2, GOODDT+3
^AUTNINS("B" NEWENTRY+18
^DD( GETAW+23, GETAW+24
^DD("DD" MEDDOB+5
^DPT - [#2] MSG+1, MEDNAME+5, MEDDOB+5

Label References

Name Line Occurrences
$$GOODDT EFFDT+27, ENDDATE+9
@( CONT+2
AEFFDT EN+8, VAR+11, EFFDT+2, OVERLAP+22
CCONFILE EN+12
CLEAN VAR+7, VAR+14
CLEANZER EN+8, CLEAN+1
CONT VAR+23
DRAW EN+6, VAR
EFFDT VAR+13, EFFDT+27
END EN+6, EN+8, VAR+7, VAR+14, VAR+26
ENDDATE AEFFDT+13, ENDDATE+9
GETAW DRAW+5
GRPNAME EN+12
MEDDOB EN+11
MEDNAME EN+10
MEDNUM EN+9
MEDSTATE EN+7, GETAW+52
MSG EN+7
NEWENTRY EN+6
OVERLAP COVTYPE+13
PCP EN+12
PLANNM EN+12
RATECD EN+12
VAR VAR+8, VAR+11, VAR+12, VAR+24, VAR+26, VAR+28, CONT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD0 GOODDT~
AD1 GOODDT~
ADA END!
>> ADDCHK NEWENTRY+12*
ADFN END+1!
ADT END!
AG END!, GETAW+3*, GETAW+36
AG("C" CONT+2, GETAW+1!, GETAW+18*, GETAW+48
AG("ERR" VAR+26
AG("N" VAR+21, VAR+28, CONT+2, GETAW+48*
AG("PG" EN+1*, DRAW+1*, GETAW+54
AG("SEL" CONT+2*
AGDOB MEDDOB+5~*, MEDDOB+7!
>> AGELP("INS" EN+15, NEWENTRY+18*, COVTYPE+7, PLANNM+6, RATECD+7
AGERRSOL END+1!
AGI CONT+2*, CONT+11!
>> AGINS EN+15, CONT+4
>> AGLINE("-" GETAW+49, GETAW+57
>> AGLINE("EQ" VAR+2
>> AGOPT("ESCAPE" VAR+8, VAR+9, VAR+24, VAR+25
AGOPTION EN~, EN+12
AGSCRN END!, GETAW+3, GETAW+4*, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12
, GETAW+13, GETAW+14, GETAW+15, GETAW+16, GETAW+17
>> AGSEENLY VAR+1, GETAW+52, GETAW+59
AGSELECT EN~, EN+15*, CONT+4*, GETAW+55, EFFDT+6, COVTYPE+7, PLANNM+6, RATECD+7
AGSEX NEWENTRY+21~, NEWENTRY+22*
AGY CONT+1*, CONT+2, CONT+11!
>> AUPNPAT GETAW+55
BDT GOODDT+1~, GOODDT+2*, GOODDT+4, GOODDT+5, GOODDT+6
>> CANCELED EFFDT+7, EFFDT+16*
>> CAPDENT GETAW+11*, GETAW+23, GETAW+24
>> CAPTION GETAW+7*, GETAW+23, GETAW+24
>> COMPIEN EN+13*, EN+15, EN+17*, CONT+4
D0 GETAW+28*, GETAW+30*, GETAW+31, GETAW+33, GETAW+35, GETAW+37~, GETAW+39*, GETAW+41, GETAW+42*, GETAW+45*
DA CONT+6~, CONT+8*, CLEANZER+1!, CLEANZER+2*, END!, NEWENTRY+3!, NEWENTRY+16*, MEDSTATE+2*, AEFFDT+14!, EFFDT+1!
, EFFDT+11!, EFFDT+18*, EFFDT+25, ENDDATE+2*, COVTYPE+2*, OVERLAP+23*, MEDNUM+1!, MEDNUM+2*, MEDNUM+7!, MEDNAME+1!
, MEDNAME+2*, MEDNAME+7!, MEDDOB+1!, MEDDOB+2*, MEDDOB+7!, PCP+1!, PCP+2*, PCP+6!, GRPNAME+1!, GRPNAME+2*
, GRPNAME+6!, PLANNM+1!, PLANNM+2*, PLANNM+11!, RATECD+2!, RATECD+3*, RATECD+12!, CCONFILE+2!, CCONFILE+3*, CCONFILE+10!
, CCONFILE+11*, CCONFILE+16!, CCONFILE+17*, CCONFILE+22!
DA(1 AEFFDT+5*, AEFFDT+6, EFFDT+19*, EFFDT+20, ENDDATE+3*, ENDDATE+4, COVTYPE+3*, COVTYPE+4, OVERLAP+24*, OVERLAP+25
DATESORT END+1!
DD NEWENTRY+3!, MEDNUM+1!, MEDNAME+1!, MEDDOB+1!, PCP+1!, GRPNAME+1!, PLANNM+1!, RATECD+2!, CCONFILE+2!
DEFEDDT EN+2!, END+1!, AEFFDT+3
>> DFN CONT+5, GETAW+52, GETAW+55, MSG+1, NEWENTRY+6, NEWENTRY+7, NEWENTRY+10*, NEWENTRY+22, EFFDT+6, MEDNAME+5
, MEDDOB+5
DFOUT VAR+27, END!
DIC END!, GETAW+8*, GETAW+23, GETAW+24, GETAW+29, GETAW+31, GETAW+33, GETAW+35, GETAW+38*, GETAW+41
, GETAW+44, NEWENTRY+3!, NEWENTRY+4*, NEWENTRY+15, MEDSTATE+1!, MEDSTATE+7!, AEFFDT+1!, AEFFDT+6*, AEFFDT+14!, EFFDT+1!
, EFFDT+11!, EFFDT+24!, ENDDATE+1!, ENDDATE+7!, COVTYPE+1!, COVTYPE+12!, OVERLAP+21!, OVERLAP+29!, MEDNUM+1!, MEDNUM+7!
, MEDNAME+1!, MEDNAME+7!, MEDDOB+1!, MEDDOB+7!, PCP+1!, PCP+6!, GRPNAME+1!, GRPNAME+6!, PLANNM+1!, PLANNM+11!
, RATECD+2!, RATECD+12!, CCONFILE+2!, CCONFILE+10!, CCONFILE+16!, CCONFILE+22!
DIC("A" AEFFDT+9*
DIC("B" AEFFDT+2*, AEFFDT+3*
DIC("S" NEWENTRY+8*
DIC(0 NEWENTRY+5*, AEFFDT+8*
DIE CONT+6~, CONT+7*, GETAW+37~, NEWENTRY+3!, NEWENTRY+15*, MEDSTATE+1!, MEDSTATE+3*, MEDSTATE+7!, AEFFDT+1!, AEFFDT+14!
, EFFDT+1!, EFFDT+11!, EFFDT+20*, EFFDT+24!, ENDDATE+1!, ENDDATE+4*, ENDDATE+7!, COVTYPE+1!, COVTYPE+4*, COVTYPE+12!
, OVERLAP+21!, OVERLAP+25*, OVERLAP+29!, MEDNUM+1!, MEDNUM+3*, MEDNUM+7!, MEDNAME+1!, MEDNAME+3*, MEDNAME+7!, MEDDOB+1!
, MEDDOB+3*, MEDDOB+7!, PCP+1!, PCP+3*, PCP+6!, GRPNAME+1!, GRPNAME+3*, GRPNAME+6!, PLANNM+1!, PLANNM+3*
, PLANNM+11!, RATECD+2!, RATECD+4*, RATECD+12!, CCONFILE+2!, CCONFILE+4*, CCONFILE+10!, CCONFILE+12*, CCONFILE+16!, CCONFILE+18*
, CCONFILE+22!
DIE("NO^" MEDSTATE+5*, COVTYPE+9*, MEDNUM+5*, PLANNM+8*, RATECD+9*, CCONFILE+13*
DIK CLEANZER+1!, CLEANZER+2*
DIR VAR+3!, VAR+15!, NEWENTRY+3!, EFFDT+11!
DIR("?" VAR+16*, VAR+17*, VAR+18*, VAR+19*, VAR+20*
DIR("A" VAR+4*, VAR+21*, GETAW+59*, EFFDT+14*
DIR("B" EFFDT+13*
DIR(0 VAR+5*, GETAW+59*, EFFDT+12*
>> DIROUT VAR+10
>> DLAYGO AEFFDT+7*
DLOUT VAR+26, END!
DO NEWENTRY+3!, MEDNUM+1!, MEDNAME+1!, MEDDOB+1!, PCP+1!, GRPNAME+1!, PLANNM+1!, RATECD+2!, CCONFILE+2!
DQOUT VAR+28, END!
DR CONT+6~, CONT+9*, END!, GETAW+9*, GETAW+23, GETAW+24, GETAW+31, GETAW+33, GETAW+35, GETAW+37~
, GETAW+40*, GETAW+41, NEWENTRY+3!, NEWENTRY+19*, NEWENTRY+23*, MEDSTATE+1!, MEDSTATE+4*, MEDSTATE+7!, AEFFDT+1!, AEFFDT+14!
, EFFDT+1!, EFFDT+11!, EFFDT+21*, EFFDT+24!, ENDDATE+1!, ENDDATE+5*, ENDDATE+7!, COVTYPE+1!, COVTYPE+8*, COVTYPE+10*
, COVTYPE+12!, OVERLAP+21!, OVERLAP+26*, OVERLAP+29!, MEDNUM+1!, MEDNUM+4*, MEDNUM+7!, MEDNAME+1!, MEDNAME+4*, MEDNAME+5*
, MEDNAME+7!, MEDDOB+1!, MEDDOB+4*, MEDDOB+5*, MEDDOB+7!, PCP+1!, PCP+4*, PCP+6!, GRPNAME+1!, GRPNAME+4*
, GRPNAME+6!, PLANNM+1!, PLANNM+7*, PLANNM+9*, PLANNM+11!, RATECD+2!, RATECD+8*, RATECD+10*, RATECD+12!, CCONFILE+2!
, CCONFILE+7*, CCONFILE+10!, CCONFILE+13*, CCONFILE+16!, CCONFILE+19*, CCONFILE+22!
DR(2 EFFDT+22*, OVERLAP+27*
>> DT1 OVERLAP+6*, OVERLAP+8*, OVERLAP+9*, OVERLAP+10, OVERLAP+11, OVERLAP+13, OVERLAP+16
>> DT2 OVERLAP+13*, OVERLAP+14*, OVERLAP+15, OVERLAP+16
DTOUT VAR+10, VAR+27, END!
>> DUOUT VAR+10, VAR+26
DUZ(2 EN+12, CONT+5, GETAW+52, GETAW+55
EDT GOODDT+1~, GOODDT+3*, GOODDT+4, GOODDT+5, GOODDT+6
>> EXECUTE GETAW+14*, GETAW+33, GETAW+42
>> EXIT EN+3*, EN+4, EN+5*, EN+6*, EN+8*, GETAW+3
IN3PB EFFDT+5!, EFFDT+6*, EFFDT+7
>> ITEMNUM GETAW+12*, GETAW+18, GETAW+21, GETAW+22
MYERRS END+1!, GETAW+53!, GETAW+54, GETAW+56
MYERRS("C" VAR+8, VAR+24
MYVARS END+1!, GETAW+53!, GETAW+56
MYVARS("DFN" GETAW+55*
MYVARS("FINDCALL" GETAW+55*
MYVARS("SELECTION" GETAW+55*
MYVARS("SITE" GETAW+55*
NEWENTRY EN~, EN+4, EN+16*, GETAW+27, GETAW+52, GETAW+56, NEWENTRY+14*, MEDNAME+5, MEDDOB+5
>> NEWLINE GETAW+10*, GETAW+20
>> OPENEND OVERLAP+7*
>> OVERLAP OVERLAP+5*, OVERLAP+9, OVERLAP+15*, OVERLAP+16*, OVERLAP+17
>> POSTEXEC GETAW+17*, GETAW+43
>> PRECAPEX GETAW+16*, GETAW+23, GETAW+24
>> PREEXEC GETAW+15*, GETAW+31, GETAW+33
REC END+1!
>> ROUTID DRAW+2*
>> STATEVAL GETAW+35*, GETAW+52
>> TAGCALL GETAW+13*, GETAW+18
>> TDT1 OVERLAP+2*, OVERLAP+10, OVERLAP+15, OVERLAP+16
>> TDT2 OVERLAP+3*
TEMPDFN NEWENTRY+2~, NEWENTRY+7*, NEWENTRY+10
>> TTYP OVERLAP+4*, OVERLAP+12
>> TYP OVERLAP+11*, OVERLAP+12
U EN+12, CONT+4, GETAW+7, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+23
, GETAW+24, MSG+1, AEFFDT+13, EFFDT+6, COVTYPE+7, OVERLAP+3, OVERLAP+4, OVERLAP+11, OVERLAP+13, MEDNAME+5
, MEDDOB+5, PLANNM+6, RATECD+7, CCONFILE+9, CCONFILE+15, GOODDT+2, GOODDT+3
WD0 EN~, EN+8, EN+13, EN+17, VAR+7, VAR+12, VAR+14, CONT+8, CLEAN~, CLEAN+1
, CLEANZER~, CLEANZER+2, GETAW+28, GETAW+39, GETAW+47, NEWENTRY+13*, NEWENTRY+16, MEDSTATE+2, AEFFDT+4, AEFFDT+5
, EFFDT+6, EFFDT+19, EFFDT+27, ENDDATE+3, ENDDATE+9, COVTYPE+3, COVTYPE+13, OVERLAP~, OVERLAP+3, OVERLAP+4
, OVERLAP+9, OVERLAP+11, OVERLAP+13, OVERLAP+24, MEDNUM+2, MEDNAME+2, MEDNAME+5, MEDDOB+2, MEDDOB+5, PCP+2
, GRPNAME+2, PLANNM+2, RATECD+3, CCONFILE+3, CCONFILE+9, CCONFILE+11, CCONFILE+15, CCONFILE+17, GOODDT+2, GOODDT+3
WD1 EN~, EN+13, EN+17, GETAW+45, AEFFDT+2, AEFFDT+12*, EFFDT+2, EFFDT+6, EFFDT+18, EFFDT+27
, ENDDATE+2, ENDDATE+9, COVTYPE+2, COVTYPE+13, OVERLAP~, OVERLAP+2, OVERLAP+3, OVERLAP+4, OVERLAP+22, OVERLAP+23
, GOODDT+2, GOODDT+3
WDA END!
WDFN END+1!
WDT END!
>> X GETAW+52, NEWENTRY+6*
Y EN+6, EN+8, VAR+7, VAR+8, VAR+9, VAR+11, VAR+12, VAR+23, VAR+24, VAR+25
, VAR+26, VAR+28, CONT+1, END!, NEWENTRY+11, NEWENTRY+13, AEFFDT+11, AEFFDT+12, AEFFDT+13, EFFDT+16
, MEDDOB+5~*

Marked Items

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