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* |