PXBGPRV ;ISL/JVS,ESW - GATHER PROVIDERS ; 12/5/02 11:35am
Source file <PXBGPRV.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | ($$GET,$$IEN2CODE)^XUA4A72 |
PCE Patient Care Encounter | 1 | GETPRV^PXAPIOE |
VA Fileman | 1 | EN^DIQ1 |
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
|
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 |
Name | Line Occurrences |
---|---|
$$OCCUP | A+9 |
AND | AND+2 |
Name | Field # of Occurrence |
---|---|
^( | A+4, A+5 |
>> | 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* |