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* |