PXRRPAPI ;ISL/PKR - Build the patient specific info for each patient on the list. ;6/27/97
Source file <PXRRPAPI.m>
| Package | Total | Call Graph | 
|---|---|---|
| PCE Patient Care Encounter | 4 | (DONE,INIT,SPIN)^PXRRBUSY EXIT^PXRRGUT ^PXRRPAPR REQUE^PXRRQUE | 
| Kernel | 2 | $$S^%ZTLOAD $$NOW^XLFDT | 
| Clinical Reminders | 1 | $$FMDFINVL^PXRMDATE | 
| Registration | 1 | (ADD,IN5,KVA,SDA)^VADPT | 
| VA Fileman | 1 | FIELD^DID | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DISCHRG(DFN,DATE,IEN) | ;Given a patient and a discharge date find the | |
| DISDONE | ; | |
| PAT | ; | |
| NADM | ||
| NHLOC1 | ||
| ADMDONE | ; | |
| SSNFORM(SSN) | ;Format the social security number with dashes. | |
| CLAB | ||
| SAVPAT | ;Save the patient data in XTMP in a format suitable for printing. | |
| NFAC1 | ||
| DONE | ; | |
| ADMISS(DFN,DATE,IEN) | ;Given a patient and an admission date find the | |
| EXIT | ; | |
| NLAB | ||
| NPAT | ||
| NDIS | ||
| DIS | 
| Name | Field # of Occurrence | 
|---|---|
| $$S^%ZTLOAD | NHLOC1+4 | 
| FIELD^DID | NLAB+7 | 
| $$FMDFINVL^PXRMDATE | CLAB+2, CLAB+3, SAVPAT+60 | 
| DONE^PXRRBUSY | DONE+1 | 
| INIT^PXRRBUSY | PAT+23 | 
| SPIN^PXRRBUSY | NPAT+6 | 
| EXIT^PXRRGUT | NHLOC1+4 | 
| ^PXRRPAPR | EXIT+12 | 
| REQUE^PXRRQUE | EXIT+11 | 
| ADD^VADPT | SAVPAT+10 | 
| IN5^VADPT | SAVPAT+39, ADMISS+8, DISCHRG+8 | 
| KVA^VADPT | NPAT+21, NPAT+29, SAVPAT+9, SAVPAT+13, SAVPAT+38, ADMISS+4, ADMDONE+1, DISCHRG+4, DISDONE+1 | 
| SDA^VADPT | NPAT+24 | 
| $$NOW^XLFDT | EXIT+9 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNVSIT("AET" | NPAT+12, NPAT+14 | 
| ^DGPM("APTT1" | NADM, NADM+3 | 
| ^DGPM("APTT3" | NDIS, NDIS+3 | 
| ^DGPT - [#45] | DISCHRG+23 | 
| ^DPT - [#2] | CLAB, SAVPAT+3 | 
| ^ICD9 - [#80] | DISCHRG+24 | 
| ^LAB(60 - [#60] | NLAB+10, NLAB+11 | 
| ^LR - [#63] | NLAB, NLAB+4, NLAB+5, NLAB+9 | 
| ^PX(815 - [#815] | PAT+16, PAT+18, PAT+20 | 
| ^SC - [#44] | PAT+21, SAVPAT+7 | 
| ^TMP( | NPAT+17*, NPAT+18, NPAT+27*, NPAT+30, NADM+4*, NADM+6, NDIS+4*, NDIS+6, NLAB+12*, NLAB+14 , SAVPAT+23, SAVPAT+24, SAVPAT+31, SAVPAT+32, SAVPAT+59, SAVPAT+62, SAVPAT+63, SAVPAT+67, SAVPAT+68, SAVPAT+72 , SAVPAT+73, EXIT+1! | 
| ^UTILITY("VASD" | NPAT+26, NPAT+27, NPAT+28! | 
| ^XTMP( | NFAC1, NHLOC1, NPAT, SAVPAT+8*, SAVPAT+12*, SAVPAT+17, SAVPAT+18*, SAVPAT+37, SAVPAT+55*, SAVPAT+63* , SAVPAT+68*, SAVPAT+73*, EXIT+10, ADMISS+22*, DISCHRG+11, DISCHRG+26* | 
| Name | Line Occurrences | 
|---|---|
| $$SSNFORM | SAVPAT+11 | 
| ADMISS | SAVPAT+25 | 
| CLAB | NDIS+2 | 
| DIS | NADM+2 | 
| DISCHRG | SAVPAT+33 | 
| DISDONE | DISCHRG+11 | 
| DONE | NFAC1+1 | 
| NADM | NADM+5 | 
| NDIS | NDIS+5 | 
| NFAC1 | NHLOC1+1 | 
| NHLOC1 | NPAT+1 | 
| NLAB | NLAB+13 | 
| NPAT | SAVPAT+2, SAVPAT+75 | 
| SAVPAT | CLAB+1, NLAB+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ACTIVITY | PAT+1~, NPAT+2*, NPAT+18*, NPAT+30*, NADM+6*, NDIS+6*, NLAB+14*, SAVPAT+2 | 
| ADMDATE | DISCHRG+3~, DISCHRG+9*, DISCHRG+10*, DISCHRG+11, DISCHRG+26 | 
| BACDATE | PAT+1~, PAT+10*, NPAT+10, NPAT+35, DIS, CLAB+2 | 
| BD | PAT+1~, NPAT+10*, NPAT+12*, NPAT+14, NPAT+17, NPAT+35*, NADM*, NADM+2, NADM+3, NADM+4 , DIS*, NDIS*, NDIS+2, NDIS+3, NDIS+4, CLAB+3*, NLAB*, NLAB+2, NLAB+4, NLAB+5 , NLAB+9, NLAB+12 | 
| BUSY | PAT+1~, PAT+23, NPAT+6 | 
| DATE | PAT+1~, SAVPAT+41*, SAVPAT+45, SAVPAT+55, ADMISS~, ADMISS+5, ADMISS+22, DISCHRG~, DISCHRG+5, DISCHRG+10 , DISCHRG+11, DISCHRG+26 | 
| DESC | EXIT+6~, EXIT+7*, EXIT+11 | 
| DFN | PAT+1~, NHLOC1+6*, NPAT*, NPAT+1, NPAT+12, NPAT+14, NPAT+17, NPAT+18, NPAT+27, NPAT+30 , NADM, NADM+3, NADM+4, NADM+6, NDIS, NDIS+3, NDIS+4, NDIS+6, CLAB, NLAB+12 , NLAB+14, SAVPAT+3, SAVPAT+8, SAVPAT+12, SAVPAT+17, SAVPAT+18, SAVPAT+23, SAVPAT+24, SAVPAT+25, SAVPAT+31 , SAVPAT+32, SAVPAT+33, SAVPAT+37, SAVPAT+55, SAVPAT+59, SAVPAT+62, SAVPAT+63, SAVPAT+67, SAVPAT+68, SAVPAT+72 , SAVPAT+73, ADMISS~, ADMISS+22, DISCHRG~, DISCHRG+11, DISCHRG+26 | 
| DISDATE | SAVPAT+54*, SAVPAT+55, ADMISS+3~, ADMISS+19*, ADMISS+21*, ADMISS+22 | 
| DT | SAVPAT+54, ADMISS+21 | 
| EACDATE | PAT+1~, PAT+11*, NPAT+11, NPAT+12, NPAT+36, DIS+1, CLAB+3 | 
| ED | PAT+1~, NPAT+11*, NPAT+36*, NADM+2, DIS+1*, NDIS+2, CLAB+2*, NLAB+2 | 
| ERIEN | PAT+1~ | 
| ERIEN( | PAT+21*, NPAT+16, NPAT+17 | 
| ERR | PAT+1~ | 
| FACIEN | PAT+2~, PAT+25*, NFAC1*, NFAC1+1, NHLOC1, NPAT, SAVPAT+6, SAVPAT+17, SAVPAT+18, SAVPAT+37 , SAVPAT+55, SAVPAT+63, SAVPAT+68, SAVPAT+73, ADMISS+22, DISCHRG+11, DISCHRG+26 | 
| FACNAM | PAT+2~, SAVPAT+6*, SAVPAT+8 | 
| FSSN | SSNFORM+1~, SSNFORM+3*, SSNFORM+5*, SSNFORM+7*, SSNFORM+8 | 
| HLOCIEN | PAT+3~, NFAC1+3*, NHLOC1*, NHLOC1+1, NPAT, SAVPAT+7, SAVPAT+8, SAVPAT+17, SAVPAT+18, SAVPAT+37 , SAVPAT+55, SAVPAT+63, SAVPAT+68, SAVPAT+73, ADMISS+22, DISCHRG+11, DISCHRG+26 | 
| HLOCNAM | PAT+3~, SAVPAT+7*, SAVPAT+8 | 
| IC | PAT+2~, PAT+15*, PAT+16*, PAT+18, PAT+20, NPAT+15*, NPAT+16, NPAT+17, NPAT+25*, NPAT+26* , NPAT+27, NLAB+3*, NLAB+4*, NLAB+5, NLAB+7, NLAB+10, NLAB+12, SAVPAT+16*, SAVPAT+17*, SAVPAT+18 , SAVPAT+22*, SAVPAT+23*, SAVPAT+24, SAVPAT+25, SAVPAT+30*, SAVPAT+31*, SAVPAT+32, SAVPAT+33, SAVPAT+58*, SAVPAT+59* , SAVPAT+60, SAVPAT+62, SAVPAT+63, SAVPAT+66*, SAVPAT+67*, SAVPAT+68, SAVPAT+71*, SAVPAT+72*, SAVPAT+73 | 
| ICD9IEN | DISCHRG+3~, DISCHRG+23*, DISCHRG+24 | 
| IEN | PAT+2~, NADM+3*, NADM+4, NDIS+3*, NDIS+4, SAVPAT+24*, SAVPAT+25, SAVPAT+32*, SAVPAT+33, ADMISS~ , ADMISS+6, DISCHRG~, DISCHRG+6 | 
| IO("S" | PAT+23, NPAT+6, DONE+1 | 
| JC | PAT+2~, PAT+17*, PAT+18*, PAT+20, NLAB+10*, NLAB+11, SAVPAT+61*, SAVPAT+62*, SAVPAT+63 | 
| LABTEST | PAT+3~ | 
| LABTEST("LABEL" | NLAB+12 | 
| LOCIEN | PAT+3~, NPAT+13*, NPAT+14*, NPAT+16 | 
| LRDFN | PAT+3~, CLAB*, CLAB+1, NLAB, NLAB+4, NLAB+5, NLAB+9 | 
| NERM | PAT+3~, PAT+14*, PAT+19*, PAT+21, NPAT+9, NPAT+15 | 
| PNAME | PAT+4~, SAVPAT+4*, SAVPAT+8 | 
| >> PXRRBCDT | PAT+10, SAVPAT+45 | 
| >> PXRRBFDT | NPAT+22 | 
| >> PXRRECDT | PAT+11 | 
| >> PXRREFDT | NPAT+23 | 
| >> PXRRFACN( | SAVPAT+6 | 
| >> PXRRQUE | PAT+23, NPAT+6, DONE+1, EXIT+4 | 
| >> PXRRXTMP | NFAC1, NHLOC1, NPAT, NPAT+17, NPAT+18, NPAT+27, NPAT+30, NADM+4, NADM+6, NDIS+4 , NDIS+6, NLAB+12, NLAB+14, SAVPAT+8, SAVPAT+12, SAVPAT+17, SAVPAT+18, SAVPAT+23, SAVPAT+24, SAVPAT+31 , SAVPAT+32, SAVPAT+37, SAVPAT+55, SAVPAT+59, SAVPAT+62, SAVPAT+63, SAVPAT+67, SAVPAT+68, SAVPAT+72, SAVPAT+73 , EXIT+1, EXIT+10, ADMISS+22, DISCHRG+11, DISCHRG+26 | 
| ROUTINE | EXIT+6~, EXIT+8*, EXIT+11 | 
| SPEC | PAT+4~, NLAB+9*, NLAB+11 | 
| SSN | PAT+4~, SAVPAT+5*, SAVPAT+8, SAVPAT+11, SSNFORM~, SSNFORM+2, SSNFORM+4, SSNFORM+6 | 
| SSNF | PAT+4~, SAVPAT+11*, SAVPAT+12 | 
| TASK | EXIT+6~, EXIT+10*, EXIT+11 | 
| TEMP | PAT+5~, PAT+20*, PAT+21, NLAB+5*, NLAB+6, NLAB+12, SAVPAT+3*, SAVPAT+4, SAVPAT+5, SAVPAT+47* , SAVPAT+49*, SAVPAT+51*, SAVPAT+53*, SAVPAT+55, SAVPAT+60*, SAVPAT+63, ADMISS+3~, ADMISS+11*, ADMISS+13*, ADMISS+15* , ADMISS+17*, ADMISS+22, DISCHRG+3~, DISCHRG+14*, DISCHRG+16*, DISCHRG+18*, DISCHRG+20*, DISCHRG+24*, DISCHRG+26, SSNFORM+1~ , SSNFORM+2*, SSNFORM+3, SSNFORM+4*, SSNFORM+5, SSNFORM+6*, SSNFORM+7 | 
| U | PAT+21, NPAT+16, NLAB+6, NLAB+9, NLAB+11, NLAB+12, SAVPAT+4, SAVPAT+5, SAVPAT+6, SAVPAT+7 , SAVPAT+8, SAVPAT+12, SAVPAT+41, SAVPAT+47, SAVPAT+49, SAVPAT+51, SAVPAT+53, ADMISS+11, ADMISS+13, ADMISS+15 , ADMISS+17, ADMISS+19, DISCHRG+9, DISCHRG+16, DISCHRG+18, DISCHRG+20, DISCHRG+23, DISCHRG+24 | 
| UNITS | PAT+4~, NLAB+11*, NLAB+12 | 
| >> VAIP("D" | ADMISS+5*, DISCHRG+5* | 
| >> VAIP("E" | ADMISS+6*, DISCHRG+6* | 
| >> VAIP("M" | ADMISS+7*, DISCHRG+7* | 
| >> VAIP(12 | DISCHRG+23 | 
| >> VAIP(13 | SAVPAT+40, SAVPAT+41, SAVPAT+53, ADMISS+17, DISCHRG+9, DISCHRG+20 | 
| >> VAIP(14 | SAVPAT+47, SAVPAT+49, SAVPAT+51, ADMISS+11, ADMISS+13, ADMISS+15 | 
| >> VAIP(17 | ADMISS+18, ADMISS+19, DISCHRG+16, DISCHRG+18 | 
| >> VAPA(1 | SAVPAT+12 | 
| >> VAPA(2 | SAVPAT+12 | 
| >> VAPA(3 | SAVPAT+12 | 
| >> VAPA(4 | SAVPAT+12 | 
| >> VAPA(5 | SAVPAT+12 | 
| >> VAPA(6 | SAVPAT+12 | 
| >> VAPA(8 | SAVPAT+12 | 
| >> VASD("F" | NPAT+22* | 
| >> VASD("T" | NPAT+23* | 
| >> ZTDTH | EXIT+9* | 
| >> ZTREQ | PAT+8* | 
| >> ZTSTOP | NHLOC1+4* |