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

Package: IHS Patient Registration

Routine: AGEDTPL


Information

AGEDTPL ; IHS/ASDS/TPF - THIRD PARTY LIABILITY ;

Source Information

Source file <AGEDTPL.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Patient Registration 5 (,UPDATE1)^AGED  READ^AGED1  (EDITCHEK,FETCHERR)^AGEDERR  $$ISREQ^AGFLDREQ  ($$NOTELINE,$$UPDTSEL,VERIF)^AGUTILS  
VA Fileman 5 ^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 ;DATE OF INJURY; DESC OF INJURY; CAUSE OF INJURY; RESPONSIBLE
DTRWRK ;DATE AUTHORIZED TO WORK - AG*7.1*9
NOTES ;NOTES
RESPNAM ;RESPONSIBLE PARTY NAME
DTACC ;DATE OF INJURY
GETAW ;DISPLAY
DTLWRK ;DATE LAST WORKED - AG*7.1*9
NEWENTRY ;TOTALLY NEW ENTRY
RESPINS ;RESPONSIBLE PARTY INSURANCE COMPANY
GRPNAME ;GROUP NAME AND #
AMSG ;DISP THIS MSG IF THERE NO ENTRY IN THE THIRD PARTY LIABILITY
1 ;
DTSDIS ;DISABILITY START DATE - AG*7.1*9
DTEDIS ;DISABILITY END DATE - AG*7.1*9
CLM ;CLAIM # - AG*7.1*9
DRAW ;EP
END
GOODDT(AD0,AD1) ;EP - CHECK IF EFF AND END DATES MAKE SENSE
GRPNUM ;GROUP #
POLEFF ;EFF DATE
APATATTY ;NAME OF PATIENT'S ATTORNEY
VAR
CAUSE ;CAUSE OF INJURY
POLNO ;INSURANCE POLICY #
EN(AD0,AD1,NEWENTRY,AGSELECT,AGELPINS) ;EP
RESPSSN ;RESPONSIBLE PARTY SSN
POLEND ;END DATE
CNTINF ;CONTACT INFO - AG*7.1*9
CLEAN(AD0) ;EP - CHECK HERE TO SEE IF ENTRIES HAVE ACTUALLY BEEN
ADDDT ;
CLEANZER(AD0) ;EP - CLEAN ZERO NODE WITH NO DATES
GDDDT(AD0,AD1) ;CHECK DISABILITY START/END DATES - AG*7.1*9
DESCAI ;DESC OF INJURY

External References

Name Field # of Occurrence
^AGED DRAW+4
UPDATE1^AGED CONT+12
READ^AGED1 VAR+5
EDITCHEK^AGEDERR GETAW+28
FETCHERR^AGEDERR GETAW+26
$$ISREQ^AGFLDREQ POLNO+6
$$NOTELINE^AGUTILS NOTES+7
$$UPDTSEL^AGUTILS EN+26, CONT+11
VERIF^AGUTILS GETAW+30
^DIC NEWENTRY+7, ADDDT+6
^DIE ADDDT+14, DTACC+8, DESCAI+7, CAUSE+7, RESPNAM+7, RESPSSN+7, RESPINS+7, POLEFF+7, POLEND+7, CLM+7
, DTLWRK+7, DTSDIS+7, DTEDIS+7, DTRWRK+7, CNTINF+7, GRPNAME+7, POLNO+8, APATATTY+7, NOTES+8
^DIK CLEANZER+2
$$GET1^DIQ GETAW+20, GETAW+22, GDDDT+2, GDDDT+3
^DIR GETAW+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Entry not made."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+2
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!"
  • Line Location: VAR+11
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+15
Function Call: WRITE
  • Prompt: ?30,"THIRD PARTY LIABILITY"
  • Line Location: DRAW+6
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+7
Function Call: WRITE
  • Prompt: !,"-RESPONSIBLE PARTY--------------------------------------------------------------"
  • Line Location: GETAW+4
Function Call: WRITE
  • Prompt: !,"-COVERAGE DATA------------------------------------------------------------------"
  • Line Location: GETAW+5
Function Call: WRITE
  • Prompt: !,"-CLAIM INFORMATION--------------------------------------------------------------"
  • Line Location: GETAW+6
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: GETAW+7
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+20
Function Call: WRITE
  • Prompt: ?42,"GROUP NUMBER: ",$S($$GET1^DIQ(DIC,D0,DR,"I"):$P($G(^AUTNEGRP($$GET1^DIQ(DIC,D0,DR,"I"),0)),U,2),1:"")
  • Line Location: GETAW+22
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+24
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+29
Function Call: WRITE
  • Prompt: !,"You must first enter the DATE OF INJURY"
  • Line Location: AMSG+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWENTRY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DESCAI+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RESPNAM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RESPSSN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RESPINS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: POLEFF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: POLEND+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
Function Call: WRITE
  • Prompt: !,"CANNOT HAVE AN ENDING DATE WITHOUT A BEGINNING DATE! TRY AGAIN"
  • Line Location: GDDDT+4
Function Call: WRITE
  • Prompt: !,"DISABILITY ENDING DATE IS LESS THAN THE EFFECTIVE DATE! TRY AGAIN"
  • Line Location: GDDDT+5
Function Call: WRITE
  • Prompt: !,"DISABILITY START DATE IS GREATER THAN THE ENDING DATE! TRY AGAIN"
  • Line Location: GDDDT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CLM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DTLWRK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DTSDIS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DTEDIS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DTRWRK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CNTINF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GRPNAME+1
Function Call: WRITE
  • Prompt: !
  • Line Location: POLNO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: APATATTY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTES+1
Function Call: WRITE
  • Prompt: $$NOTELINE^AGUTILS(DR,9000041.0101,AD1_","_AD0_",",45)
  • Line Location: NOTES+7
Routine Call
  • DIE
  • Line Location:
    • ADDDT+14
    • DTACC+8
    • DESCAI+7
    • CAUSE+7
    • RESPNAM+7
    • RESPSSN+7
    • RESPINS+7
    • POLEFF+7
    • POLEND+7
    • CLM+7
    • DTLWRK+7
    • DTSDIS+7
    • DTEDIS+7
    • DTRWRK+7
    • CNTINF+7
    • GRPNAME+7
    • POLNO+8
    • APATATTY+7
    • NOTES+8
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+7
    • ADDDT+6
Routine Call
  • DIR
  • Line Location:
    • GETAW+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNTPL - [#9000041] Classic Fileman Calls
9000041.0101 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNTPL - [#9000041] VAR+9, CLEAN+3, DTACC+1, GOODDT+2, GOODDT+3
^AUTNEGRP - [#9999999.77] GETAW+22
^DD( GETAW+13
^UTILITY("DIQ1" DRAW+5!

Label References

Name Line Occurrences
$$GDDDT DTSDIS+9, DTEDIS+9
$$GOODDT POLEFF+10, POLEND+10
@( CONT+6
AMSG EN+6
APATATTY EN+16
CAUSE EN+8
CLEAN EN+6, VAR+9
CLEANZER CLEAN+3
CLM EN+17
CNTINF EN+22
CONT VAR+10
DESCAI EN+7
DRAW EN+6, VAR
DTEDIS EN+20, DTEDIS+9
DTLWRK EN+18
DTRWRK EN+21
DTSDIS EN+19, DTSDIS+9
END EN+6, VAR+13
GETAW DRAW+8
GRPNAME EN+14
NEWENTRY EN+6, DTACC+1
NOTES EN+23
POLEFF EN+12, POLEFF+10
POLEND EN+13, POLEND+10
POLNO EN+15
RESPINS EN+11
RESPNAM EN+9
RESPSSN EN+10
VAR VAR+11, VAR+13, VAR+15, CONT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD0 EN~, EN+6, EN+24, EN+28, VAR+9, CLEAN~, CLEAN+3, CLEANZER~, CLEANZER+2, GETAW+17
, NEWENTRY+9*, ADDDT+2, ADDDT+11, DTACC+1, DTACC+4, DESCAI+4, CAUSE+4, RESPNAM+4, RESPSSN+4, RESPINS+4
, POLEFF+4, POLEFF+10, POLEND+4, POLEND+10, GOODDT~, GOODDT+2, GOODDT+3, GDDDT~, GDDDT+2, GDDDT+3
, CLM+4, DTLWRK+4, DTSDIS+4, DTSDIS+9, DTEDIS+4, DTEDIS+9, DTRWRK+4, CNTINF+4, GRPNAME+4, POLNO+4
, APATATTY+4, NOTES+4, NOTES+7
AD1 EN~, EN+24, EN+28, GETAW+19, ADDDT+8*, ADDDT+13, DTACC+5, DTACC+10*, DESCAI+3, CAUSE+3
, RESPNAM+3, RESPSSN+3, RESPINS+3, POLEFF+3, POLEFF+10, POLEND+3, POLEND+10, GOODDT~, GOODDT+2, GOODDT+3
, GDDDT~, GDDDT+2, GDDDT+3, CLM+3, DTLWRK+3, DTSDIS+3, DTSDIS+9, DTEDIS+3, DTEDIS+9, DTRWRK+3
, CNTINF+3, GRPNAME+3, POLNO+3, APATATTY+3, NOTES+3, NOTES+7
ADA END!
ADFN END+1!
ADT END!
AG END!, GETAW+1*, GETAW+4, GETAW+5, GETAW+6, GETAW+7, GETAW+13, GETAW+22, GETAW+23
AG("C" CONT+4*, CONT+6
AG("ERR" VAR+13
AG("N" VAR+4, VAR+15, CONT+6, GETAW+23*
AG("PG" DRAW+1*, GETAW+26
AG("SEL" CONT+6*
>> AGELP("INS" EN+26
AGELPINS EN~, ADDDT+9
AGI CONT+6*, CONT+13!
>> AGINS EN+26, CONT+11
>> AGLINE("-" DRAW+7, GETAW+7, GETAW+24, GETAW+29
>> AGLINE("EQ" VAR+2
>> AGOPT("ESCAPE" VAR+11, VAR+12
AGSCRN END!, GETAW+1, GETAW+2*, GETAW+3, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12
>> AGSEENLY VAR+1, GETAW+31
AGSELECT EN~, EN+26*, CONT+11*, GETAW+27
AGY CONT+5*, CONT+6, CONT+13!
BDT GOODDT+1~, GOODDT+2*, GOODDT+4, GOODDT+5, GOODDT+6, GDDDT+1~, GDDDT+2*, GDDDT+4, GDDDT+5, GDDDT+6
>> CAPDENT GETAW+12*, GETAW+13
>> CAPTION GETAW+8*, GETAW+13
COMPIEN EN+24*, EN+26, EN+28*, CONT+11, END+1!
D0 GETAW+17*, GETAW+18*, GETAW+19*, GETAW+20, GETAW+22, DTACC+2!
>> D1 DTACC+10
DA CLEANZER+1!, CLEANZER+2*, END!, NEWENTRY+2!, ADDDT+1!, ADDDT+13*, DTACC+2!, DTACC+5*, DTACC+9, DESCAI+2!
, DESCAI+3*, DESCAI+8!, CAUSE+2!, CAUSE+3*, CAUSE+8!, RESPNAM+2!, RESPNAM+3*, RESPNAM+8!, RESPSSN+2!, RESPSSN+3*
, RESPSSN+8!, RESPINS+2!, RESPINS+3*, RESPINS+8!, POLEFF+2!, POLEFF+3*, POLEFF+8!, POLEND+2!, POLEND+3*, POLEND+8!
, CLM+2!, CLM+3*, CLM+8!, DTLWRK+2!, DTLWRK+3*, DTLWRK+8!, DTSDIS+2!, DTSDIS+3*, DTSDIS+8!, DTEDIS+2!
, DTEDIS+3*, DTEDIS+8!, DTRWRK+2!, DTRWRK+3*, DTRWRK+8!, CNTINF+2!, CNTINF+3*, CNTINF+8!, GRPNAME+2!, GRPNAME+3*
, GRPNAME+8!, POLNO+2!, POLNO+3*, POLNO+9!, APATATTY+2!, APATATTY+3*, APATATTY+8!, NOTES+2!, NOTES+3*, NOTES+9!
DA(1 ADDDT+2*, ADDDT+3, ADDDT+10, ADDDT+11*, DTACC+4*, DTACC+6, DESCAI+4*, DESCAI+5, CAUSE+4*, CAUSE+5
, RESPNAM+4*, RESPNAM+5, RESPSSN+4*, RESPSSN+5, RESPINS+4*, RESPINS+5, POLEFF+4*, POLEFF+5, POLEND+4*, POLEND+5
, CLM+4*, CLM+5, DTLWRK+4*, DTLWRK+5, DTSDIS+4*, DTSDIS+5, DTEDIS+4*, DTEDIS+5, DTRWRK+4*, DTRWRK+5
, CNTINF+4*, CNTINF+5, GRPNAME+4*, GRPNAME+5, POLNO+4*, POLNO+5, APATATTY+4*, APATATTY+5, NOTES+4*, NOTES+5
DD NEWENTRY+6!, ADDDT+5!, DTACC+2!, DESCAI+2!, CAUSE+2!, RESPNAM+2!, RESPSSN+2!, RESPINS+2!, POLEFF+2!, POLEND+2!
, CLM+2!, DTLWRK+2!, DTSDIS+2!, DTEDIS+2!, DTRWRK+2!, CNTINF+2!, GRPNAME+2!, POLNO+2!, APATATTY+2!, NOTES+2!
>> DFN CONT+12, GETAW+27, NEWENTRY+5
DFOUT VAR+14, END!
DIC END!, GETAW+9*, GETAW+13, GETAW+18, GETAW+20, GETAW+22, NEWENTRY+2!, NEWENTRY+3*, ADDDT+1!, ADDDT+3*
, DTACC+2!, DTACC+11!, DESCAI+2!, DESCAI+8!, CAUSE+2!, CAUSE+8!, RESPNAM+2!, RESPNAM+8!, RESPSSN+2!, RESPSSN+8!
, RESPINS+2!, RESPINS+8!, POLEFF+2!, POLEFF+8!, POLEND+2!, POLEND+8!, CLM+2!, CLM+8!, DTLWRK+2!, DTLWRK+8!
, DTSDIS+2!, DTSDIS+8!, DTEDIS+2!, DTEDIS+8!, DTRWRK+2!, DTRWRK+8!, CNTINF+2!, CNTINF+8!, GRPNAME+2!, GRPNAME+8!
, POLNO+2!, POLNO+9!, APATATTY+2!, APATATTY+8!, NOTES+2!, NOTES+9!
DIC(0 NEWENTRY+4*, ADDDT+4*
DIE NEWENTRY+2!, ADDDT+1!, ADDDT+10*, DTACC+2!, DTACC+6*, DTACC+11!, DESCAI+2!, DESCAI+5*, DESCAI+8!, CAUSE+2!
, CAUSE+5*, CAUSE+8!, RESPNAM+2!, RESPNAM+5*, RESPNAM+8!, RESPSSN+2!, RESPSSN+5*, RESPSSN+8!, RESPINS+2!, RESPINS+5*
, RESPINS+8!, POLEFF+2!, POLEFF+5*, POLEFF+8!, POLEND+2!, POLEND+5*, POLEND+8!, CLM+2!, CLM+5*, CLM+8!
, DTLWRK+2!, DTLWRK+5*, DTLWRK+8!, DTSDIS+2!, DTSDIS+5*, DTSDIS+8!, DTEDIS+2!, DTEDIS+5*, DTEDIS+8!, DTRWRK+2!
, DTRWRK+5*, DTRWRK+8!, CNTINF+2!, CNTINF+5*, CNTINF+8!, GRPNAME+2!, GRPNAME+5*, GRPNAME+8!, POLNO+2!, POLNO+5*
, POLNO+9!, APATATTY+2!, APATATTY+5*, APATATTY+8!, NOTES+2!, NOTES+5*, NOTES+9!
DIE("NO^" POLNO+6*
DIK CLEANZER+1!, CLEANZER+2*
DIR VAR+3!
DIR("A" VAR+4*, GETAW+31*
DIR(0 GETAW+31*
DLOUT VAR+13, END!
DO NEWENTRY+6!, ADDDT+5!, DESCAI+2!, CAUSE+2!, RESPNAM+2!, RESPSSN+2!, RESPINS+2!, POLEFF+2!, POLEND+2!, CLM+2!
, DTLWRK+2!, DTSDIS+2!, DTEDIS+2!, DTRWRK+2!, CNTINF+2!, GRPNAME+2!, POLNO+2!, APATATTY+2!, NOTES+2!
DQOUT VAR+15, END!
DR END!, GETAW+10*, GETAW+13, GETAW+20, GETAW+22, NEWENTRY+2!, ADDDT+1!, ADDDT+12*, DTACC+2!, DTACC+7*
, DTACC+11!, DESCAI+2!, DESCAI+6*, DESCAI+8!, CAUSE+2!, CAUSE+6*, CAUSE+8!, RESPNAM+2!, RESPNAM+6*, RESPNAM+8!
, RESPSSN+2!, RESPSSN+6*, RESPSSN+8!, RESPINS+2!, RESPINS+6*, RESPINS+8!, POLEFF+2!, POLEFF+6*, POLEFF+8!, POLEND+2!
, POLEND+6*, POLEND+8!, CLM+2!, CLM+6*, CLM+8!, DTLWRK+2!, DTLWRK+6*, DTLWRK+8!, DTSDIS+2!, DTSDIS+6*
, DTSDIS+8!, DTEDIS+2!, DTEDIS+6*, DTEDIS+8!, DTRWRK+2!, DTRWRK+6*, DTRWRK+8!, CNTINF+2!, CNTINF+6*, CNTINF+8!
, GRPNAME+2!, GRPNAME+6*, GRPNAME+8!, POLNO+2!, POLNO+6*, POLNO+7*, POLNO+9!, APATATTY+2!, APATATTY+6*, APATATTY+8!
, NOTES+2!, NOTES+6*, NOTES+7, NOTES+9!
DTOUT VAR+14, END!
>> DUOUT VAR+13
DUZ(2 CONT+12, GETAW+27
EDT GOODDT+1~, GOODDT+3*, GOODDT+4, GOODDT+5, GOODDT+6, GDDDT+1~, GDDDT+3*, GDDDT+4, GDDDT+5, GDDDT+6
>> EXIT EN+4, EN+5*, EN+6*
MYERRS GETAW+25!, GETAW+26, GETAW+28
MYERRS("C" VAR+11
MYVARS GETAW+25!, GETAW+28
MYVARS("DFN" GETAW+27*
MYVARS("FINDCALL" GETAW+27*
MYVARS("SELECTION" GETAW+27*
MYVARS("SITE" GETAW+27*
NEWENTRY EN~, EN+4, EN+27*, GETAW+16, GETAW+28, NEWENTRY+10*
>> NEWLINE GETAW+11*, GETAW+13
REC END+1!
ROUTID END+1!, DRAW+2*
>> SEQHD DRAW+3*
TPLDEL EN+3!, CONT+9, END+1!, DTACC+3*, DTACC+9*
U CONT+11, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+22, GOODDT+2, GOODDT+3
WDA END!
WDFN END+1!
WDT END!
>> X NEWENTRY+5*
Y EN+6, VAR+9, VAR+10, VAR+11, VAR+12, VAR+13, VAR+15, CONT+5, END!, NEWENTRY+8
, NEWENTRY+9, ADDDT+7, ADDDT+8

Marked Items

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