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

Package: IHS Patient Registration

Routine: AGEDWC


Information

AGEDWC ; IHS/ASDS/EFG - WORKMAN'S COMP PAGE ;

Source Information

Source file <AGEDWC.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 ^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
IHS Patient Registration 4 (,UPDATE1)^AGED  READ^AGED1  (EDITCHEK,FETCHERR)^AGEDERR  ($$UPDTSEL,VERIF)^AGUTILS  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Patient Registration 2 AGED4A  AGED4A01  

Entry Points

Name Comments DBIA/ICR reference
GROUP ;GROUP NAME
EMPL ;PATIENT'S EMPLOYER
ENTITY ;WORKMAN'S COMP ENTITY
DSENDT ;DISABILITY END DATE - AG*7.1*9
GETAW ;DISPLAY
EXP ;EXPIRE DATE
DTLWRK ;DATE LAST WORKED - AG*7.1*9
NEWENTRY ;NEW ENTRY
1 ;
DSSTDT ;DISABILITY START DATE - AG*7.1*9
TYPEACC ;TYPE OF ACCIDENT
CONT ;CONTACT INFO - AG*7.1*9
DTAWRK ;DATE AUTHORIZED RETURN TO WORK - AG*7.1*9
WPATATTY ;NAME OF PATIENT'S ATTORNEY FOR WORKMAN'S COMP
ADTWC ;ADD NEW DT RECORD
NOTES ;NOTES
DRAW ;EP
CLEANZER(WD0) ;EP - CLEAN ZERO NODE WITH NO DATES
END
GOODDT(AD0,AD1) ;EP
EN(WD0,WD1,NEWENTRY,AGSELECT) ;EP -
CLMFIL ;WAS CLAIM FILED
CLMNO ;CLAIM #
CLMSTAT ;CLAIM STATUS
VAR
DTWC ;WORKMAN'S COMP INJURY DATE
DESCWI ;DESCRIPTION OF INJURY
EFF ;EFF COV DATE
WMSG ;DISP THIS MSG IF THERE IS NO ENTRY IN THE WORKMAN'S
DTCLOSE ;DATE CASE CLOSED
GDDDT(AD0,AD1) ;CHECK DISABILITY START/END DATES - AG*7.1*9
CLEAN(WD0) ;CLEAN EMPTY RECORD. IF NO GUARANTOR HAS BEEN ENTERED THEN

External References

Name Field # of Occurrence
^AGED DRAW+3
UPDATE1^AGED VAR+23
READ^AGED1 VAR+5
EDITCHEK^AGEDERR GETAW+28
FETCHERR^AGEDERR GETAW+26
$$UPDTSEL^AGUTILS EN+29, VAR+22
VERIF^AGUTILS GETAW+30
^DIC NEWENTRY+7, ADTWC+8
^DIE DTWC+6, DESCWI+6, CLMFIL+6, CLMNO+6, WPATATTY+6, EMPL+6, DTCLOSE+6, TYPEACC+7, CLMSTAT+7, ENTITY+7
, GROUP+7, EFF+7, EXP+7, DTLWRK+7, DSSTDT+7, DSENDT+7, DTAWRK+7, CONT+7, NOTES+7
^DIK CLEANZER+2
$$GET1^DIQ GETAW+21, GETAW+22, GDDDT+2, GDDDT+3
^DIR GETAW+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"New entry not made"
  • Line Location: EN+6
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: !,"New entry not made"
  • Line Location: EN+10
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+10
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+15
Function Call: WRITE
  • Prompt: ?30,"WORKMAN'S COMPENSATION"
  • Line Location: DRAW+5
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: DRAW+6
Function Call: WRITE
  • Prompt: !,"EMPLOYER DATA"_$E(AGLINE("-"),1,66)
  • Line Location: GETAW+4
Function Call: WRITE
  • Prompt: !,"ATTORNEY DATA"_$E(AGLINE("-"),1,66)
  • Line Location: GETAW+5
Function Call: WRITE
  • Prompt: !,"INSURANCE COVERAGE"_$E(AGLINE("-"),1,61)
  • Line Location: GETAW+6
Function Call: WRITE
  • Prompt: !,"CLAIM INFORMATION"_$E(AGLINE("-"),1,63)
  • Line Location: GETAW+7
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+8
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+21
Function Call: WRITE
  • Prompt: ?50,"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 WC INJURY"
  • Line Location: WMSG+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWENTRY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPEACC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CLMSTAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTITY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GROUP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EFF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EXP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DTLWRK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DSSTDT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DSENDT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DTAWRK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+1
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: !,"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: !
  • Line Location: NOTES+1
Routine Call
  • DIE
  • Line Location:
    • DTWC+6
    • DESCWI+6
    • CLMFIL+6
    • CLMNO+6
    • WPATATTY+6
    • EMPL+6
    • DTCLOSE+6
    • TYPEACC+7
    • CLMSTAT+7
    • ENTITY+7
    • GROUP+7
    • EFF+7
    • EXP+7
    • DTLWRK+7
    • DSSTDT+7
    • DSENDT+7
    • DTAWRK+7
    • CONT+7
    • NOTES+7
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+7
    • ADTWC+8
Routine Call
  • DIR
  • Line Location:
    • GETAW+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNWC - [#9000042] Classic Fileman Calls
9000042.11 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNWC - [#9000042] VAR+9, CLEAN+5, GOODDT+2, GOODDT+3
^AUTNEGRP - [#9999999.77] GETAW+22
^DD( GETAW+14
^DD(9000042 ADTWC+5
^UTILITY("DIQ1" DRAW+4!

Label References

Name Line Occurrences
$$GDDDT DSSTDT+10, DSENDT+10
$$GOODDT EFF+10, EXP+10
@( VAR+12, VAR+19
ADTWC EN+10
CLEAN VAR+9
CLEANZER EN+8, EN+10, CLEAN+7
CLMFIL EN+18
CLMNO EN+20
CLMSTAT EN+19
CONT EN+25
DESCWI EN+12
DRAW EN+8, VAR
DSENDT EN+23, DSENDT+10
DSSTDT EN+22, DSSTDT+10
DTAWRK EN+24
DTLWRK EN+21
EFF EN+16, EFF+10
EMPL EN+13
END EN+8, EN+10, VAR+9, VAR+13
EXP EN+17, EXP+10
GETAW DRAW+7
GROUP EN+15
NEWENTRY EN+8
NOTES EN+26
TYPEACC EN+11
VAR VAR+10, VAR+13, VAR+15, VAR+25
WMSG EN+8
WPATATTY EN+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD0 GDDDT~, GDDDT+2, GDDDT+3, GOODDT~
AD1 GDDDT~, GDDDT+2, GDDDT+3, GOODDT~
ADA END!
ADFN END!
ADT END!
>> AG GETAW+1*, GETAW+4, GETAW+5, GETAW+6, GETAW+7, GETAW+8, GETAW+14, GETAW+22, GETAW+23
>> AG("C" VAR+17*, VAR+19
>> AG("ED" VAR+12
>> AG("ERR" VAR+13
>> AG("N" VAR+4, VAR+15, VAR+19, GETAW+23*
>> AG("PG" DRAW+1*, GETAW+26
>> AG("SEL" VAR+19*
>> AGELP("INS" EN+29
AGI VAR+19*, VAR+24!
>> AGINS EN+29, VAR+22
>> AGLINE("-" DRAW+6, GETAW+4, GETAW+5, GETAW+6, GETAW+7, GETAW+8, GETAW+24, GETAW+29
>> AGLINE("EQ" VAR+2
>> AGOPT("ESCAPE" VAR+10, VAR+11
AGSCRN END!, GETAW+1, GETAW+2*, GETAW+3, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13
>> AGSEENLY VAR+1, GETAW+31
AGSELECT EN~, EN+29*, VAR+22*, GETAW+27
>> AGXTERN VAR+12
AGY VAR+18*, VAR+19, VAR+24!
BDT GDDDT+1~, GDDDT+2*, GDDDT+4, GDDDT+5, GDDDT+6, GOODDT+1~, GOODDT+2*, GOODDT+4, GOODDT+5, GOODDT+6
>> CAPDENT GETAW+13*, GETAW+14
>> CAPTION GETAW+9*, GETAW+14
>> COMPIEN EN+27*, EN+31*
>> D0 GETAW+18*, GETAW+19*, GETAW+20*, GETAW+21, GETAW+22
DA CLEANZER+1!, CLEANZER+2*, END!, NEWENTRY+2!, ADTWC+1!, ADTWC+11!, DTWC+3*, DTWC+7, DESCWI+1!, DESCWI+2*
, DESCWI+7!, CLMFIL+1!, CLMFIL+2*, CLMFIL+7!, CLMNO+1!, CLMNO+2*, CLMNO+7!, WPATATTY+1!, WPATATTY+2*, WPATATTY+7!
, EMPL+1!, EMPL+2*, EMPL+7!, DTCLOSE+1!, DTCLOSE+2*, DTCLOSE+7!, TYPEACC+2!, TYPEACC+3*, TYPEACC+8!, CLMSTAT+2!
, CLMSTAT+3*, CLMSTAT+8!, ENTITY+2!, ENTITY+3*, ENTITY+8!, GROUP+2!, GROUP+3*, GROUP+8!, EFF+2!, EFF+3*
, EFF+8!, EXP+2!, EXP+3*, EXP+8!, DTLWRK+2!, DTLWRK+3*, DTLWRK+8!, DSSTDT+2!, DSSTDT+3*, DSSTDT+8!
, DSENDT+2!, DSENDT+3*, DSENDT+8!, DTAWRK+2!, DTAWRK+3*, DTAWRK+8!, CONT+2!, CONT+3*, CONT+8!, NOTES+2!
, NOTES+3*, NOTES+8!
DA(1 ADTWC+2*, DTWC+2*, DTWC+4, DESCWI+3*, DESCWI+4, CLMFIL+3*, CLMFIL+4, CLMNO+3*, CLMNO+4, WPATATTY+3*
, WPATATTY+4, EMPL+3*, EMPL+4, DTCLOSE+3*, DTCLOSE+4, TYPEACC+4*, TYPEACC+5, CLMSTAT+4*, CLMSTAT+5, ENTITY+4*
, ENTITY+5, GROUP+4*, GROUP+5, EFF+4*, EFF+5, EXP+4*, EXP+5, DTLWRK+4*, DTLWRK+5, DSSTDT+4*
, DSSTDT+5, DSENDT+4*, DSENDT+5, DTAWRK+4*, DTAWRK+5, CONT+4*, CONT+5, NOTES+4*, NOTES+5
DD NEWENTRY+6!, ADTWC+7!, DESCWI+1!, CLMFIL+1!, CLMNO+1!, WPATATTY+1!, EMPL+1!, DTCLOSE+1!, TYPEACC+2!, CLMSTAT+2!
, ENTITY+2!, GROUP+2!, EFF+2!, EXP+2!, DTLWRK+2!, DSSTDT+2!, DSENDT+2!, DTAWRK+2!, CONT+2!, NOTES+2!
>> DFN VAR+23, GETAW+27, NEWENTRY+5
DFOUT VAR+14, END!
DIC END!, GETAW+10*, GETAW+14, GETAW+19, GETAW+21, GETAW+22, NEWENTRY+2!, NEWENTRY+3*, ADTWC+1!, ADTWC+3*
, ADTWC+11!, DTWC+1!, DTWC+8!, DESCWI+1!, DESCWI+7!, CLMFIL+1!, CLMFIL+7!, CLMNO+1!, CLMNO+7!, WPATATTY+1!
, WPATATTY+7!, EMPL+1!, EMPL+7!, DTCLOSE+1!, DTCLOSE+7!, TYPEACC+2!, TYPEACC+8!, CLMSTAT+2!, CLMSTAT+8!, ENTITY+2!
, ENTITY+8!, GROUP+2!, GROUP+8!, EFF+2!, EFF+8!, EXP+2!, EXP+8!, DTLWRK+2!, DTLWRK+8!, DSSTDT+2!
, DSSTDT+8!, DSENDT+2!, DSENDT+8!, DTAWRK+2!, DTAWRK+8!, CONT+2!, CONT+8!, NOTES+2!, NOTES+8!
DIC("DR" ADTWC+6*
DIC("P" ADTWC+5*
DIC(0 NEWENTRY+4*, ADTWC+4*
DIE NEWENTRY+2!, ADTWC+1!, ADTWC+11!, DTWC+1!, DTWC+4*, DTWC+8!, DESCWI+1!, DESCWI+4*, DESCWI+7!, CLMFIL+1!
, CLMFIL+4*, CLMFIL+7!, CLMNO+1!, CLMNO+4*, CLMNO+7!, WPATATTY+1!, WPATATTY+4*, WPATATTY+7!, EMPL+1!, EMPL+4*
, EMPL+7!, DTCLOSE+1!, DTCLOSE+4*, DTCLOSE+7!, TYPEACC+2!, TYPEACC+5*, TYPEACC+8!, CLMSTAT+2!, CLMSTAT+5*, CLMSTAT+8!
, ENTITY+2!, ENTITY+5*, ENTITY+8!, GROUP+2!, GROUP+5*, GROUP+8!, EFF+2!, EFF+5*, EFF+8!, EXP+2!
, EXP+5*, EXP+8!, DTLWRK+2!, DTLWRK+5*, DTLWRK+8!, DSSTDT+2!, DSSTDT+5*, DSSTDT+8!, DSENDT+2!, DSENDT+5*
, DSENDT+8!, DTAWRK+2!, DTAWRK+5*, DTAWRK+8!, CONT+2!, CONT+5*, CONT+8!, NOTES+2!, NOTES+5*, NOTES+8!
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!, ADTWC+7!, DESCWI+1!, CLMFIL+1!, CLMNO+1!, WPATATTY+1!, EMPL+1!, DTCLOSE+1!, TYPEACC+2!, CLMSTAT+2!
, ENTITY+2!, GROUP+2!, EFF+2!, EXP+2!, DTLWRK+2!, DSSTDT+2!, DSENDT+2!, DTAWRK+2!, CONT+2!, NOTES+2!
DQOUT VAR+15, END!
DR END!, GETAW+11*, GETAW+14, GETAW+21, GETAW+22, NEWENTRY+2!, ADTWC+1!, ADTWC+11!, DTWC+1!, DTWC+5*
, DTWC+8!, DESCWI+1!, DESCWI+5*, DESCWI+7!, CLMFIL+1!, CLMFIL+5*, CLMFIL+7!, CLMNO+1!, CLMNO+5*, CLMNO+7!
, WPATATTY+1!, WPATATTY+5*, WPATATTY+7!, EMPL+1!, EMPL+5*, EMPL+7!, DTCLOSE+1!, DTCLOSE+5*, DTCLOSE+7!, TYPEACC+2!
, TYPEACC+6*, TYPEACC+8!, CLMSTAT+2!, CLMSTAT+6*, CLMSTAT+8!, ENTITY+2!, ENTITY+6*, ENTITY+8!, GROUP+2!, GROUP+6*
, GROUP+8!, EFF+2!, EFF+6*, EFF+8!, EXP+2!, EXP+6*, EXP+8!, DTLWRK+2!, DTLWRK+6*, DTLWRK+8!
, DSSTDT+2!, DSSTDT+6*, DSSTDT+8!, DSENDT+2!, DSENDT+6*, DSENDT+8!, DTAWRK+2!, DTAWRK+6*, DTAWRK+8!, CONT+2!
, CONT+6*, CONT+8!, NOTES+2!, NOTES+6*, NOTES+8!
DTOUT VAR+14, END!
>> DUOUT VAR+13
DUZ(2 VAR+23, GETAW+27
EDT GDDDT+1~, GDDDT+3*, GDDDT+4, GDDDT+5, GDDDT+6, GOODDT+1~, GOODDT+3*, GOODDT+4, GOODDT+5, GOODDT+6
>> EXIT EN+4, EN+5*, EN+8*, EN+10*, VAR+20, DTWC+7*
MYERRS GETAW+25!, GETAW+26, GETAW+28
MYERRS("C" VAR+10
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+30*, VAR+22, GETAW+17, GETAW+28, NEWENTRY+10*
>> NEWLINE GETAW+12*, GETAW+14
REC END!
ROUTID END!, DRAW+2*
U VAR+22, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+14, GETAW+22, ADTWC+5, GOODDT+2
, GOODDT+3
WD0 EN~, EN+8, EN+10, EN+27, EN+29, EN+31, VAR+9, VAR+22, CLEAN~, CLEAN+5
, CLEAN+7, CLEANZER~, CLEANZER+2, GETAW+18, NEWENTRY+9*, ADTWC+2, ADTWC+3, DTWC+2, DESCWI+3, CLMFIL+3
, CLMNO+3, WPATATTY+3, EMPL+3, DTCLOSE+3, TYPEACC+4, CLMSTAT+4, ENTITY+4, GROUP+4, EFF+4, EFF+10
, EXP+4, EXP+10, DTLWRK+4, DSSTDT+4, DSSTDT+10, DSENDT+4, DSENDT+10, DTAWRK+4, CONT+4, GOODDT+2
, GOODDT+3, NOTES+4
WD1 EN~, EN+27, EN+29, EN+31, VAR+22, GETAW+20, ADTWC+10*, DTWC+3, DESCWI+2, CLMFIL+2
, CLMNO+2, WPATATTY+2, EMPL+2, DTCLOSE+2, TYPEACC+3, CLMSTAT+3, ENTITY+3, GROUP+3, EFF+3, EFF+10
, EXP+3, EXP+10, DTLWRK+3, DSSTDT+3, DSSTDT+10, DSENDT+3, DSENDT+10, DTAWRK+3, CONT+3, GOODDT+2
, GOODDT+3, NOTES+3
WDA END!
WDFN END!
WDT END!
>> X NEWENTRY+5*
Y EN+8, EN+10, VAR+9, VAR+10, VAR+11, VAR+13, VAR+15, VAR+18, END!, NEWENTRY+8
, NEWENTRY+9, ADTWC+9, ADTWC+10

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