PSIVORE ;BIR/PR,MLM - ORDER ENTRY ;Apr 07, 2020@09:19:06
Source file <PSIVORE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BEG | ;Get patient and make sure he is living.
|
|
ASK | ;See if patient has been admitted.
|
|
SETN | ;Set up patient 0 node if needed.
|
|
NEW | ;Ask to enter new order.
|
|
INMED | ||
Q | ; Kill and exit.
|
|
ULK | ;
|
|
HK | ;Queue job to print MAR labels generated for this patient.
|
|
SITE | ;See if site parameters are ok.
|
|
OK | ;Print example label, run order through checker, ask if it is ok.
|
|
BAD | ;; I X["N" D GSTRING^PSIVORE1,^PSIVORV2,GTFLDS^PSIVORFE G OK
|
|
DOA | ||
OK1 | ||
CAL | ;Calculate doses.
|
|
EN | ;Update schedule interval P(15) only on continuous orders.
|
|
ENQ | ||
SPSOL | ||
ENIN | ;Entry for Combined IV/UD order entry. Called by PSJOE0.
|
|
ENIN1 | ;
|
|
NONVF(PSJOC) | ||
DEL55 | ;
|
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 |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PS(55 - [#55] | Classic Fileman Calls |