©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ORMPS3 ;SLC/MKB - Process Pharmacy ORM msgs cont ;03-Jun-2014 11:20;PLS
Source file <ORMPS3.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 7 | $$DOSES^ORCACT4 EN^ORCSAVE ORDTEXT^ORCSAVE1 (DATES,RELEASE,RESP,SIGSTS)^ORCSAVE2 $$UNESC^ORHLESC $$FIND^ORM $$UNESC^ORMPS2 |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 3 | ORMPS ORMPS1 ORMPS2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| P0 | ; -- just add conjunction, new dose if DAD already exists
|
|
| P1 | ; -- set up links
|
|
| PTR(X) | ; -- Return ptr to prompt OR GTX X
|
|
| PARENT | ; -- create parent order for backdoor complex renewals
; Expects ORIFN, ORIG, ORDIALOG() |
|
| NUMADDS() | ; -- count number of additives to determine type
|
|
| UPD | ; -- Compare ORMSG to order, update responses [from SC^ORMPS]
; Also expects ORIFN,ORNP,ORCAT,OR3,RXE,ZRX,PKGIFN |
|
| ZSC() | ; -- Return subscript of ZSC segment
|
|
| DURATION(X) | ; -- Returns "# units" from U# format
|
|
| VALTXT(IFN,ID) | ; -- Return string of text for prompt ID [assumes single instance]
; ID may be identifier name or Response IEN |
|
| NTXT(NTE) | ; -- Return string of text in ORMSG(NTE)
|
|
| NTE(ID) | ; -- Return subscript of NTE|ID segment
|
|
| VALUE(IFN,ID,INST) | ; -- Returns value of prompt by identifier ID
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | UPD+23, UPD+24, UPD+25 |
| $$DOSES^ORCACT4 | PARENT+4, P0+2 |
| EN^ORCSAVE | PARENT+6 |
| ORDTEXT^ORCSAVE1 | P0+18 |
| DATES^ORCSAVE2 | PARENT+10 |
| RELEASE^ORCSAVE2 | PARENT+9 |
| RESP^ORCSAVE2 | UPD+8, UPD+11, UPD+14, UPD+16, UPD+19, UPD+23, UPD+24, UPD+25, UPD+27 |
| SIGSTS^ORCSAVE2 | PARENT+10 |
| $$UNESC^ORHLESC | NTXT+2, NTXT+3 |
| $$FIND^ORM | UPD+21 |
| $$UNESC^ORMPS2 | UPD+31, UPD+32 |
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OR(100 - [#100] | PARENT+3, PARENT+5, PARENT+7*, PARENT+8*, PARENT+11!, P0+2, P0+4*, P0+5*, P0+9*, P0+10* , P0+11*, P0+12, P0+13, P0+14*, P0+15*, P0+17, P0+18!, P1+1*, P1+2, UPD+5 , UPD+6, UPD+28, UPD+30!, UPD+31*, UPD+32*, UPD+33*, UPD+34*, VALUE+1, VALUE+3, VALTXT+3 , VALTXT+4, VALTXT+5 |
| ^ORD(101.41 - [#101.41] | PTR+1, P0+8 |
| ^TMP("ORWORD" | P0+14, P0+17!* |
| Name | Line Occurrences |
|---|---|
| $$NTE | UPD+28 |
| $$NTXT | UPD+29 |
| $$PTR | P0+3, P0+7, P0+12 |
| $$VALTXT | UPD+29 |
| $$VALUE | UPD+8, UPD+11, UPD+14, UPD+19, UPD+27 |
| $$ZSC | UPD+34 |
| P1 | PARENT+5 |
| Name | Field # of Occurrence |
|---|---|
| ^( | P0+13, P1+2*, VALTXT+4, VALTXT+5 |
| ^(0 | PARENT+11*, P0+13*, P1+2*, UPD+6* |
| ^(1 | P0+4*, P0+9*, VALUE+3 |
| ^(3 | PARENT+7* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | NUMADDS+1~*, NUMADDS+2*, NUMADDS+3, UPD+30~, UPD+31*, UPD+32*, UPD+33 |
| DA | P0+1~, P0+2*, P0+3*, P0+4, P0+5, P0+8*, P0+9, P0+10, P0+11, P0+12* , P0+13, P0+14, P0+15, P0+17, VALTXT+2~, VALTXT+3*, VALTXT+4, VALTXT+5 |
| DT | UPD+33 |
| HDR | PARENT+3~, P1+2* |
| I | P0+1~, P0+13*, P0+14*, P0+15, NTE+1~*, NTE+2*, NTXT+1~, NTXT+3*, ZSC+1~*, ZSC+2* , NUMADDS+1~*, NUMADDS+2*, UPD+2~, UPD+3*, UPD+4*, UPD+5*, UPD+6, UPD+32*, VALUE+2~*, VALUE+3* , VALTXT+2~, VALTXT+4*, VALTXT+5* |
| ID | P0+1~, P0+3*, P0+4, P0+8*, P0+9, P0+10, NTE~, NTE+1*, NTE+2, VALUE~ , VALUE+1, VALUE+3, VALTXT~, VALTXT+2*, VALTXT+3 |
| IFN | VALUE~, VALUE+1, VALUE+3, VALTXT~, VALTXT+2*, VALTXT+3, VALTXT+4, VALTXT+5 |
| INST | P0+1~, P0+2*, P0+4, P0+5*, P0+9, VALUE~, VALUE+2*, VALUE+3 |
| J | P0+1~, P0+14* |
| NTE | NTXT~, NTXT+1*, NTXT+2, NTXT+3, UPD+2~, UPD+28*, UPD+29, UPD+31, UPD+32 |
| >> OR3 | UPD+4 |
| >> ORC | UPD+21 |
| >> ORCAT | UPD+9 |
| ORDER | UPD+2~, UPD+3*, UPD+8, UPD+11, UPD+14, UPD+16, UPD+19, UPD+23, UPD+24, UPD+25 , UPD+27, UPD+28, UPD+29, UPD+30, UPD+31, UPD+32, UPD+33, UPD+34 |
| >> ORDIALOG( | P0+7, P0+9 |
| >> ORDUZ | PARENT+9 |
| ORIFN | PARENT+6~, PARENT+7, PARENT+8, PARENT+9, PARENT+10, PARENT+11, P1+1, P1+2, UPD+3, UPD+5 , UPD+6 |
| ORIFNDAD | PARENT+3~, PARENT+5*, PARENT+8*, P0+2, P0+4, P0+5, P0+9, P0+10, P0+11, P0+12 , P0+13, P0+14, P0+15, P0+17, P0+18, P1+1, P1+2 |
| >> ORIG | PARENT+3 |
| ORIGDAD | PARENT+3~*, PARENT+4, PARENT+5, PARENT+7, PARENT+8 |
| >> ORLOG | PARENT+9, PARENT+11 |
| >> ORMSG | NTE+2, NTXT+2, NTXT+3, ZSC+2, NUMADDS+2, UPD+31, UPD+32 |
| >> ORNATR | PARENT+9 |
| >> ORNP | UPD+6 |
| >> ORSTRT | PARENT+10 |
| >> ORVP | PARENT+11 |
| P | P0+1~, P0+6*, P0+7, P0+12* |
| PI | UPD+2~, UPD+28*, UPD+29, UPD+30, UPD+31, UPD+32, UPD+33 |
| >> PKGIFN | UPD+17 |
| PTR | P0+1~, P0+3*, P0+4, P0+7*, P0+8, P0+9, P0+14, P0+17 |
| >> RXE | NTE+1, ZSC+1, NUMADDS+1, UPD+7, UPD+10, UPD+13, UPD+18 |
| SEG | NTE+1~, NTE+2*, ZSC+1~, ZSC+2* |
| U | PARENT+3, PARENT+5, PARENT+7, PARENT+8, PARENT+11, P0+4, P0+8, P0+9, P0+11, P0+15 , P1+1, P1+2, ZSC+2, UPD+4, UPD+6, UPD+7, UPD+10, UPD+13, UPD+22, UPD+33 , VALUE+3 |
| X | PTR~, PTR+1, P0+1~, P0+13*, NUMADDS+1~, NUMADDS+2*, DURATION~, DURATION+1, DURATION+2, UPD+2~ , UPD+6*, UPD+7*, UPD+8, UPD+10*, UPD+11, UPD+13*, UPD+14, UPD+15, UPD+18*, UPD+19 , UPD+21*, UPD+22, UPD+23, UPD+24, UPD+25 |
| Y | NTE+1~*, NTE+2*, NTE+3, NTXT+1~, NTXT+2*, NTXT+3*, NTXT+4, ZSC+1~*, ZSC+2*, ZSC+3 , DURATION+1~, DURATION+3*, DURATION+4, VALUE+2~*, VALUE+3*, VALUE+4, VALTXT+2~, VALTXT+4*, VALTXT+5*, VALTXT+6 |
| Y1 | DURATION+1~, DURATION+2*, DURATION+3 |
| Y2 | DURATION+1~, DURATION+2*, DURATION+3 |
| >> ZRX | UPD+27 |
| ZSC | UPD+2~, UPD+34* |