PXBGPRV ;ISL/JVS,ESW - GATHER PROVIDERS ;11/22/2019
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
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+40, OCCUP+42 |
^VA(200 - [#200] | OCCUP+32 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ANS | OCCUP+24~, OCCUP+40* |
CLASSIEN | OCCUP~, OCCUP+27, OCCUP+28, OCCUP+38 |
CODE | OCCUP~, OCCUP+27, OCCUP+28, OCCUP+38*, OCCUP+40 |
DA | PRV+21~, A+6*, A+7 |
DATE | A+10~, A+11*, A+13, OCCUP~, OCCUP+27, OCCUP+28, OCCUP+31, OCCUP+33, OCCUP+34, OCCUP+35 , OCCUP+40 |
DIC | PRV+21~, A+6* |
>> DIC1 | A+6*, A+7 |
DIQ | PRV+21~, A+6* |
DIS | OCCUP+24~, 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+24~, OCCUP+42*, 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+26, OCCUP+27, OCCUP+28, OCCUP+32, OCCUP+33, OCCUP+34, OCCUP+35, OCCUP+40 |
OCC | OCCUP+24~, 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+24~, 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 | PRV+20~ |
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+27, OCCUP+28, OCCUP+29, OCCUP+30, OCCUP+33, OCCUP+40, AND+9, AND+10 |
>> SPE | 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 | OCCUP+24~, 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+24~, 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 | OCCUP+24~, SUB+1*, SUB+24 |
TYPE | PRV+21~, A+9*, A+12*, A+13*, A+14*, A+16*, A+17, OCCUP+24~, OCCUP+33, OCCUP+34* , OCCUP+35, OCCUP+40*, OCCUP+41, OCCUP+42 |
TYPEI | PRV+21~, A+5*, A+9, A+12 |
U | A+4, A+5, A+11, A+12, A+17, A+18, B+6, OCCUP+34, OCCUP+40, OCC+1 , OCC+2, SPE+1, SPE+2, SUB+1, SUB+2, AND+10 |
VACODE | OCCUP+24~, OCCUP+34*, OCCUP+40*, AND+10 |
VAUGHN | PRV+23! |
VISIT | PRV~, PRV+28, PRV+29, A+11, A+12 |
Y | A+10~, A+11* |