PSOORCPY ;BIR/SAB-copy orders from backdoor ;Oct 20, 2022@15:12
Source file <PSOORCPY.m>
| 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 | 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 |
|
| 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 |