PXBGPRV ;ISL/JVS,ESW - GATHER PROVIDERS ;11/22/2019
Source file <PXBGPRV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRV(VISIT,PXBSKY,PXBKY,PXBSAM,PXBCNT,PRVDR,FPRI) | ;--Gather the entries in the V PROVIDER file
|
|
| A | ;--Set array with PROVIDERS
|
|
| B | ;--Add line numbers
|
|
| 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. |
|
| OCC | ;---OCCUPATION
|
|
| SPE | ;--SPECIALITY
|
|
| SUB | ;--SUBSPECIALITY
|
|
| AND |
