Routine: VADPT60

Information

VADPT60 ;ALB/MJK - Patient ID Utilities; 12 AUG 89 @1200

Source Information

Source file <VADPT60.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN DT^DICRW (EN,EN1,IXALL)^DIK
Registration	1	(1,2,ASK,BEG,END,TASK,WARN)^VADPT61

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Registration	6	DG ELIG ID FORMAT RESET DG ELIG ID RESET DG ELIG PRI ELIG RESET DG ELIG RESET ALL DG ELIG RESET PATIENT DGRPC

Name	Comments	DBIA/ICR reference
PATQ
Q3
Q5
Q4
Q7
Q6
61
QUE3	; -- determine which elig use format
QUE5
QUE4
QUE7
PAT	; -- entry point if DFN is defined
PRI	; -- set/reset pri elig id
FILE	;
41
1	;;ID Format Enter/Edit
3	;;Specific ID Format Reset (All Patients)
2	;;Eligibility Code Enter/Edit
5	;;Specific Eligibility ID Reset (All Patients)
4	;;Primary Eligibility ID Reset (All Patients)
7	;;Reset ALL ID's for ALL Patients
6	;;Reset ALL ID's for a Patient
A	;
IX	;
EN
UPDT	; -- called by v5 clean-up
ALL	; -- resets all id's for all pt's ; if VALL not defined then only primary reset
31
51

Name	Field # of Occurrence
^DIC	A+1, 3+1, 5+1, 6+1
YN^DICN	31, 4+1, 51, 61, 7+1
DT^DICRW	EN
EN^DIK	IX+1
EN1^DIK	FILE+7
IXALL^DIK	EN+3
1^VADPT61	1+1
2^VADPT61	2+1
ASK^VADPT61	PAT+1
BEG^VADPT61	QUE3+1, QUE4, QUE5, QUE7
END^VADPT61	QUE3+5, QUE4, QUE5+2, QUE7
TASK^VADPT61	31+3, 41, 51+3, 7+4
WARN^VADPT61	3+2, 5+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+1
Function Call: WRITE	Prompt: ! Line Location: 3+1
Function Call: WRITE	Prompt: !!,"Are you sure" Line Location: 31+0
Function Call: WRITE	Prompt: !?5,"Answer 'YES' if you wish to reset id's for all patients with",!?5,"this format." Line Location: 31+1
Function Call: WRITE	Prompt: !!,"Are you sure" Line Location: 4+1
Function Call: WRITE	Prompt: !?5,"Answer 'YES' if you wish to set or reset the patient id for",!?5,"the id format associated with EACH patient's primary eligibility." Line Location: 4+2
Function Call: WRITE	Prompt: ! Line Location: 5+1
Function Call: WRITE	Prompt: !!?5,*7,"No id format specified for this eligibility." Line Location: 5+2
Function Call: WRITE	Prompt: !!,"Are you sure" Line Location: 51+0
Function Call: WRITE	Prompt: !?5,"Answer 'YES' if you wish to reset id's for all patients with",!?5,"this ELIGIBILITY." Line Location: 51+1
Function Call: WRITE	Prompt: ! Line Location: 6+1
Function Call: WRITE	Prompt: !!,"Are you sure" Line Location: 61+0
Function Call: WRITE	Prompt: !?5,"Answer 'YES' if you want to reset all the id's associated",!?5,"with this patient.",!!?5,"If the id format requires user input, you will be asked to enter the id." Line Location: 61+1
Function Call: WRITE	Prompt: D Condition for execution: '$D(VABATCH) !?5,"...",$P(^(0),U) D IX I '$D(VABATCH) Line Location: PAT+1
Function Call: WRITE	Prompt: ?40,$P(^DPT(DFN,"E",VAELG,0),U,3)_" / "_$P(^(0),U,4) Line Location: PAT+1
Function Call: WRITE	Prompt: !!,"Are you sure" Line Location: 7+1
Function Call: WRITE	Prompt: !?5,"Answer 'YES' if you want to reset all the id's associated",!?5,"with ALL patients." Line Location: 7+2
Function Call: WRITE	Prompt: !,">>>PRIMARY ELIGIBILITY ID UPDATE..." Line Location: UPDT+1
Routine Call	DIC Line Location: A+1 3+1 5+1 6+1

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DIC(8 - [#8]	Classic Fileman Calls
^DIC(8.2 - [#8.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	QUE3+2, PAT+1, PRI+2
^DIC(8.2 - [#8.2]	5+2
^DOPT(	EN+1, EN+2
^DPT - [#2]	QUE3+4, QUE5+1, PAT+1, FILE+1, FILE+2, FILE+3, FILE+4, FILE+5, FILE+6, ALL+2 , PRI+2

Customize PDF page

Package: Registration

Routine: VADPT60

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Line Occurrences
3	31+2
31	31+1
4	4+2
41	UPDT+2
5	51+2
51	51+1
6	61+2
61	61+1
7	7+2
@(	A+1
A	EN+1, A+1
ALL	QUE4, QUE7
FILE	PRI+2
IX	QUE3+4, QUE5+1, PAT+1, FILE+2, ALL+2
PATQ	FILE+2
PRI	ALL+2
Q3	3+1, 31+3
Q4	4+3, 41
Q5	5+1, 5+2, 51+3
Q6	6+1
Q7	7+3, 7+4

Name	Field # of Occurrence
>> %	31, 31+1, 31+2, 4+1, 4+2, 4+3, 51, 51+1, 51+2, 61 , 61+1, 61+2, 7+1*, 7+2, 7+3
DA	FILE+7, FILE+8!, IX+1, IX+2!
DA(1	FILE+7, IX+1
DFN	QUE3+4, Q3!, QUE5+1, Q5!, 6+1, PAT+1, Q6!, FILE+1, FILE+2, FILE+3 , FILE+4, FILE+5, FILE+6, FILE+7, IX+1, ALL+2, ALL+3!, PRI+2
DIC	A+1, 3+1!, 5+1!, 6+1!
DIC(0	A+1, 3+1, 5+1, 6+1
DIK	EN, FILE+7, FILE+8!, IX+1*, IX+2!
DIK(1	FILE+7, IX+1
>> I	EN+2*
U	5+2, PAT+1, FILE+1
>> VABATCH	PAT+1
VAELG	QUE3+2!, QUE3+4, Q3!, 5+1, QUE5+1, Q5!, PAT+1, Q6!, FILE+2, FILE+3 , FILE+4, FILE+5, FILE+6, FILE+7, IX+1, ALL+2, ALL+3!, PRI+2
VAELG(	QUE3+2*, QUE3+4
VAFMT	3+1*, QUE3+2, Q3!
VALL	QUE4!, QUE7*, Q7!, ALL+2
>> VAOPT	31+3, 41, 51+3, 7+4
VAPRI	ALL+2, ALL+3!, PRI+1, PRI+2
>> X	EN, EN+1, EN+2, 3+2, 5+3*
>> Y	EN+2*, A+1, 3+1, 5+1, 6+1
>> Y(0	3+2, 5+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed