PSOORCPY ;BIR/SAB-copy orders from backdoor ;Oct 20, 2022@15:12
Source file <PSOORCPY.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 14 | ^PSOBUILD ($$SLDEA,PROV)^PSODIR QTY^PSODIR1 EN^PSOFSIG EOJ^PSONEW DCORD^PSONEW2 DRG^PSOORDRG EN^PSOORED1 ACT^PSOORNE2 $$LMREJ^PSOREJU1 CDOSE^PSORENW0 ($$CHKRXPRV,$$DRUGSCHD,$$RXDEA,DAYSUP)^PSOUTIL $$CONJ^PSOUTL CLEAN^PSOVER1 |
VA FileMan | 2 | $$GET1^DIQ ^DIR |
List Manager | 1 | (FULL,PAUSE)^VALM1 |
Order Entry Results Reporting | 1 | (LK,ULK)^ORX2 |
Pharmacy Data Management | 1 | ($$L,PSOL,PSOUL,UL)^PSSLOCK |
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 |
---|---|---|
COPY | ; Rx Copy Functionality
|
|
OUT | ;
|
|
EX | ||
LOCK | ;
|
|
BLDDOSE(PSORXED,MAINTRXF) | ; Copies the Dose from Original Rx into Copied/Maintenance Dose Rx
|
|
SETDOSE(PSORXED,DOSEIEN,DOSESEQ) | ; Sets the Dose in the PSORXED array
|
|
LASTTHEN | ; Determine the IEN of the last THEN conjunction on this prescription and set DOSEIEN to its value.
|
|
ORCOPY(PLACER) | ; Checks if an Outpatient Pharmacy order can be copied by CPRS or not
; Input: (r) PLACER - PRESCRIPTION (#52) IEN or PENDING OUTPATIENT ORDERS (#52.31) IEN_"S" |
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | COPY+7, COPY+9, COPY+60, COPY+61, LOCK+2, ORCOPY+9, ORCOPY+10, ORCOPY+11, ORCOPY+12 |
^DIR | LOCK+4 |
LK^ORX2 | COPY+21 |
ULK^ORX2 | EX |
^PSOBUILD | COPY+19, OUT+2 |
$$SLDEA^PSODIR | COPY+10 |
PROV^PSODIR | COPY+12 |
QTY^PSODIR1 | COPY+63 |
EN^PSOFSIG | COPY+62, BLDDOSE+14 |
EOJ^PSONEW | EX+4 |
DCORD^PSONEW2 | COPY+65 |
DRG^PSOORDRG | COPY+56 |
EN^PSOORED1 | COPY+65 |
ACT^PSOORNE2 | OUT+2 |
$$LMREJ^PSOREJU1 | COPY+16 |
CDOSE^PSORENW0 | COPY+41 |
$$CHKRXPRV^PSOUTIL | COPY+4 |
$$DRUGSCHD^PSOUTIL | COPY+8 |
$$RXDEA^PSOUTIL | COPY+10 |
DAYSUP^PSOUTIL | COPY+54 |
$$CONJ^PSOUTL | ORCOPY+13 |
CLEAN^PSOVER1 | EX+4 |
$$L^PSSLOCK | COPY+20 |
PSOL^PSSLOCK | COPY+22 |
PSOUL^PSSLOCK | OUT+1 |
UL^PSSLOCK | COPY+21, EX+1 |
FULL^VALM1 | COPY+10, COPY+23 |
PAUSE^VALM1 | COPY+11, COPY+15 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | GET1^DIQ |
^PSRX - [#52] | GET1^DIQ |
^PS(52.41 - [#52.41] | GET1^DIQ |
^PS(59.7 - [#59.7] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(52.41 - [#52.41] | ORCOPY+6 |
^PS(53 - [#53] | COPY+55 |
^PS(55 - [#55] | COPY+32 |
^PSDRUG - [#50] | COPY+38, COPY+39, COPY+49 |
^PSRX - [#52] | COPY+10, COPY+24, COPY+25, COPY+26, COPY+27, COPY+28, COPY+31, COPY+32, COPY+33, BLDDOSE+8 , BLDDOSE+9, BLDDOSE+19, BLDDOSE+20, SETDOSE+2, SETDOSE+11, SETDOSE+12, LASTTHEN+2, LASTTHEN+4, ORCOPY+7, ORCOPY+13 |
^TMP("PSOPO" | EX+3! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
COPY | COPY+23*, EX+2! |
>> D | COPY+28* |
>> DA | COPY+24* |
DIR | LOCK+4! |
DIR("A" | LOCK+4* |
DIR(0 | LOCK+4* |
DOSE | BLDDOSE+1~, BLDDOSE+9*, BLDDOSE+10, BLDDOSE+11, BLDDOSE+20*, BLDDOSE+21, BLDDOSE+22, SETDOSE+1~, SETDOSE+2*, SETDOSE+3 , SETDOSE+4, SETDOSE+5, SETDOSE+6, SETDOSE+7, SETDOSE+8, SETDOSE+9, SETDOSE+10, SETDOSE+16 |
DOSEIEN | BLDDOSE+1~, BLDDOSE+8*, BLDDOSE+9, BLDDOSE+13, BLDDOSE+19*, BLDDOSE+20, BLDDOSE+24, SETDOSE~, SETDOSE+2, SETDOSE+11 , SETDOSE+12, LASTTHEN+2, LASTTHEN+3*, LASTTHEN+5*, ORCOPY+4~ |
DOSESEQ | SETDOSE~, SETDOSE+3, SETDOSE+4, SETDOSE+5, SETDOSE+6, SETDOSE+7, SETDOSE+8, SETDOSE+9, SETDOSE+10, SETDOSE+12 , SETDOSE+13, SETDOSE+14, SETDOSE+15, SETDOSE+16 |
DR | SETDOSE+13! |
DREN | COPY+50*, COPY+54, EX+2! |
DT | COPY+38, ORCOPY+12 |
DUR1 | SETDOSE+13!, SETDOSE+14*, SETDOSE+15 |
FLD | EX+2! |
FLN | EX+2! |
FST | EX+2! |
IEN | EX+2! |
INCOM | EX+2! |
LAST | LASTTHEN+1~, LASTTHEN+4*, LASTTHEN+5 |
LASTTHEN | LASTTHEN+1~, LASTTHEN+2*, LASTTHEN+4, LASTTHEN+5 |
MAINTRXF | BLDDOSE~, BLDDOSE+5 |
>> ORN | COPY+2, OUT+1 |
PLACER | ORCOPY~, ORCOPY+6, ORCOPY+7, ORCOPY+9, ORCOPY+10, ORCOPY+13 |
POERR | COPY+56*! |
PSDRGIEN | COPY+9~*, COPY+10 |
>> PSOBEDT | COPY+18 |
PSOCHECK | COPY+1~, COPY+4*, COPY+5, COPY+15 |
PSOCOPY | COPY+19!, COPY+23*, OUT+2!, EX+2! |
PSODAYS | COPY+50*, COPY+60, COPY+62, EX+2! |
PSODEAUP | COPY+1~, COPY+10*, COPY+11 |
>> PSODFN | COPY+20, COPY+21, COPY+32, EX, EX+1 |
PSODIR | COPY+12~ |
PSODIR("CS" | COPY+12* |
PSODIR("PROVIDER" | COPY+13, COPY+14 |
PSODRG | ORCOPY+4~, ORCOPY+9*, ORCOPY+10*, ORCOPY+11, ORCOPY+12 |
PSODRGIEN | COPY+1~, COPY+7*, COPY+8 |
PSODRUG | EX+3! |
PSODRUG("TRAD | E NAME" , COPY+33* |
PSOEDIT | COPY+23! |
>> PSOFROM | COPY+65* |
PSOGOOUT | COPY+1~, COPY+36, BLDDOSE+8, BLDDOSE+10*, BLDDOSE+15, BLDDOSE+21*, BLDDOSE+25, ORCOPY+4~ |
PSOI | COPY+24*, EX+2! |
PSOINACT | ORCOPY+4~, ORCOPY+12* |
>> PSOLST( | COPY+2, OUT+1 |
PSOMSG | COPY+22!, EX+2! |
PSOMTFLG | PSOORCPY+11!, COPY+36, COPY+38, COPY+39, COPY+43, COPY+45, COPY+52, COPY+59, EX+3! |
>> PSONACT | COPY+19 |
PSONEW | EX+2! |
PSONOSIG | COPY+41~, COPY+44 |
PSOOCPRX | COPY+41~* |
PSOOLPD | COPY+41~, COPY+43 |
PSOOLPF | COPY+41~, COPY+42 |
PSOPLCK | COPY+20*!, COPY+21!, LOCK+1, LOCK+3 |
PSOQTY | COPY+63~ |
PSORX | COPY+10, COPY+12~ |
PSORX("DFLG" | COPY+57 |
PSORX("FN" | COPY+65 |
PSORX("RXDEA" | COPY+13, COPY+14 |
PSORXED | COPY+23*, COPY+36, COPY+54, COPY+62, COPY+63, COPY+65, EX+2!, BLDDOSE~, BLDDOSE+13, BLDDOSE+14 , BLDDOSE+24, SETDOSE~ |
PSORXED("CONJUNCTION" | SETDOSE+9* |
PSORXED("DAYS | SUPPLY" , COPY+53*, COPY+60* |
PSORXED("DEACOPY" | COPY+11*, COPY+14* |
PSORXED("DFLG" | COPY+24*, COPY+59 |
PSORXED("DOSE | ORDERED" , SETDOSE+5* |
PSORXED("DOSE" | SETDOSE+3* |
PSORXED("DURATION" | SETDOSE+8*, SETDOSE+13, SETDOSE+14, SETDOSE+15* |
PSORXED("ENT" | BLDDOSE+7*, BLDDOSE+12*, BLDDOSE+13, BLDDOSE+18*, BLDDOSE+23*, BLDDOSE+24 |
PSORXED("FLD" | COPY+63* |
PSORXED("IND" | COPY+31* |
PSORXED("INDF" | COPY+31* |
PSORXED("INDO" | COPY+32* |
PSORXED("INS" | COPY+26*, COPY+29 |
PSORXED("IRXN" | COPY+24*, COPY+25, COPY+26, COPY+27, COPY+28, COPY+31, COPY+32, COPY+33, COPY+41, COPY+60 , COPY+61, BLDDOSE+8, BLDDOSE+9, BLDDOSE+19, BLDDOSE+20, SETDOSE+2, SETDOSE+11, SETDOSE+12, LASTTHEN+2, LASTTHEN+4 |
PSORXED("MAIL | EXEMPTION" , COPY+47* |
PSORXED("NOUN" | SETDOSE+16* |
PSORXED("ODOSE" | SETDOSE+12* |
PSORXED("PROVIDER" | COPY+14* |
PSORXED("QTY" | COPY+53*, COPY+60* |
PSORXED("ROUTE" | SETDOSE+6* |
PSORXED("RX0" | COPY+24*, COPY+38, COPY+39, COPY+49, COPY+50, COPY+53, COPY+55 |
PSORXED("RX2" | COPY+24* |
PSORXED("RX3" | COPY+24* |
PSORXED("RX7" | COPY+25*, COPY+47 |
PSORXED("SCHEDULE" | SETDOSE+7* |
PSORXED("SIG" | COPY+28*, COPY+29* |
PSORXED("SINS" | COPY+27* |
PSORXED("UNITS" | SETDOSE+4* |
PSORXED("VERB" | SETDOSE+10* |
PSORXIEN | COPY+1~, COPY+2*, COPY+4, COPY+7, COPY+9, COPY+10, COPY+16, COPY+22, COPY+24 |
PSORXST | COPY+55*, EX+2! |
PSOSIG | COPY+24*, EX+2! |
PSOSIGFL | PSOORCPY+11! |
PSOTITRX | PSOORCPY+11! |
RXN | COPY+24*, ORCOPY+4~ |
SIG | EX+2! |
SIGOK | EX+2! |
STA | EX+2! |
>> STAT | COPY+24* |
U | COPY+5, COPY+10 |
>> VALMBCK | COPY+5*, COPY+15*, COPY+16, COPY+18*, COPY+19*, COPY+20*, COPY+21*, COPY+22*, COPY+38*, COPY+39* , COPY+42*, COPY+44*, COPY+49*, COPY+57*, COPY+59*, COPY+65*, COPY+66*, BLDDOSE+10*, BLDDOSE+21* |
VALMCNT | COPY+23~ |
>> VALMSG | COPY+5*, COPY+15*, COPY+16, COPY+18*, COPY+19*, COPY+20*, COPY+21*, COPY+22*, COPY+38*, COPY+39* , COPY+43*, COPY+45*, BLDDOSE+10*, BLDDOSE+21* |
>> X | COPY+21*, EX* |
>> Y | COPY+21 |
ZZCOPY | COPY+23*, EX+4! |