PSOCMOP ;BIR/HTW-Rx Order Entry Screen for CMOP ;6/28/07 7:35am
Source file <PSOCMOP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TOP | ;
|
|
| START | ; Establish CMOP PPL
|
|
| TEST |
|
|
| LOOP | ||
| RESET | ;
|
|
| S | ; Auto-Suspend CMOPS
|
|
| SUS | ;
|
|
| LOCK | ||
| ACT | ||
| D1 | ||
| RXL | ||
| SUS1 | ;
|
|
| A | ||
| UNMARK | ;Entry point to unmark drug for CMOP dispense
|
|
| FILTRAN(RX,RFD) | ; Test fill's CMOP tran status, return 1 if OK to send
|
|
| COMM(RXN,COMM) | ;EP process problem message to g.cmop managers
|
|
| CMPRXTYP(SUSDA) | ; given suspense record SUSDA returns RX CMOP TYPE C - CS, N -Non-CS
|
|
| NOW() | ||
| PIECE(REC,DLM,VP) | ; VP="Variable^Piece"
; Set Variable V = piece P of REC using delimiter DLM |
|
| PUT(REC,DLM,VP) | ; VP="Variable^Piece"
; pass by reference D PUT^PSOCMOP(.REC,DLM,VP) ; Set Variable V into piece P of REC using delimiter DLM |
|
| KCMPX(SUS,VAL) | ; Kill ^PS(52.5,"CMP",VAL index given SUS
|
|
| SCMPX(SUS,VAL) | ; Set ^PS(52.5,"CMP",VAL index given SUS
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | Classic Fileman Calls, GET1^DIQ |
| ^PS(52.5 - [#52.5] | Classic Fileman Calls |
