Routine: BLRDPT60

Information

BLRDPT60 ; IHS/DIR/FJE - Patient ID Utilities @1200 ;

Source Information

Source file <BLRDPT60.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN DT^DICRW (EN,EN1,IXALL)^DIK
IHS Changes To Lab	1	(1,2,ASK,BEG,END,TASK,WARN)^BLRDPT61

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
1^BLRDPT61	1+1
2^BLRDPT61	2+1
ASK^BLRDPT61	PAT+1
BEG^BLRDPT61	QUE3+1, QUE4, QUE5, QUE7
END^BLRDPT61	QUE3+5, QUE4, QUE5+2, QUE7
TASK^BLRDPT61	31+3, 41, 51+3, 7+4
WARN^BLRDPT61	3+2, 5+3
^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

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, ALL+2, PRI+2

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRDPT60

Information

Source Information

Call Graph

Call Graph Total: 5

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+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+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