Routine: PXBGPRV

Information

PXBGPRV ;ISL/JVS,ESW - GATHER PROVIDERS ; 12/5/02 11:35am

Source Information

Source file <PXBGPRV.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	1	($$GET,$$IEN2CODE)^XUA4A72
PCE Patient Care Encounter	1	GETPRV^PXAPIOE
VA Fileman	1	EN^DIQ1

Caller Graph

Caller Graph Total: 20

Package	Total	Caller Graph
PCE Patient Care Encounter	20	PXAIPOV PXAIPRV PXBGPRV2 PXBGPRV3 PXBGPRV4 PXBMCPT PXBMCPT2 PXBMPOV PXBMPRV PXBPCPT1 PXBPL PXBUTL PXCEPRV PXRRECSE PXRRFDSE PXRRPECU PXRRPRDP PXRRPRSP PXRRWLS2 PXRRWLSE

Entry Points

Name	Comments	DBIA/ICR reference
A	;--Set array with PROVIDERS
AND
B	;--Add line numbers
SUB	;--SUBSPECIALITY
OCC	;---OCCUPATION
PRV(VISIT,PXBSKY,PXBKY,PXBSAM,PXBCNT,PRVDR,FPRI)	;--Gather the entries in the V PROVIDER file
FINISH	;--Finish up some variables
EXIT	;--set a providers count
OCCUP(IEN,DATE,CODE,RETURN,CLASSIEN)	;--FORMAT PERSON CLASS TO DISPLAY ; IEN = Provider pointer to file# 200 ; DATE = Date of occurrence of service ; CODE = Person class Code (if already known) ; (Required step) If you use code leave IEN and DATE Blank ; RETURN = (Required) Flag to decide what format you want the ; return value. ; CLASSIEN = Ien of entry in the PERSON CLASS file#8932.1 If the Ien ; was saved this parameter could be sent in instead of CODE. ; ; 1 = IEN^OCCUPATION^SPECIALITY^SUBSPECIALITY^STATUS^DATE INACTIVATED^VA CODE ; 2 = Short Description ; 3 = Short Description^VA CODE ; * If only CODE and RETURN = 1 There is no value or other ; value in the STATUS and DATE INACTIVATED fields.
SPE	;--SPECIALITY

External References

Name	Field # of Occurrence
EN^DIQ1	A+6
GETPRV^PXAPIOE	PRV+29
$$GET^XUA4A72	A+12, OCCUP+33
$$IEN2CODE^XUA4A72	OCCUP+37

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRV("AD"	PRV+28
^AUPNVSIT - [#9000010]	A+11, A+12
^DD("DD"	A+11
^TMP("PXBU"	PRV+23!, A+2, A+3, A+20!
^USC(8932.1 - [#8932.1]	OCCUP+39, OCCUP+40
^VA(200 - [#200]	OCCUP+31

Label References

Name	Line Occurrences
$$OCCUP	A+9
AND	AND+2

Naked Globals

Name	Field # of Occurrence
^(	A+4, A+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	OCCUP+23~, OCCUP+39*
CLASSIEN	OCCUP~, OCCUP+26, OCCUP+27, OCCUP+37
CODE	OCCUP~, OCCUP+26, OCCUP+27, OCCUP+37*, OCCUP+39
DA	PRV+21~, A+6*, A+7
DATE	A+10~, A+11*, A+13, OCCUP~, OCCUP+26, OCCUP+27, OCCUP+30, OCCUP+32, OCCUP+33, OCCUP+34 , OCCUP+39
DIC	PRV+21~, A+6*
>> DIC1	A+6*, A+7
DIQ	PRV+21~, A+6*
DIS	OCCUP+23~, SUB+25, SUB+26, SUB+27, SUB+28, AND, AND+1*, AND+2, AND+9, AND+10
>> DISL	SUB+24*
DR	PRV+21~, A+6*, A+7
ENTRY	OCCUP+23~, OCCUP+40*, OCC+1, OCC+2, SPE+1, SPE+2, SUB+1, SUB+2
FPRI	PRV~, PRV+23!, PRV+25, A+8, FINISH+1*
GROUP	PRV+20~, A+17*, A+19
I	AND+1~*
IEN	PRV+20~, A+3, A+4, A+5, A+18, A+19, B+4, B+5, B+6, B+7 , OCCUP~, OCCUP+25, OCCUP+26, OCCUP+27, OCCUP+31, OCCUP+32, OCCUP+33, OCCUP+34, OCCUP+39
OCC	OCCUP+23~, OCC+2, OCC+3, OCC+4, OCC+5, OCC+6, OCC+7, OCC+8, OCC+9, SPE+15 , SUB+25, SUB+26, SUB+27, SUB+28
OCCL	OCCUP+23~, OCC+1*, OCC+3, OCC+4, OCC+5, OCC+6, OCC+7, OCC+8, OCC+9, SUB+24
PRIMARY	PRV+20~, A+4*, A+8, A+17, A+18
PROVIDER	PRV+20~
PRV	PRV+20~, PRV+23!, A+7, A+17, A+18, A+19, B+2, B+3, B+4, B+5 , B+6, B+7
PRV(	A+19*, B+3, B+4, B+5, B+6, B+7!
PRVDR	PRV~, PRV+24!
PRVDR("PRIMARY"	A+18*
PRVI	PRV+21~, A+5*, A+6, A+12, A+17, A+18
>> PRVN(	A+7
PXBC	PRV+20~, B+3, B+4, B+5, B+6, EXIT+1
PXBCNT	PRV~, PRV+23!, EXIT+1*
PXBKY	PRV~, PRV+23!
PXBKY(	B+5*
PXBPRV	PRV+23!
PXBSAM	PRV~, PRV+23!
PXBSAM(	B+5*
PXBSKY	PRV~, PRV+23!
PXBSKY(	B+6*
QUANTITY	PRV+20~
RETURN	OCCUP~, OCCUP+26, OCCUP+27, OCCUP+28, OCCUP+29, OCCUP+32, OCCUP+39, AND+9, AND+10
SPE	OCCUP+23~, SPE+2, SPE+3, SPE+4, SPE+5, SPE+6, SPE+7, SPE+8, SPE+9, SPE+10* , SPE+11, SPE+12, SPE+13, SPE+14, SPE+15, SUB+3, SUB+4, SUB+5, SUB+6, SUB+7 , SUB+8, SUB+21, SUB+25, SUB+26, SUB+27, SUB+28
>> SPEL	SPE+1*, SPE+3, SPE+4, SPE+5, SPE+6, SPE+7, SPE+8, SPE+9, SPE+10, SPE+11 , SPE+12, SPE+13, SPE+14, SUB+21, SUB+24
SUB	OCCUP+23~, SUB+2, SUB+3, SUB+4, SUB+5, SUB+6, SUB+7, SUB+8, SUB+9, SUB+10* , SUB+11, SUB+12, SUB+13, SUB+14, SUB+15, SUB+16, SUB+17, SUB+18, SUB+19, SUB+20 , SUB+21, SUB+25, SUB+26, SUB+27, SUB+28
>> SUBL	SUB+1*, SUB+24
TYPE	PRV+21~, A+9, A+12, A+13, A+14, A+16, A+17, OCCUP+23~, OCCUP+32, OCCUP+33 , OCCUP+34, OCCUP+39*, OCCUP+40
>> TYPEI	A+5*, A+9, A+12
U	A+4, A+5, A+11, A+12, A+17, A+18, B+6, OCCUP+33, OCCUP+39, OCC+1 , OCC+2, SPE+1, SPE+2, SUB+1, SUB+2, AND+10
VACODE	OCCUP+23~, OCCUP+33, OCCUP+39, AND+10
VAUGHN	PRV+23!
VISIT	PRV~, PRV+28, PRV+29, A+11, A+12
Y	A+10~, A+11*

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXBGPRV

Call Graph Total: 3

Caller Graph Total: 20