Routine: AVA200

Information

AVA200 ; IHS/OIT/FBD - ADD/ EDIT PERSONS TO VA(200 ;30-Sep-2010 17:29;fbd

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	^DDS ^DIC ^DIE
Kernel	2	EN^XQOR $$ADD^XUSERNEW
IHS VA Support Files	1	EPCSEDIT^AVA200E

Package	Total	Caller Graph
IHS VA Support Files	3	AVA INACTIVATE/REACTIVATE AVA PERSON ADD/EDIT AVA PROVIDER ADD/EDIT

Entry Points

Name	Comments	DBIA/ICR reference
PERADD	;EP; ENTRY POINT to add or edit persons in ^va(200
CERTDT(X)	;
EXIT1
PRV1
PRVADD	;EP;ENTRY POINT to add or edit providers in ^va(200
INEXIT
PROVIDER(AVADR,AVADR1)	;PEP;EXTR FUNC add/edit one provider
PERSON(AVADR,AVADR1)	;PEP;EXTR FUNC called to perform add or edit on one person
CERTSID(AVA)	;EP - From DIC("W")
PER1
INACTIVE	;PEP;ENTRY POINT to inactivate a person and/or provider
CERTS	;EP - Edit CERTIFICATIONS.
ASK

External References

Name	Field # of Occurrence
EPCSEDIT^AVA200E	PROVIDER+19
^DDS	CERTS+9
^DIC	ASK, CERTS+3, CERTS+6
^DIE	ASK+1, PERSON+15, PROVIDER+22, CERTS+11
EN^XQOR	ASK+5, PROVIDER+27
$$ADD^XUSERNEW	PERSON+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?22,"ADD/EDIT NEW PERSONS",!! Line Location: PERADD+1
Function Call: WRITE	Prompt: !!?10,"Use this option to enter names of employees, contractors, " Line Location: PERADD+2
Function Call: WRITE	Prompt: !?5,"and volunteers who will be referenced by other software. If" Line Location: PERADD+3
Function Call: WRITE	Prompt: !?5,"the person is also a provider, you do NOT need to use this " Line Location: PERADD+4
Function Call: WRITE	Prompt: !?5,"option as the ADD/EDIT PROVIDERS option includes the data" Line Location: PERADD+5
Function Call: WRITE	Prompt: !?5,"fields asked for here.",!! Line Location: PERADD+6
Function Call: WRITE	Prompt: @IOF,!!?22,"ADD/EDIT PROVIDERS",!! Line Location: PRVADD+1
Function Call: WRITE	Prompt: !!?10,"Use this option to add new providers to your system OR to" Line Location: PRVADD+2
Function Call: WRITE	Prompt: !?5,"edit those already in the system. You do NOT need to enter the" Line Location: PRVADD+3
Function Call: WRITE	Prompt: !?5,"provider as a person first. Just use this option.",! Line Location: PRVADD+4
Function Call: WRITE	Prompt: @IOF,!!?20,"INACTIVATE/REACTIVATE A PERSON/PROVIDER",!! Line Location: INACTIVE+1
Function Call: WRITE	Prompt: !!?10,"Use this option to enter an INACTIVE DATE for a Person" Line Location: INACTIVE+2
Function Call: WRITE	Prompt: !?5,"or Provider. To deactivate a user, please use the option on" Line Location: INACTIVE+3
Function Call: WRITE	Prompt: !?5,"the USER EDIT menu. To REACTIVATE a person or provider, enter" Line Location: INACTIVE+4
Function Call: WRITE	Prompt: !?5,"an ""@"" at the Inactive Date prompt. Then proceed to the" Line Location: INACTIVE+5
Function Call: WRITE	Prompt: !?5,"ADD/EDIT PROVIDERS option to insure all the data is current." Line Location: INACTIVE+6
Function Call: WRITE	Prompt: !! Line Location: INACTIVE+7
Function Call: WRITE	Prompt: !! Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: !,"Identifiers Completed. Now for other data fields" Line Location: PERSON+10
Function Call: WRITE	Prompt: !!,$P(AVADA,U,2)," has been INACTIVATED. Please use the INACTIVATE/REACTIVATE option.",!! Line Location: PERSON+11
Function Call: WRITE	Prompt: ! Line Location: PERSON+12
Function Call: WRITE	Prompt: !!,*7,"MUST HAVE PROVIDER CLASS TO BE DESIGNATED AS A PROVIDER!!",! Line Location: PROVIDER+23
Function Call: WRITE	Prompt: " ",$S($P(AVA,U,2):$E($P(^AUTTACF($P(AVA,U,2),0),U),1,30),1:$J("",30))," ",$S($P(AVA,U,3):$E($P(^AUTTACE($P(AVA,U,3),0),U,1),1,30),1:$J("",30))," ",$S($P(AVA,U,4):$$CERTDT($P(AVA,U,4)),1:"") Line Location: CERTSID+1
Routine Call	DIE Line Location: ASK+1 PERSON+15 PROVIDER+22 CERTS+11
Routine Call	DDS Line Location: CERTS+9
Routine Call	DIC Line Location: ASK CERTS+3 CERTS+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTACE - [#9999999.94]	CERTSID+1
^AUTTACF - [#9999999.95]	CERTSID+1
^DD(200	CERTS+5
^DIC(3 - [#3]	PROVIDER+21
^VA(200 - [#200]	ASK+3, PERSON+11, PROVIDER+20, PROVIDER+23, PROVIDER+25

Label References

Name	Line Occurrences
$$CERTDT	CERTSID+1
$$PERSON	PER1, PROVIDER+18
$$PROVIDER	PRV1
ASK	ASK+6
EXIT1	PERSON+9, PERSON+11
INEXIT	ASK
PER1	PER1
PRV1	PRV1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AVA	CERTSID~, CERTSID+1
AVADA	ASK+1, ASK+3, ASK+4, PERSON+8~, PERSON+9, PERSON+10, PERSON+11, PERSON+12, EXIT1, PROVIDER+18* , PROVIDER+19, PROVIDER+20, PROVIDER+21, PROVIDER+23, PROVIDER+25, PROVIDER+26, PROVIDER+28
AVADR	PERSON~, PERSON+8*, PERSON+9, PROVIDER~, PROVIDER+13
AVADR1	PERSON~, PERSON+14, PROVIDER~, PROVIDER+17
AVAX	PER1, PER1+1!, PRV1, PRV1+1!
DA	ASK+1, INEXIT!, PERSON+8~, PERSON+12, PROVIDER+21, PROVIDER+22, CERTS+1~, CERTS+8
DA(1	CERTS+5*, CERTS+10
>> DDSFILE	CERTS+8*
>> DDSFILE(1	CERTS+8*
DIC	ASK!, ASK+4, INEXIT!, PROVIDER+26, CERTS+1~, CERTS+2, CERTS+5*
DIC("P"	CERTS+5*
DIC("W"	CERTS+5*
DIC(0	ASK, CERTS+2, CERTS+5*
DIE	ASK+1, INEXIT!, PERSON+8~, PERSON+12, PROVIDER+22, CERTS+1~, CERTS+10
DR	ASK+1, INEXIT!, PERSON+8~, PERSON+14, PROVIDER+22, CERTS+1~, CERTS+8, CERTS+10*
DT	CERTS+10
DUZ	CERTS+10
>> INDA	ASK+4, PROVIDER+26
IOF	PERADD+1, PRVADD+1, INACTIVE+1
U	ASK+3, PERSON+10, PERSON+11, PROVIDER+20, PROVIDER+21, PROVIDER+23, PROVIDER+25, CERTS+5, CERTSID+1
X	ASK+4, INEXIT!, PROVIDER+12~, PROVIDER+13, PROVIDER+16, PROVIDER+18, PROVIDER+26*, CERTDT~, CERTDT+1
Y	ASK, ASK+1, INEXIT!, PROVIDER+12~, PROVIDER+16, PROVIDER+17, PROVIDER+18, CERTS+4, CERTS+5, CERTS+7 , CERTS+8

Customize PDF page

Package: IHS VA Support Files

Routine: AVA200

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: