Routine: BLRDPT3

Information

BLRDPT3 ; IHS/DIR/FJE - PATIENT VARIABLES ;

Source file <BLRDPT3.m>

Package	Total	Call Graph
IHS Changes To Lab	2	(KVAR,VAR)^BLRDPT30 ^BLRDPT31
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRDPT0

Name	Comments	DBIA/ICR reference
OK1
LODGER	;
OK
SCAN	; -- determine is d/c while in other fac(Y=1 returned if so.)
47	; -- check to see if d/c from nhcu while asih in other fac ; If y returned high then mvt is good.
LLDCHK	; -- last lodger mvt checking ; build array of inverse dates and chk
CHK	;
42	; -- check to see if this mvt can be used; for 'while asih' d/c category ; If Y returned high then mvt is good
LODGERQ
Q
Q42
ASIHOF	; -- is last mvt asih oth fac
LASTQ
6	;
GO
LAST	;

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	6+3, 6+11, 6+15, 6+16, OK1+1, LAST+3, LODGER+5, LLDCHK+4, ASIHOF+2, SCAN+3
^DGPM("APID"	6+14, 6+15, OK1, LAST+1, LAST+3, ASIHOF+1
^DGPM("APMV"	SCAN+3
^DGPM("ATID4"	LODGER+4, LLDCHK+2
^DGPM("ATID5"	LLDCHK+3
^DPT - [#2]	6+11, LODGER+2
^DPT("LD"	LODGER+2
^UTILITY("BLRDPTZ"	Q!

Name	Field # of Occurrence
^(	6+11, OK1, LODGER+2, LLDCHK+2, LLDCHK+3, ASIHOF+1, SCAN+3
^(0	6+3, OK1+1, LAST+3, LODGER+5, ASIHOF+2, SCAN+3

Name	Field # of Occurrence
>> %	6+1
>> DFN	6+11, 6+14, 6+15, Q, OK1, LAST+1, LAST+3, LODGER+2, LODGER+4, LLDCHK+2 , LLDCHK+3, ASIHOF+1, SCAN+3
E	6+3, 6+5, 6+11, 6+14, 6+15, 6+16, Q!, OK, OK+5, LAST+1* , LAST+2, LODGER+1, LODGER+2, LODGER+4, LODGER+5, LLDCHK+4, ASIHOF+1, ASIHOF+2*
IDT	LLDCHK+1~, LLDCHK+2, LLDCHK+3, LLDCHK+4*
IDT(	LLDCHK+1, LLDCHK+2, LLDCHK+3*, LLDCHK+4
IDT(0	LLDCHK+4
M	SCAN+2~, SCAN+3*
NOW	6+1*, 6+10, GO, Q!, LASTQ
NOWI	6+1*, Q!, LAST+1, LLDCHK+2, LLDCHK+3, ASIHOF+1
VACA	SCAN+2~*, SCAN+3
VACC	Q!
VAID	SCAN+2~, SCAN+3
>> VAINDT	6+7
>> VAIP("D"	6+5, 6+7
>> VAIP("E"	6+3
>> VAIP("L"	LAST+2, LODGER+1
VANN	Q!
VAQ	Q!
VASET	Q!
VAX	6+7, 6+8, 6+14, 6+15, 6+16, Q!, OK+1, OK+2, OK+3, OK+5 , OK1, OK1+1, LAST+1, LAST+3, LODGER+2, LODGER+4, LLDCHK+1, ASIHOF+1*, ASIHOF+2
VAX("DAT"	6+1*, 6+11, LODGER+2, 42+3
VAX("DT"	6+3, 6+8, 6+10, 6+11, 6+14, GO, OK+4, LASTQ*, LODGER+2, LODGER+4 , LODGER+5
VAZ	6+16, Q!, OK, OK+4, OK1, OK1+1, LAST+3*, 42+3, 42+4, SCAN+2
VAZ2	Q!, OK*, OK+1, OK+2, OK+3
>> Y	OK+2, OK+3, 42+3, 42+4, SCAN+2, SCAN+3