PSJBCMA5 ;BIR/JCH - RETRIEVE SPECIAL INSTRUCTIONS/OTHER PRINT INFO ; 1/9/12 11:12am
Source file <PSJBCMA5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETSIOPI(DFN,ON,BCMA) | ; Get appropriate field depending on order type
; DFN - Patient IEN ; ON - Inpatient Order number ; BCMA - Flag indicating called from BCMA - return data in ^TMP("PSJBCMA",$J |
|
| MOVETMP(DFN,ON,OTYP) | ; Move text from PS(53.45 to ^TMP for BCMA
|
|
| GETSI(DFN,ON,BC) | ; Get Special Instructions for Unit Dose orders
|
|
| GETOPI(DFN,ON,BC) | ; Get Other Print Info for IV orders
|
|
| EDITSI(DFN,PSJORD) | ; Edit Special Instructions in ^PS(53.45 via Word Processing
|
|
| EDITOPI(PSJDPT,PSJORD) | ; Edit Other Print Info in ^PS(53.45 via Word Processing
|
|
| OPIWARN(AFTER) | ; Warn user about OPI not printing on IV labels
|
|
| FILESI(DFN,PSJORD) | ; File Special instructions from ^PS(53.45 to UD order
|
|
| FILEOPI(DFN,ORDER) | ; File Other Print Info from ^PS(53.45 to IV order
|
|
| DIFFSI(DFN,PSJORD) | ; Compare Special Instructions, pre and post edit
|
|
| DIFFOPI(DFN,PSJORD) | ; Compare Other Print Info, pre and post edit
|
|
| DIFFAR(ARRAY1,ARRAY2) | ; Compare two text arrays
|
|
| MVOPI(DFN,PSJI1,PSJI2) | ; Move OPI from Non-Verified order to Active order during Verify
|
|
| MVOPIAL(DFN,PSJI1,PSJI2) | ; Move Other Print Info Activity log entries from NV order to Active order, during Verification
|
|
| KILL(USR) | ; Clean up ^PS(53.45
|
|
| PAUSE(DEF) | ;
|
|
| DONE(DEF) | ; -- Done editing?
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PS(53.45 - [#53.45] | Classic Fileman Calls |
