Routine: IBCEP9A

Information

IBCEP9A ;ALB/CXW - PROVIDER EXTRACT ;26-SEP-00

Source file <IBCEP9A.m>

Name	Comments	DBIA/ICR reference
START(IBRAW)	; Extract a list of providers from existing VistA data ; IBRAW = 0 or "" if display format ; = 1 if raw data format ; Variables: ; IBYR1/IBYR3 - the first date of next year ; IBYR2 - the last date two years ago ; IBPID - provider entry number ; HFLE - host file name
PTF	;PTF (file 45/field 50) with admission within last two years DBIA419
VST	; get providers associated with outpatient encntrs within the last 2 yrs
VSTPRV(IBOE)	; Get all providers for an encounter IBOE
DATA	;store data in file

Name	Line Occurrences
Function Call: WRITE	Prompt: "No data found" Line Location: START+18

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	PTF+3
^DGPM("AMV1"	PTF+1
^DGPT - [#45]	PTF+5, PTF+8, PTF+9
^TMP("IBPID"	START+14!, START+18, PTF+6, PTF+10, VSTPRV+3, DATA+3, DATA+7
^VA(200 - [#200]	DATA+4, DATA+5, DATA+6

Name	Field # of Occurrence
IBCBK	VST+2~, VST+4*, VST+5
IBCONT	START+9~, START+10*
IBDFN	START+9~, PTF+1*
IBDGE	DATA+1~, DATA+6*, DATA+7
IBDT	START+9~, PTF+8*
IBIEN	START+9~, PTF+1*, PTF+3
IBNAM	DATA+1~, DATA+4*, DATA+7
IBOE	VSTPRV~, VSTPRV+2
IBPID	START+9~, PTF+5, PTF+6, PTF+9, PTF+10, VSTPRV+1~, DATA+2, DATA+3, DATA+4, DATA+5 , DATA+6, DATA+7
IBPID(	VSTPRV+3
IBPINT	START+9~, PTF+8*, PTF+9
IBPTF	START+9~, PTF+3*, PTF+4, PTF+5, PTF+8, PTF+9
IBRAW	START~, START+10*, START+16
IBSSN	DATA+1~, DATA+5*, DATA+7
IBVAL	VST+2~, VST+5
IBVAL("BDT"	VST+3*
IBVAL("EDT"	VST+3*
IBYR1	START+9~, START+12, PTF+1
IBYR2	START+9~, START+13*, PTF+1, VST+3
IBYR3	START+9~, START+12*, VST+3
U	PTF+3
>> X	START+12, START+13
Z	VSTPRV+1~, VSTPRV+3*