Routine: ORQPTQ4

Name	Comments	DBIA/ICR reference
WT(DFN)	; extrinsic function to return patient weight: ; IHS/CIA/DKM - Added next line
PRIM(DFN)	; extrinsic function to return patient primary provider ; based on current patient location
LASTVITL(DFN,TYP)	;
SEX(DFN)	; extrinsic function to return patient sex:
AGE(DFN)	; extrinsic function to return patient age:
HT(DFN)	; extrinsic function to return patient height: ; IHS/CIA/DKM - Added next line
DOB(DFN)	; extrinsic function to return patient date of birth:

FileNo	Call Tags
^AUPNVMSR - [#9000010.01]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMSR - [#9000010.01]	LASTVITL+11
^AUPNVMSR("AA"	LASTVITL+6, LASTVITL+7
^AUTTMSR("B"	LASTVITL+3
^UTILITY($J	WT+3!, WT+8, WT+11!, HT+3!, HT+8, HT+11!

Name	Line Occurrences
$$LASTVITL	WT+2, HT+2

Name	Field # of Occurrence
^(	WT+9, WT+10, HT+9, HT+10

Name	Field # of Occurrence
DFN	DOB~, AGE~, SEX~, WT~, WT+2, HT~, HT+2, LASTVITL~, LASTVITL+6, LASTVITL+7 , PRIM~, PRIM+8
EIE	LASTVITL+1~, LASTVITL+9*, LASTVITL+10
GMRVSTR	WT+4, WT+11!, HT+4, HT+11!
GMRVSTR(0	WT+4, HT+4
IDT	LASTVITL+1~, LASTVITL+5, LASTVITL+6, LASTVITL+7
IEN	LASTVITL+1~, LASTVITL+7*, LASTVITL+9, LASTVITL+11
MSR	LASTVITL+1~, LASTVITL+2, LASTVITL+6, LASTVITL+7, LASTVITL+11, LASTVITL+12
ORD	WT+6~, WT+7, WT+9, WT+10, HT+6~, HT+7, HT+9, HT+10
ORQPRIM	PRIM+2~, PRIM+5, PRIM+7, PRIM+8, PRIM+9*, PRIM+10
ORT	WT+6~, WT+7, WT+8, WT+9, HT+6~, HT+7, HT+8, HT+9
ORY	WT+6~, WT+7, WT+10, WT+12, HT+6~, HT+7, HT+10, HT+12
TYP	LASTVITL~, LASTVITL+3*, LASTVITL+4, LASTVITL+6, LASTVITL+7
U	LASTVITL+11, PRIM+9
VA200	PRIM+3*, PRIM+6!
VADM	DOB+1~, AGE+1~, SEX+1~
VADM(3	DOB+3
VADM(4	AGE+3
VADM(5	SEX+3
VAERR	PRIM+6!
VAIN	PRIM+6!
VAIN(2	PRIM+5
VAINDT	PRIM+3!

Information