PSUUD1 ;BIR/TJH - PBM UNIT DOSE MODULE ;12 AUG 1999
Source file <PSUUD1.m>
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 |
---|---|---|
EN | ; Entry point
|
|
L1 | ||
L2 | ; loop thru patient within date
|
|
L3 | ; loop thru unit dose entries within patient
|
|
PROV | ; collect provider data
|
|
DISD | ; Dispense Drug 55.06,2 Mult --> 55.07 ^PS(55,PAT,5,DOSE,1,DISP,0)
|
|
DISDL1 | ||
DISDX | ; end of dispense drug, go back for next one.
|
|
STEP2 | ; done with data collection, go back to ^PSUUD0
|
Name | Field # of Occurrence |
---|---|
$$FORMI^PSNAPIS | DISDL1+20 |
$$FORMR^PSNAPIS | DISDL1+21 |
LAB^PSULR0 | DISDL1+23 |
$$UPPER^PSUTL | PROV+12 |
$$VAL^PSUTL | PROV+11 |
$$VALI^PSUTL | L3+6, L3+20, L3+21, PROV+2, PROV+7, PROV+9, PROV+10 |
GETS^PSUTL | L3+9, DISDL1+2, DISDL1+10 |
MOVEI^PSUTL | L3+10, DISDL1+4, DISDL1+12 |
$$TESTPAT^PSUTL1 | L2+5 |
DISAMT^PSUUD2 | PROV+16 |
SETUP^PSUUD2 | EN+3 |
TMPDD^PSUUD2 | DISDL1+22 |
TMPUD^PSUUD2 | PROV+17 |
PID^VADPT | L3+15 |
$$VERSION^XPDUTL | DISDL1+19 |
$$GET^XUA4A72 | PROV+14 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(55 - [#55] | L1, L2+1, L3+1, L3+3, DISDL1 |
^XTMP("PSU_" | L3+4*, L3+17*, PROV+4* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DFN | L3+15*, L3+17 |
>> I | DISDL1+11* |
>> PSDATE | EN+7*, L1*, L1+1, L2+1, L3+1, PROV+14 |
>> PSDOSE | L2+6*, L3+1*, L3+2, L3+3, L3+4, DISDL1 |
>> PSECT( | PROV+13 |
>> PSPAT | L1+2*, L2+1*, L2+3, L2+5, L3+1, L3+3, DISDL1 |
PSUDAS | PROV+16! |
>> PSUDDX | DISD+1*, DISDL1* |
>> PSUDISD( | DISDL1+5, DISDL1+6, DISDL1+9*, DISDL1+10 |
>> PSUDNFI | DISDL1+18*, DISDL1+20* |
>> PSUDNFR | DISDL1+18*, DISDL1+21* |
>> PSUDOC(9 | PROV+5* |
PSUDOC1 | EN+2~ |
PSUDOSE | L3+5! |
PSUDOSE( | L3+15, DISDL1+23 |
PSUDOSE(1 | PROV+2, PROV+4, PROV+7, PROV+11, PROV+14 |
PSUDOSE(10 | L3+14* |
PSUDOSE(34 | L3+13 |
PSUDOSE(68 | L3+18 |
PSUDOSE(9 | L3+18 |
>> PSUDRUG | DISDL1+11 |
>> PSUDRUG( | DISDL1+11*, DISDL1+13*, DISDL1+23 |
>> PSUDRUG(2 | DISDL1+23 |
>> PSUDRUG(20 | DISDL1+20, DISDL1+21 |
>> PSUDRUG(21 | DISDL1+14* |
>> PSUDRUG(22 | DISDL1+20, DISDL1+21 |
>> PSUDRUG(31 | DISDL1+15* |
>> PSUDRUG(51 | DISDL1+16* |
>> PSUDRUG(52 | DISDL1+17* |
>> PSUEDT | L1+2 |
>> PSUFACN | L3+18*, L3+21*, DISDL1+23 |
>> PSUJOB | L3+4, L3+17, PROV+4 |
>> PSUSDT | EN+7, DISDL1+6 |
>> PSUSNDR | L3+18 |
>> PSUSPSTR | PROV+14*, PROV+15 |
>> PSUSSN | L3+16*, L3+17 |
>> PSUTEDT | L1+2*, L3+7 |
PSUUDST | EN+2~, L3+13* |
>> PSUVCL | PROV+1*, PROV+9*, PROV+10* |
>> PSUVCP | PROV+7*, PROV+8, PROV+9, PROV+10 |
>> PSUVS1 | PROV+1*, PROV+15* |
>> PSUVS2 | PROV+1*, PROV+15* |
>> PSUVSSN | PROV+2*, PROV+3*, PROV+4, PROV+5 |
>> PSUVSV | PROV+11*, PROV+12*, PROV+13* |
>> PSUVSVX | PROV+12*, PROV+13 |
>> PSUX | L3+18*, L3+19, L3+20 |
>> PSUX1 | L3+20*, L3+21 |
U | PROV+15 |
>> VA("PID" | L3+16 |
>> XX | L3+6*, L3+7 |