PSULR2 ;BIR/PDW - PBM LAB EXTRACT PROCESS PATIENTS ;25 AUG 1998
Source file <PSULR2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
TESTS | ;EP Gather tests for a patient for the drug class
; nodes used in ^XTMP sampler |
|
EN | ;EP SCAN AND SPLIT INTO DIVISION,RECORDS
; Build ^XTMP(,,"RECORDS",PSUDIV,L) ; Build ^XTMP(,,"PATIENT",DFN,TEST)="" AND THEN ; ,DATE)=RESULT^FLAG |
|
PATIENT | ;EP SCAN for each patient their tests needed
|
Name | Field # of Occurrence |
---|---|
C^%DTC | PATIENT+6 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | PATIENT+17, PATIENT+18 |
^LR - [#63] | PATIENT+19, PATIENT+21, PATIENT+23, PATIENT+24 |
^XTMP( | EN+4!, EN+6, TESTS+13, TESTS+14*, PATIENT+13, PATIENT+24* |
Name | Line Occurrences |
---|---|
PATIENT | EN+10 |
TESTS | EN+6 |
Name | Field # of Occurrence |
---|---|
^( | EN+6, TESTS+13, PATIENT+13 |
^("PATIENTS" | EN+4! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DA | PATIENT+19*, PATIENT+21, PATIENT+23, PATIENT+24 |
>> DFN | PATIENT+13*, PATIENT+17, PATIENT+18, PATIENT+24 |
>> PSUDA | EN+6* |
>> PSUDFN | TESTS+12*, TESTS+14 |
>> PSUDRCD | TESTS+12*, TESTS+13 |
>> PSUEDT | PATIENT+6 |
>> PSULRDFN | PATIENT+18*, PATIENT+19, PATIENT+21, PATIENT+23, PATIENT+24 |
>> PSULREDT | PATIENT+8*, PATIENT+19 |
>> PSULRND | TESTS+13*, TESTS+14 |
>> PSULRSDT | PATIENT+9*, PATIENT+19 |
>> PSULRSUB | EN+4, EN+6, TESTS+13, TESTS+14, PATIENT+13, PATIENT+24 |
PSUNODE | PATIENT+14~, PATIENT+16*, PATIENT+19 |
PSUNODE( | PATIENT+21, PATIENT+25! |
>> PSUSDT | PATIENT+9 |
U | TESTS+12, PATIENT+23 |
X | EN+6*, TESTS+12, TESTS+13*, TESTS+14, PATIENT+8, PATIENT+13!*, PATIENT+16 |
>> X1 | PATIENT+6* |
>> X2 | PATIENT+6* |
>> Y | PATIENT+21*, PATIENT+24, PATIENT+25 |