PSODRGU0 ;BIR/MFR - Drug Swaping Utility; 06/25/2023 5:14pm
Source file <PSODRGU0.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 |
|---|---|---|
| SWAPDRUG(RXIEN,NEWDRUG) | ; Swap the Dispense Drug in an Existing Prescription
; Input: RXIEN - Rx that will have the New Dispense Drug - Pointer to PRESCRIPTION file (#52) ; NEWDRUG - New Dispense Drug - Pointer to DRUG file (#50) |
| Name | Field # of Occurrence |
|---|---|
| ^DIE | SWAPDRUG+22, SWAPDRUG+33, SWAPDRUG+39 |
| $$GET1^DIQ | SWAPDRUG+8, SWAPDRUG+9, SWAPDRUG+16, SWAPDRUG+25, SWAPDRUG+30, SWAPDRUG+31, SWAPDRUG+36, SWAPDRUG+37 |
| RXACT^PSOBPSU2 | SWAPDRUG+25 |
| $$CSDRG^PSOERUT6 | SWAPDRUG+11, SWAPDRUG+12 |
| $$ACTIVE^PSOERXA0 | SWAPDRUG+13 |
| $$OUTPAT^PSOERXA0 | SWAPDRUG+14 |
| $$ERXIEN^PSOERXUT | SWAPDRUG+28 |
| AUDLOG^PSOERXUT | SWAPDRUG+32, SWAPDRUG+38 |
| EN^PSOHLSN1 | SWAPDRUG+42 |
| $$L^PSSLOCK | SWAPDRUG+18 |
| UL^PSSLOCK | SWAPDRUG+45 |
| $$GETNDC^PSSNDCUT | SWAPDRUG+22, SWAPDRUG+31, SWAPDRUG+37 |
| $$FMTE^XLFDT | SWAPDRUG+21 |
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PSRX - [#52] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.49 - [#52.49] | SWAPDRUG+35 |
| ^PSDRUG - [#50] | SWAPDRUG+6 |
| ^PSRX - [#52] | SWAPDRUG+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | SWAPDRUG+3~, SWAPDRUG+22*, SWAPDRUG+33*, SWAPDRUG+39* |
| DIE | SWAPDRUG+3~, SWAPDRUG+22*, SWAPDRUG+33!*, SWAPDRUG+39!* |
| DR | SWAPDRUG+3~, SWAPDRUG+22*, SWAPDRUG+33*, SWAPDRUG+39* |
| DT | SWAPDRUG+21 |
| DUZ | SWAPDRUG+25, SWAPDRUG+32, SWAPDRUG+38 |
| ERXIEN | SWAPDRUG+3~, SWAPDRUG+28*, SWAPDRUG+29, SWAPDRUG+30, SWAPDRUG+32, SWAPDRUG+33, SWAPDRUG+35 |
| LOCK | SWAPDRUG+3~, SWAPDRUG+18* |
| NEWCMPID | SWAPDRUG+3~, SWAPDRUG+9*, SWAPDRUG+21, SWAPDRUG+25 |
| NEWDRUG | SWAPDRUG~, SWAPDRUG+6, SWAPDRUG+9, SWAPDRUG+10, SWAPDRUG+13, SWAPDRUG+14, SWAPDRUG+16, SWAPDRUG+22, SWAPDRUG+25, SWAPDRUG+31 , SWAPDRUG+33, SWAPDRUG+37, SWAPDRUG+39 |
| NEWVAL | SWAPDRUG+3~, SWAPDRUG+31!, SWAPDRUG+32, SWAPDRUG+37!, SWAPDRUG+38 |
| NEWVAL(1 | SWAPDRUG+31*, SWAPDRUG+37* |
| OLDCMPID | SWAPDRUG+3~, SWAPDRUG+9*, SWAPDRUG+21, SWAPDRUG+25 |
| OLDDRUG | SWAPDRUG+3~, SWAPDRUG+8*, SWAPDRUG+9, SWAPDRUG+10, SWAPDRUG+11, SWAPDRUG+12, SWAPDRUG+16, SWAPDRUG+25, SWAPDRUG+30, SWAPDRUG+36 |
| OLDRMRKS | SWAPDRUG+3~, SWAPDRUG+8*, SWAPDRUG+21 |
| PATIENT | SWAPDRUG+3~, SWAPDRUG+8*, SWAPDRUG+18, SWAPDRUG+45 |
| RELERX | SWAPDRUG+3~, SWAPDRUG+35*, SWAPDRUG+36, SWAPDRUG+38, SWAPDRUG+39 |
| REMARKS | SWAPDRUG+3~, SWAPDRUG+21*, SWAPDRUG+22* |
| RXIEN | SWAPDRUG~, SWAPDRUG+5, SWAPDRUG+8, SWAPDRUG+22, SWAPDRUG+25, SWAPDRUG+28, SWAPDRUG+42 |