ORMPS2 ;SLC/MKB - Process Pharmacy ORM msgs cont ;04/01/2008
Source file <ORMPS2.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 10 | ($$ACTION,RESPONSE)^ORCSAVE ORDTEXT^ORCSAVE1 (DATES,RELEASE,SIGN,SIGSTS,STATUS)^ORCSAVE2 SETALL^ORDD100 $$UNESC^ORHLESC $$FIND^ORM $$HL7IVLMT^ORMBLDP1 ($$RXC,$$RXO,$$RXR)^ORMPS ($$NTE,$$NTXT,$$NUMADDS,$$VALTXT,$$ZSC)^ORMPS3 PRINTS^ORWD1 |
VA Fileman | 1 | ^DIE |
Package | Total | Caller Graph |
---|---|---|
Order Entry Results Reporting | 4 | ORMPS ORMPS1 ORMPS3 ORY94A |
Name | Comments | DBIA/ICR reference |
---|---|---|
UNESC(STRING) | ;
|
|
RO | ; -- Replacement order (finished)
|
|
CHANGED() | ; -- Compare ORMSG to order ORIFN, return 1 if different
|
|
VALUE(ID) | ; -- Return value of ID in ^OR(100,+ORIFN,4.5,"ID")
|
|
CHQ | ||
FINISHED() | ; -- new order [SN^ORMPS] due to finishing?
|
|
IVX() | ; -- Compare ORMSG to Inpt order ORIFN if IV, return 0 if 'diff or 'IV
|
|
IVLIM(IVDUR) | ;
|
|
IV1 | ||
WQ | ||
PCOMM | ; -- Get Provider Comments from previous order, when changed
|
|
UNESCARR(ARR) | ;
|
|
RO1 | ; -Update sts of order to active, last action to dc/edit:
|
|
RO2 | ; -Update responses, get/save new order text:
|
|
WPX() | ; -- Compare comments in @ORMSG@(NTE) with order ORIFN
; Returns 1 if different, or 0 if same |
|
PTR(X) | ; -- Return ptr to prompt OR GTX X
|
Name | Field # of Occurrence |
---|---|
^DIE | RO2+7 |
$$ACTION^ORCSAVE | RO+12 |
RESPONSE^ORCSAVE | RO2+1 |
ORDTEXT^ORCSAVE1 | RO2+1 |
DATES^ORCSAVE2 | RO1+5 |
RELEASE^ORCSAVE2 | RO1+6 |
SIGN^ORCSAVE2 | RO1+9 |
SIGSTS^ORCSAVE2 | RO1+9 |
STATUS^ORCSAVE2 | RO1+4 |
SETALL^ORDD100 | RO1+4 |
$$UNESC^ORHLESC | UNESC+1 |
$$FIND^ORM | IV1 |
$$HL7IVLMT^ORMBLDP1 | CHANGED+6 |
$$RXC^ORMPS | IVX+2, RO+6 |
$$RXO^ORMPS | CHANGED+7, RO+6 |
$$RXR^ORMPS | IV1+5 |
$$NTE^ORMPS3 | WPX+3, CHANGED+15, CHANGED+17 |
$$NTXT^ORMPS3 | WPX+3, CHANGED+21 |
$$NUMADDS^ORMPS3 | IVX+6 |
$$VALTXT^ORMPS3 | WPX+4, CHANGED+20 |
$$ZSC^ORMPS3 | RO2+11 |
PRINTS^ORWD1 | RO2+10 |
FileNo | Call Tags |
---|---|
^OR(100 - [#100] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^OR(100 - [#100] | FINISHED+2, IVX+3, IV1+12, IV1+13, IV1+14, IV1+15, IV1+16, CHANGED+15, CHANGED+16, CHANGED+17 , VALUE+2, VALUE+3, RO1+1, RO1+2*, RO1+3*, RO1+8, RO2+1!, RO2+2*, RO2+5, RO2+8* , RO2+11*, PCOMM+3, PCOMM+4, PCOMM+5 |
^ORD(100.98 - [#100.98] | IVX+3, RO2+5 |
^ORD(101.41 - [#101.41] | PTR+1 |
^ORD(101.43 - [#101.43] | IVX+7, IV1+17 |
^TMP("ORWORD" | RO+3!, PCOMM+5* |
^VA(200 - [#200] | RO+4 |
Name | Line Occurrences |
---|---|
$$IVX | CHANGED+9 |
$$PTR | IV1+7, RO+11 |
$$UNESC | UNESCARR+5 |
$$VALUE | IVX+7, IVX+10, IV1+1, IV1+4, IV1+6, CHANGED+4, CHANGED+11, CHANGED+12, RO+11 |
$$WPX | CHANGED+3 |
@( | RO+8 |
CHQ | CHANGED+2, CHANGED+11, CHANGED+12, CHANGED+16, CHANGED+19 |
UNESCARR | UNESCARR+4 |
Name | Field # of Occurrence |
---|---|
^( | RO1+1 |
^(0 | RO1+1, RO2+2* |
^(1 | IV1+16 |
^(3 | RO1+3 |
^(6 | RO1+3! |
^(8 | RO2+8* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADMIN | RO+2~ |
ARR | UNESCARR~, UNESCARR+1, UNESCARR+2, UNESCARR+3, UNESCARR+5 |
DA | RO2+6~, RO2+7* |
DG | IVX+1~, IVX+3*, IVX+4 |
DIE | RO2+6~, RO2+7* |
DR | RO2+6~, RO2+7* |
DURU | IVLIM+2~*, IVLIM+3*, IVLIM+5, IVLIM+6, IVLIM+7, IVLIM+8 |
DURV | IVLIM+2~*, IVLIM+3*, IVLIM+4*, IVLIM+5, IVLIM+6, IVLIM+7, IVLIM+8 |
I | IVX+1~, IV1+7*, IV1+8*, IV1+11*, IV1+12, IV1+14, IV1+15*, IV1+16, CHANGED+1~, VALUE+1~ , VALUE+2*, VALUE+3, UNESCARR+1~*, UNESCARR+2, UNESCARR+3, UNESCARR+5, PCOMM+1~, PCOMM+3*, PCOMM+4, PCOMM+5 |
ID | VALUE~, VALUE+1, VALUE+2 |
IND | UNESCARR+2~*, UNESCARR+4 |
INST | IVX+1~, IV1+13*, IV1+14, IV1+19*, IV1+20, IV1+21, IV1+24*, IV1+25 |
IVDUR | IVLIM~, IVLIM+1, IVLIM+3, IVLIM+4*, IVLIM+5*, IVLIM+6*, IVLIM+7*, IVLIM+8*, IVLIM+9 |
IVTYPE | RO+2~ |
J | IVX+1~, IV1+12*, IV1+13, IV1+14 |
NEWSTS | RO+1~, RO1+3*, RO1+4 |
NTE | WPX+2~, WPX+3*, CHANGED+1~, CHANGED+15*, CHANGED+16, CHANGED+17*, CHANGED+18, CHANGED+19, CHANGED+21*, CHANGED+22 |
OI | IVX+1~, IVX+7*, IV1+16*, IV1+17 |
OI0 | IVX+1~, IV1+16*, IV1+18, IV1+19, IV1+23, IV1+24 |
OLD | PCOMM+1~, PCOMM+2*, PCOMM+3, PCOMM+4, PCOMM+5 |
ORA | IVX+1~, IV1+7*, IV1+18 |
ORB | IVX+1~, IV1+7*, IV1+23 |
>> ORCAT | CHANGED+2, RO+8, RO2+11 |
ORDA | RO+1~, RO+12*, RO+13, RO1+1, RO1+3, RO1+6, RO1+9, RO2+1, RO2+8, RO2+9 |
>> ORDCNTRL | RO2+9* |
ORDG | RO+1~, RO2+5, RO2+7 |
ORDIALOG | RO+1~, RO2+2 |
ORDIALOG( | RO+11*, PCOMM+6*, PCOMM+7* |
>> ORERR | RO+4*, RO+5*, RO+7*, RO+8, RO+13* |
>> ORIFN | FINISHED+3*, WPX+4, IVX+3, IV1+12, IV1+13, IV1+14, IV1+15, IV1+16, CHANGED+15, CHANGED+16 , CHANGED+17, CHANGED+20, VALUE+2, VALUE+3, RO+6*, RO+7, RO+12, RO1+1, RO1+2, RO1+3 , RO1+4, RO1+5, RO1+6, RO1+8, RO1+9, RO2+1, RO2+2, RO2+5, RO2+7, RO2+8 , RO2+9*, RO2+10, RO2+11, PCOMM+2 |
ORIG | FINISHED+1~, FINISHED+2*, FINISHED+3 |
ORIG4 | FINISHED+1~, FINISHED+2*, FINISHED+3 |
>> ORL | RO2+10 |
>> ORMSG | IVX+8, IV1+8, CHANGED+16 |
>> ORNATR | RO1+6 |
>> ORNOW | RO+12, RO1+6 |
>> ORNP | RO+4, RO+12 |
ORP | RO+1~, RO2+10 |
ORP(1 | RO2+10* |
ORPKG | RO+1~, RO2+2 |
ORSIG | RO+1~, RO1+8*, RO1+9 |
>> ORSTOP | RO1+5 |
>> ORSTRT | RO1+5 |
>> ORSTS | RO1+3, RO1+4 |
>> ORWHO | RO+12, RO1+6 |
ORX | IVX+1~, RO+1~, RO1+1*, RO1+2, RO1+8, RO1+9 |
ORX( | IV1+9*, IV1+14* |
ORX("A" | IV1+18, IV1+19, IV1+22!, IV1+28 |
ORX("B" | IV1+23, IV1+24, IV1+26!, IV1+28 |
ORX("STRENGTH" | IV1+20 |
ORX("UNITS" | IV1+21 |
ORX("VOLUME" | IV1+25 |
>> PC | PCOMM+5, PCOMM+6, PCOMM+7 |
PI | CHANGED+1~, CHANGED+17*, CHANGED+18, CHANGED+19, CHANGED+20*, CHANGED+22 |
>> PKGIFN | RO2+8 |
PSOI | IVX+1~, IVX+7*, IVX+8, IV1+17*, IV1+18, IV1+19, IV1+22, IV1+23, IV1+24, IV1+26 |
RATE | IVX+1~, IV1*, IV1+1*, IV1+2*, IV1+3 |
RXC | IVX+1~, IVX+2*, IVX+8, IV1+7, RO+1~, RO+6*, RO+8, RO+11 |
>> RXE | IV1, CHANGED+11, CHANGED+12, RO+5 |
RXO | RO+1~, RO+6* |
RXR | IVX+1~, IV1+5*, IV1+6 |
SIG | CHANGED+1~, CHANGED+15*, CHANGED+16 |
SPINST | WPX+2~, WPX+3*, WPX+5 |
STR | IVX+1~, IV1+19*, IV1+20 |
STRING | UNESC~, UNESC+1 |
TRXO | CHANGED+1~, CHANGED+7* |
TYPE | FINISHED+1~, FINISHED+2*, FINISHED+3, UNESCARR+3~*, UNESCARR+4, UNESCARR+5 |
U | IVX+3, IVX+7, IVX+8, IVX+9, IV1, IV1+6, IV1+9, IV1+13, IV1+17, IV1+18 , IV1+19, IV1+23, IV1+24, CHANGED+7, RO1+1, RO1+2, RO1+3, RO1+8, RO2+2, RO2+5 , RO2+8 |
UNT | IVX+1~, IV1*, IV1+1, IV1+19*, IV1+21 |
VOL | IVX+1~, IV1+24*, IV1+25 |
X | WPX+2~, WPX+4*, WPX+5, IVX+1~, IV1+1*, IV1+2*, IV1+3, CHANGED+1~, CHANGED+4*, CHANGED+5 , CHANGED+6*, PTR~, PTR+1 |
X1 | IVX+9~*, IVX+10, CHANGED+1~, CHANGED+5, CHANGED+7* |
X2 | IVX+9~*, IVX+10 |
X3 | IVX+9~, IVX+10* |
XC | IVX+1~, IVX+8*, IVX+9, IV1+8*, IV1+9 |
Y | FINISHED+1~*, FINISHED+3*, FINISHED+4, WPX+2~*, WPX+5*, WQ, IVX+1~, IVX+2*, IVX+4, IVX+5* , IVX+6*, IVX+8*, IVX+10*, IV1+1, IV1+3*, IV1+4*, IV1+6*, IV1+15, IV1+20*, IV1+21* , IV1+25*, IV1+27*, IV1+28*, IV1+29, CHANGED+1~*, CHANGED+3*, CHANGED+5*, CHANGED+9*, CHANGED+11*, CHANGED+12* , CHANGED+16*, CHANGED+22*, CHQ, VALUE+1~, VALUE+3*, VALUE+4 |
>> ZRX | FINISHED+2, IVX+5, IV1+4, PCOMM+2 |
ZSC | RO+1~, RO2+11* |