Routine: AGEDWC

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

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 - AG7.19
GETAW	;DISPLAY
EXP	;EXPIRE DATE
DTLWRK	;DATE LAST WORKED - AG7.19
NEWENTRY	;NEW ENTRY
1	;
DSSTDT	;DISABILITY START DATE - AG7.19
TYPEACC	;TYPE OF ACCIDENT
CONT	;CONTACT INFO - AG7.19
DTAWRK	;DATE AUTHORIZED RETURN TO WORK - AG7.19
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 - AG7.19
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

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDWC

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	DRAW+2
$T(@1+AG	GETAW+2