PXRMINDX ;SLC/PKR - Routines for utilizing the index. ;10-Jun-2015 12:10;du
Source file <PXRMINDX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FPDATSS(FILENUM,SNODE,DFN,ITEM,NGET,SDIR,BDT,EDT,USESTRT,NFOUND,FLIST) | ;Find
|
|
| EVALFI(DFN,DEFARR,ENODE,FIEVAL) | ;General finding evaluator.
|
|
| STATUSOK(STATUSA,FIEVD) | ;Return true if the status in FIEVD matches one in
|
|
| EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) | ;General term
|
|
| OVERLAP(START,STOP,BDT,EDT) | ;Determine if the date range defined by START and
|
|
| FPDAT(FILENUM,SNODE,DFN,ITEM,NGET,SDIR,BDT,EDT,NFOUND,FLIST) | ;Find patient
|
|
| FIEVAL(FILENUM,SNODE,DFN,ITEM,PFINDPA,FIEVAL) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$COND^PXRMCOND | FIEVAL+35 |
| SCPAR^PXRMCOND | FIEVAL+8 |
| $$GETFNUM^PXRMDATA | EVALFI+2, EVALTERM+4 |
| GETDATA^PXRMDATA | FIEVAL+29 |
| $$NOW^PXRMDATE | FPDATSS+11 |
| NOINDEX^PXRMERRH | EVALFI+4, EVALTERM+6 |
| SEVALFI^PXRMMH | FPDAT+4 |
| GETSTATI^PXRMSTAT | FIEVAL+17 |
| SPFINDPA^PXRMTERM | EVALTERM+17 |
| SFRES^PXRMUTIL | FIEVAL+47 |
| SSPAR^PXRMUTIL | FIEVAL+6 |
| GETDATA^PXRMVSIT | FIEVAL+30 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVMSR - [#9000010.01] | FPDAT+16 |
| ^PXRMINDX( | EVALFI+3, EVALTERM+5, FPDAT+10, FPDAT+14, FPDATSS+7, FPDATSS+9, FPDATSS+14 |
| Name | Line Occurrences |
|---|---|
| $$OVERLAP | FPDATSS+12 |
| $$STATUSOK | FIEVAL+33 |
| FIEVAL | EVALFI+15, EVALTERM+18 |
| FPDAT | FIEVAL+19 |
| FPDATSS | FIEVAL+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDT | EVALFI+1~, FIEVAL+2~, FIEVAL+6, FIEVAL+7, FIEVAL+18, FIEVAL+19, FPDAT~, FPDAT+4, FPDAT+9, FPDAT+11 , FPDATSS~, FPDATSS+12, OVERLAP~, OVERLAP+5 |
| CASESEN | FIEVAL+2~, FIEVAL+8, FIEVAL+35 |
| COND | FIEVAL+2~, FIEVAL+8, FIEVAL+35, FIEVAL+40 |
| CONVAL | FIEVAL+2~, FIEVAL+35*, FIEVAL+36, FIEVAL+39, FIEVAL+40 |
| DAS | FIEVAL+2~, FIEVAL+24*, FIEVAL+26*, FIEVAL+28*, FIEVAL+29, FPDAT+5~, FPDAT+13*, FPDAT+14*, FPDAT+16, FPDAT+18 , FPDATSS+3~, FPDATSS+14*, FPDATSS+15 |
| DATE | FIEVAL+2~, FPDAT+5~, FPDAT+9*, FPDAT+10*, FPDAT+11, FPDAT+12, FPDAT+14, FPDAT+18 |
| DEFARR | EVALFI~ |
| DEFARR("E" | EVALFI+8, EVALFI+10 |
| DEFARR(20 | EVALFI+13 |
| DFN | EVALFI~, EVALFI+15, EVALTERM~, EVALTERM+18, FIEVAL~, FIEVAL+18, FIEVAL+19, FPDAT~, FPDAT+4, FPDAT+10 , FPDAT+14, FPDATSS~, FPDATSS+7, FPDATSS+9, FPDATSS+14 |
| DONE | FPDAT+5~, FPDAT+8*, FPDAT+10, FPDAT+11*, FPDAT+12*, FPDAT+14, FPDAT+19*, FPDATSS+3~, FPDATSS+5*, FPDATSS+7 , FPDATSS+9, FPDATSS+20*, FPDATSS+21* |
| EDT | EVALFI+1~, FIEVAL+2~, FIEVAL+6, FIEVAL+7, FIEVAL+18, FIEVAL+19, FPDAT~, FPDAT+4, FPDAT+7, FPDATSS~ , FPDATSS+4, FPDATSS+12, OVERLAP~, OVERLAP+4 |
| EDTT | FPDAT+5~, FPDAT+7*, FPDAT+9, FPDAT+12, FPDATSS+3~, FPDATSS+4*, FPDATSS+6, FPDATSS+7 |
| >> EIE | FPDAT+6*, FPDAT+15, FPDAT+16* |
| ENODE | EVALFI~, EVALFI+2, EVALFI+8, EVALFI+10, EVALTERM~, EVALTERM+4, EVALTERM+10, EVALTERM+12 |
| FIEVAL | EVALFI~, FIEVAL~, FIEVAL+20*, FIEVAL+47 |
| FIEVAL( | EVALFI+11*, EVALFI+16*, EVALFI+17*, FIEVAL+39*, FIEVAL+40*, FIEVAL+41*, FIEVAL+42*, FIEVAL+43*, FIEVAL+44* |
| FIEVAL("BDTE" | FIEVAL+7* |
| FIEVAL("EDTE" | FIEVAL+7* |
| FIEVAL("FILE | NUMBER" , FIEVAL+48* |
| FIEVD | FIEVAL+2~, FIEVAL+29, FIEVAL+30, FIEVAL+33, FIEVAL+35, FIEVAL+43, FIEVAL+44, STATUSOK~ |
| FIEVD("DATE" | FIEVAL+31*, FIEVAL+42 |
| FIEVD("STATUS" | STATUSOK+2, STATUSOK+7 |
| FIEVD("VISIT" | FIEVAL+30 |
| FIEVT | EVALFI+1~, EVALFI+14!, EVALFI+15, EVALFI+16, EVALTERM+2~, EVALTERM+14!, EVALTERM+18, EVALTERM+19 |
| FILENUM | EVALFI+1~, EVALFI+2*, EVALFI+3, EVALFI+4, EVALFI+15, EVALTERM+2~, EVALTERM+4*, EVALTERM+5, EVALTERM+6, EVALTERM+18 , FIEVAL~, FIEVAL+13, FIEVAL+15, FIEVAL+17, FIEVAL+18, FIEVAL+19, FIEVAL+29, FIEVAL+48, FPDAT~, FPDAT+4 , FPDAT+10, FPDAT+14, FPDAT+15, FPDATSS~, FPDATSS+7, FPDATSS+9, FPDATSS+14, FPDATSS+18, FPDATSS+19 |
| FINDING | EVALFI+1~, EVALFI+9*, EVALFI+10*, EVALFI+11, EVALFI+13, EVALFI+16, EVALFI+17 |
| FINDPA | EVALFI+1~, EVALFI+12!, EVALFI+13*, EVALFI+15, EVALTERM~, EVALTERM+17 |
| FINDPA(0 | EVALFI+17 |
| FLIST | FIEVAL+2~, FIEVAL+18, FIEVAL+19, FPDAT~, FPDAT+4, FPDATSS~ |
| FLIST( | FIEVAL+24, FIEVAL+31, FIEVAL+41, FPDAT+18*, FPDATSS+27* |
| ICOND | FIEVAL+2~, FIEVAL+8, FIEVAL+35 |
| IEN | FIEVAL+2~ |
| IND | FIEVAL+2~, FIEVAL+23*, FIEVAL+24, FIEVAL+31, FIEVAL+41 |
| INVFD | FIEVAL+2~, FIEVAL+21*, FIEVAL+30 |
| ITEM | EVALFI+1~, EVALFI+7*, EVALFI+8*, EVALFI+10, EVALFI+15, EVALTERM+2~, EVALTERM+9*, EVALTERM+10*, EVALTERM+12, EVALTERM+18 , FIEVAL~, FIEVAL+18, FIEVAL+19, FIEVAL+26, FPDAT~, FPDAT+4, FPDAT+10, FPDAT+14, FPDATSS~, FPDATSS+7 , FPDATSS+9, FPDATSS+14 |
| JND | STATUSOK+3~, STATUSOK+5*, STATUSOK+6, STATUSOK+7 |
| NFOUND | FIEVAL+3~, FIEVAL+18, FIEVAL+19, FIEVAL+20, FIEVAL+23, FPDAT~, FPDAT+4, FPDAT+8*, FPDAT+17*, FPDAT+18 , FPDAT+19, FPDATSS~, FPDATSS+5*, FPDATSS+15*, FPDATSS+23*, FPDATSS+24, FPDATSS+26, FPDATSS+27* |
| NGET | FIEVAL+3~, FIEVAL+11*, FIEVAL+18, FIEVAL+19, FPDAT~, FPDAT+4, FPDAT+19, FPDATSS~, FPDATSS+24, FPDATSS+26 |
| NOCC | FIEVAL+3~, FIEVAL+6, FIEVAL+9, FIEVAL+10*, FIEVAL+11, FIEVAL+23 |
| NOINDEX | EVALFI+1~, EVALFI+5*, EVALFI+6*, EVALFI+11, EVALTERM+2~, EVALTERM+7*, EVALTERM+8*, EVALTERM+13 |
| NP | FIEVAL+3~, FIEVAL+22*, FIEVAL+23, FIEVAL+38*, FIEVAL+39, FIEVAL+40, FIEVAL+41, FIEVAL+42, FIEVAL+43, FIEVAL+44 , FIEVAL+47 |
| OK | STATUSOK+3~, STATUSOK+4*, STATUSOK+5, STATUSOK+6*, STATUSOK+7*, STATUSOK+8 |
| OVERLAP | FPDATSS+3~, FPDATSS+12*, FPDATSS+13, FPDATSS+20, FPDATSS+21 |
| PFINDPA | EVALTERM+2~, EVALTERM+14!, EVALTERM+17, EVALTERM+18, FIEVAL~, FIEVAL+8, FIEVAL+17 |
| PFINDPA(0 | FIEVAL+6, FIEVAL+14, FIEVAL+21, FIEVAL+26, FIEVAL+28 |
| >> PXRMDEBG | FIEVAL+7, FIEVAL+44 |
| >> PXRMITEM | EVALFI+4 |
| SAVE | FIEVAL+4~, FIEVAL+36*, FIEVAL+37 |
| SDATE | FPDATSS+3~, FPDATSS+11*, FPDATSS+12, FPDATSS+15 |
| SDIR | FIEVAL+4~, FIEVAL+9*, FIEVAL+18, FIEVAL+19, FIEVAL+47, FPDAT~, FPDAT+4, FPDAT+9, FPDAT+10, FPDAT+11 , FPDAT+12, FPDATSS~, FPDATSS+6, FPDATSS+7, FPDATSS+9, FPDATSS+20, FPDATSS+21, FPDATSS+24 |
| SNODE | FIEVAL~, FIEVAL+18, FIEVAL+19, FPDAT~, FPDAT+10, FPDAT+14, FPDATSS~, FPDATSS+7, FPDATSS+9, FPDATSS+14 |
| SSFIND | FIEVAL+4~, FIEVAL+13*, FIEVAL+14, FIEVAL+18, FIEVAL+19 |
| START | FPDATSS+3~, FPDATSS+6*, FPDATSS+7*, FPDATSS+9, FPDATSS+11, FPDATSS+12, FPDATSS+14, OVERLAP~, OVERLAP+4 |
| STATOK | FIEVAL+4~, FIEVAL+33*, FIEVAL+34 |
| STATUSA | FIEVAL+4~, FIEVAL+17, FIEVAL+33, STATUSOK~ |
| STATUSA( | STATUSOK+6, STATUSOK+7 |
| STATUSA(0 | STATUSOK+5 |
| STOP | FPDATSS+3~, FPDATSS+8*, FPDATSS+9*, FPDATSS+11, FPDATSS+14, OVERLAP~, OVERLAP+5 |
| TDATE | FPDATSS+3~, FPDATSS+23*, FPDATSS+24*, FPDATSS+26, FPDATSS+27 |
| TERMARR | EVALTERM~ |
| TERMARR("E" | EVALTERM+10, EVALTERM+12 |
| TERMARR("IEN" | EVALTERM+6 |
| TERMARR(20 | EVALTERM+15 |
| TFIEVAL | EVALTERM~ |
| TFIEVAL( | EVALTERM+13*, EVALTERM+19*, EVALTERM+20* |
| TFINDING | EVALTERM+3~, EVALTERM+11*, EVALTERM+12*, EVALTERM+13, EVALTERM+15, EVALTERM+19, EVALTERM+20 |
| TFINDPA | EVALTERM+3~, EVALTERM+14!, EVALTERM+15*, EVALTERM+17 |
| TFINDPA(0 | EVALTERM+20 |
| TIND | FPDATSS+3~, FPDATSS+25*, FPDATSS+26*, FPDATSS+27 |
| TLIST | FPDATSS+3~ |
| TLIST( | FPDATSS+15*, FPDATSS+24, FPDATSS+26, FPDATSS+27 |
| U | EVALFI+17, EVALTERM+20, FIEVAL+14, FIEVAL+21, FIEVAL+24, FIEVAL+28, FIEVAL+31, FIEVAL+41, FPDAT+16, FPDAT+18 , FPDATSS+15 |
| UCIFS | FIEVAL+4~, FIEVAL+8, FIEVAL+11, FIEVAL+36 |
| USESTRT | FIEVAL+4~, FIEVAL+14*, FIEVAL+15*, FIEVAL+18, FPDATSS~, FPDATSS+11 |
| VSLIST | FIEVAL+4~, FIEVAL+8, FIEVAL+35 |