©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSUUD1 ;BIR/TJH - PBM UNIT DOSE MODULE ;12 AUG 1999
Source file <PSUUD1.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Benefits Management | 4 | LAB^PSULR0 ($$UPPER,$$VAL,$$VALI,GETS,MOVEI)^PSUTL $$TESTPAT^PSUTL1 (DISAMT,SETUP,TMPDD,TMPUD)^PSUUD2 |
| Kernel | 2 | $$VERSION^XPDUTL $$GET^XUA4A72 |
| National Drug File | 1 | ($$FORMI,$$FORMR)^PSNAPIS |
| Registration | 1 | PID^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point
|
|
| PROV | ; collect provider data
|
|
| DISDX | ; end of dispense drug, go back for next one.
|
|
| DISDL1 | ||
| DISD | ; Dispense Drug 55.06,2 Mult --> 55.07 ^PS(55,PAT,5,DOSE,1,DISP,0)
|
|
| L3 | ; loop thru unit dose entries within patient
|
|
| L1 | ||
| L2 | ; loop thru patient within date
|
|
| 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* |
| Name | Line Occurrences |
|---|---|
| DISDL1 | DISDL1+5, DISDL1+6, DISDL1+24 |
| DISDX | DISDL1 |
| L1 | L2+3 |
| L2 | L2+5, L3+2 |
| L3 | L3+3, L3+7, DISDX+1 |
| STEP2 | L1+1 |
| >> | 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 |