©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
Select the objects that you wish to see in the downloaded PDF
InfoORWDXM1 ; SLC/KCM - Order Dialogs, Menus;04-Jun-2010 14:12;PLS
Source file <ORWDXM1.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 6 | ($$NMSP,$$PTR)^ORCD $$EVT^OREVNTX $$DRAFT^ORWDX2 (ADMTIME,VERTXT)^ORWDXM2 ($$DLGINFO,$$GETIVTYP,$$KEYVAR,$$VALQO,$$VERORD,BLD4CHG,CHKCOPY,CHKDSBL,CHKVACT,SETKEYV)^ORWDXM3 (SETUP,SETUPS,VBASK)^ORWDXM4 |
| Toolkit | 1 | $$GET^XPAR |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SITEVAL() | ;return 1 if site does want the reason for study to carry through from past orders of this ordering session
|
|
| SVRPC(RET,X) | ;RPC FOR SITEVAL
|
|
| BLDQRSP(LST,ORIT,FLDS,ISIMO,ENCLOC) | ; Build responses for an order
; LST=QuickLevel^ResponseID(ORIT;$H)^Dialog^Type^FormID^DGrp ; LST(n)=verify text or reject text ; ORIT= ptr to 101.41 for quick order, 100 for copy ; 1 2 3 4 5 6 7 8 11-20 ; FLDS=DFN^LOC^ORNP^INPT^SEX^AGE^EVENT^SC%^^^Key Variables... ; ORIT=+ORIT: ptr to 101.41, $E(ORIT)=C: copy $E(ORIT)=X: change ; !! SHOULD CHECK for PRE-CPRS ORDERS (treat as text?) |
|
| ISMED(IFN) | ; return 1 if pharmacy order dlg used
|
|
| SUBCODE(X) | ; substitute code
|
|
| PTR(NAME) | ; -- Returns pointer to OR GTX NAME
|
|
| ISINPMED(IFN) | ;
|
|
| SETITEM(DA,PROMPT,INST,MUSTASK) | ; set default value & return if must prompt
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | ISINPMED+4 |
| $$NMSP^ORCD | ISMED+4 |
| $$PTR^ORCD | BLDQRSP+81, BLDQRSP+83 |
| $$EVT^OREVNTX | BLDQRSP+74 |
| $$DRAFT^ORWDX2 | BLDQRSP+82 |
| ADMTIME^ORWDXM2 | BLDQRSP+119 |
| VERTXT^ORWDXM2 | BLDQRSP+139 |
| $$DLGINFO^ORWDXM3 | BLDQRSP+32, BLDQRSP+86, BLDQRSP+140 |
| $$GETIVTYP^ORWDXM3 | SETITEM+18, SETITEM+19 |
| $$KEYVAR^ORWDXM3 | BLDQRSP+64 |
| $$VALQO^ORWDXM3 | BLDQRSP+120 |
| $$VERORD^ORWDXM3 | BLDQRSP+138 |
| BLD4CHG^ORWDXM3 | BLDQRSP+31 |
| CHKCOPY^ORWDXM3 | BLDQRSP+30 |
| CHKDSBL^ORWDXM3 | BLDQRSP+28 |
| CHKVACT^ORWDXM3 | BLDQRSP+29 |
| SETKEYV^ORWDXM3 | BLDQRSP+63, BLDQRSP+65 |
| SETUP^ORWDXM4 | BLDQRSP+78 |
| SETUPS^ORWDXM4 | BLDQRSP+84 |
| VBASK^ORWDXM4 | BLDQRSP+107 |
| $$GET^XPAR | SITEVAL+1 |
| RPC Name | Call Tags |
|---|---|
| ORWDXM1 BLDQRSP | BLDQRSP |
| ORWDXM1 SVRPC | SVRPC |
| FileNo | Call Tags |
|---|---|
| ^DIC(9.4 - [#9.4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | BLDQRSP+32 |
| ^DPT - [#2] | BLDQRSP+70 |
| ^OR(100 - [#100] | BLDQRSP+16, BLDQRSP+71, ISINPMED+3, ISMED+3 |
| ^ORD(100.5 - [#100.5] | BLDQRSP+74 |
| ^ORD(100.98 - [#100.98] | BLDQRSP+71, BLDQRSP+80, BLDQRSP+136 |
| ^ORD(101.41 - [#101.41] | BLDQRSP+32, BLDQRSP+51, BLDQRSP+69, BLDQRSP+88, BLDQRSP+90, BLDQRSP+91, BLDQRSP+93, BLDQRSP+95, BLDQRSP+99, BLDQRSP+101 , BLDQRSP+102, BLDQRSP+103, BLDQRSP+105, BLDQRSP+111, BLDQRSP+113, BLDQRSP+122, BLDQRSP+132, BLDQRSP+136, SETITEM+20, SETITEM+21 , SETITEM+24, SETITEM+28, SETITEM+29, SETITEM+31, SETITEM+32, PTR+1, ISINPMED+2, ISMED+2 |
| ^SC - [#44] | BLDQRSP+55 |
| ^TMP("ORWDHTM" | SETITEM+3, SETITEM+5, SETITEM+7, SETITEM+8, SETITEM+9 |
| ^TMP("ORWDXMQ" | BLDQRSP+8!, BLDQRSP+124*, BLDQRSP+127*, BLDQRSP+129* |
| ^TMP("ORWORD" | BLDQRSP+66!, BLDQRSP+143!, SETITEM+5*, SETITEM+21* |
| ^TMP("PSJINS" | BLDQRSP+144! |
| ^TMP("PSJMR" | BLDQRSP+144! |
| ^TMP("PSJNOUN" | BLDQRSP+144! |
| Name | Line Occurrences |
|---|---|
| $$ISINPMED | BLDQRSP+117 |
| $$ISMED | BLDQRSP+114, BLDQRSP+120, BLDQRSP+138 |
| $$PTR | BLDQRSP+115, SETITEM+18, SETITEM+19 |
| $$SITEVAL | SVRPC+1 |
| $$SUBCODE | SETITEM+24, SETITEM+32 |
| SETITEM | BLDQRSP+96, BLDQRSP+109 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMLOC | BLDQRSP+14~ |
| AUTOACK | BLDQRSP+49~, BLDQRSP+89*, BLDQRSP+97*, BLDQRSP+105*, BLDQRSP+111*, BLDQRSP+120*, BLDQRSP+130, BLDQRSP+131*, BLDQRSP+132*, BLDQRSP+134* , BLDQRSP+136*, BLDQRSP+138*, BLDQRSP+139, BLDQRSP+140 |
| CDA | BLDQRSP+100~, BLDQRSP+102*, BLDQRSP+103, BLDQRSP+105, BLDQRSP+109, BLDQRSP+111 |
| CPROMPT | BLDQRSP+100~, BLDQRSP+103*, BLDQRSP+105, BLDQRSP+106, BLDQRSP+109 |
| CSEQ | BLDQRSP+100~, BLDQRSP+101*, BLDQRSP+102 |
| DA | BLDQRSP+87~, BLDQRSP+91*, BLDQRSP+93, BLDQRSP+95, BLDQRSP+96, SETITEM~, SETITEM+20, SETITEM+21, SETITEM+24, SETITEM+28 , SETITEM+29, SETITEM+31, SETITEM+32 |
| DELAY | BLDQRSP+14~, BLDQRSP+118*, BLDQRSP+119 |
| EDITONLY | SETITEM+1~, SETITEM+2*, SETITEM+27 |
| ENCLOC | BLDQRSP~, BLDQRSP+119 |
| FIRST | BLDQRSP+49~, BLDQRSP+54* |
| FLDS | BLDQRSP~, BLDQRSP+15, BLDQRSP+29, BLDQRSP+30, BLDQRSP+31, BLDQRSP+52, BLDQRSP+53, BLDQRSP+54, BLDQRSP+55, BLDQRSP+56 , BLDQRSP+57, BLDQRSP+63, BLDQRSP+71 |
| GMRCNOAT | BLDQRSP+46~ |
| GMRCNOPD | BLDQRSP+46~ |
| GMRCREAF | BLDQRSP+46~ |
| IFN | ISINPMED~, ISINPMED+2, ISINPMED+3, ISMED~, ISMED+2, ISMED+3 |
| INST | BLDQRSP+87~, BLDQRSP+100~, BLDQRSP+106*, BLDQRSP+107, BLDQRSP+109, BLDQRSP+123*, BLDQRSP+124, BLDQRSP+126, BLDQRSP+127, BLDQRSP+129 , SETITEM~, SETITEM+5, SETITEM+6, SETITEM+7, SETITEM+9, SETITEM+13, SETITEM+15, SETITEM+21, SETITEM+22, SETITEM+25 , SETITEM+29, SETITEM+30 |
| ISIMO | BLDQRSP~, BLDQRSP+17, BLDQRSP+119 |
| ISXFER | BLDQRSP+11~, BLDQRSP+18*, BLDQRSP+19*, BLDQRSP+32, BLDQRSP+83, BLDQRSP+86, BLDQRSP+140 |
| IVDLG | BLDQRSP+112~, BLDQRSP+113*, BLDQRSP+114, BLDQRSP+138 |
| IVFID | BLDQRSP+87~, BLDQRSP+88*, BLDQRSP+105 |
| KEY | BLDQRSP+87~, BLDQRSP+116*, BLDQRSP+124, BLDQRSP+127, BLDQRSP+129, BLDQRSP+140 |
| KEYVAR | BLDQRSP+48~, BLDQRSP+64*, BLDQRSP+65, BLDQRSP+86, BLDQRSP+140 |
| LEVEL | BLDQRSP+14~, BLDQRSP+118*, BLDQRSP+119 |
| LRFDATE | BLDQRSP+38~ |
| LRFSAMP | BLDQRSP+38~ |
| LRFSCH | BLDQRSP+38~ |
| LRFSPEC | BLDQRSP+38~ |
| LRFURG | BLDQRSP+38~ |
| LRFZX | BLDQRSP+38~ |
| LST | BLDQRSP~, BLDQRSP+28, BLDQRSP+29, BLDQRSP+30, BLDQRSP+31 |
| LST(0 | BLDQRSP+24*, BLDQRSP+28, BLDQRSP+29, BLDQRSP+30, BLDQRSP+32*, BLDQRSP+68*, BLDQRSP+69*, BLDQRSP+78, BLDQRSP+85, BLDQRSP+86* , BLDQRSP+118, BLDQRSP+132, BLDQRSP+140*, BLDQRSP+141*, BLDQRSP+142*, SETITEM+30, SETITEM+31 |
| MUSTASK | BLDQRSP+87~, BLDQRSP+96, BLDQRSP+97, BLDQRSP+109, BLDQRSP+111, SETITEM~, SETITEM+2*, SETITEM+34* |
| NAME | PTR~, PTR+1 |
| ORAGE | BLDQRSP+48~, BLDQRSP+54* |
| ORASK | BLDQRSP+107~ |
| ORCAT | BLDQRSP+49~, BLDQRSP+73*, BLDQRSP+75*, BLDQRSP+76*, BLDQRSP+77*, BLDQRSP+114 |
| ORCOLLCT | BLDQRSP+39~ |
| ORCOMP | BLDQRSP+36~ |
| ORCOMPLX | BLDQRSP+42~ |
| ORCOPAY | BLDQRSP+42~ |
| ORDATE | BLDQRSP+44~ |
| ORDG | BLDQRSP+49~, BLDQRSP+80 |
| ORDIALOG | BLDQRSP+49~, BLDQRSP+90, BLDQRSP+91, BLDQRSP+93, BLDQRSP+95, BLDQRSP+99, BLDQRSP+101, BLDQRSP+102, BLDQRSP+103, BLDQRSP+105 , BLDQRSP+111, BLDQRSP+114, BLDQRSP+122, BLDQRSP+138, SETITEM+3, SETITEM+5, SETITEM+7, SETITEM+20, SETITEM+21, SETITEM+24 , SETITEM+28, SETITEM+29, SETITEM+31, SETITEM+32 |
| ORDIALOG( | BLDQRSP+81!, BLDQRSP+83!, BLDQRSP+105, BLDQRSP+106, BLDQRSP+115!, BLDQRSP+121, BLDQRSP+122!, BLDQRSP+123, BLDQRSP+126, BLDQRSP+127 , BLDQRSP+129, SETITEM+4, SETITEM+6*, SETITEM+7*, SETITEM+9*, SETITEM+13, SETITEM+15, SETITEM+20, SETITEM+22*, SETITEM+25* , SETITEM+29, SETITEM+30 |
| ORDIV | BLDQRSP+48~ |
| ORDLOC | BLDQRSP+14~, BLDQRSP+16*, BLDQRSP+119 |
| ORDRUG | BLDQRSP+42~ |
| ORDSUP | BLDQRSP+42~ |
| OREFILLS | BLDQRSP+41~ |
| OREVENT | BLDQRSP+48~, BLDQRSP+57*, BLDQRSP+58, BLDQRSP+59, BLDQRSP+60, BLDQRSP+61*, BLDQRSP+73, BLDQRSP+74, BLDQRSP+118 |
| OREVENT("EFFECTIVE" | BLDQRSP+60* |
| OREVENT("TS" | BLDQRSP+59* |
| OREVNTYP | BLDQRSP+50~, BLDQRSP+58*, BLDQRSP+72, BLDQRSP+73, BLDQRSP+75, BLDQRSP+76 |
| ORIMO | BLDQRSP+12~, BLDQRSP+17*, BLDQRSP+134 |
| ORIMTIME | BLDQRSP+39~ |
| ORIMTYPE | BLDQRSP+34~ |
| ORINPT | BLDQRSP+41~ |
| ORIT | BLDQRSP~, BLDQRSP+16, BLDQRSP+19, BLDQRSP+20, BLDQRSP+21, BLDQRSP+22, BLDQRSP+23*, BLDQRSP+28, BLDQRSP+29, BLDQRSP+30 , BLDQRSP+31, BLDQRSP+32, BLDQRSP+64, BLDQRSP+68, BLDQRSP+69, BLDQRSP+71, BLDQRSP+82, BLDQRSP+86, BLDQRSP+114, BLDQRSP+116 , BLDQRSP+117, BLDQRSP+120, BLDQRSP+132, BLDQRSP+136, BLDQRSP+138, BLDQRSP+140, SETITEM+8, SETITEM+9 |
| ORL | BLDQRSP+48~, BLDQRSP+53*, BLDQRSP+55 |
| ORL(2 | BLDQRSP+53* |
| ORLEAD | BLDQRSP+49~ |
| ORMAX | BLDQRSP+39~ |
| ORMEAL | BLDQRSP+44~ |
| ORMORE | BLDQRSP+41~ |
| ORNOUNS | BLDQRSP+41~ |
| ORNP | BLDQRSP+48~, BLDQRSP+52* |
| ORNPO | BLDQRSP+44~ |
| ORPARAM | BLDQRSP+44~ |
| ORQTY | BLDQRSP+41~, BLDQRSP+42~ |
| ORQUIT | BLDQRSP+49~, BLDQRSP+86, BLDQRSP+100~, BLDQRSP+101 |
| ORSC | BLDQRSP+48~, BLDQRSP+52* |
| ORSCH | BLDQRSP+39~ |
| ORSCHED | BLDQRSP+41~ |
| ORSD | BLDQRSP+42~ |
| ORSEX | BLDQRSP+48~, BLDQRSP+54* |
| ORSMAX | BLDQRSP+39~ |
| ORSTMS | BLDQRSP+39~ |
| ORTAS | BLDQRSP+36~ |
| ORTEST | BLDQRSP+39~ |
| ORTIME | BLDQRSP+39~, BLDQRSP+44~ |
| ORTRAIL | BLDQRSP+49~ |
| ORTRAY | BLDQRSP+44~ |
| ORTYPE | BLDQRSP+48~, BLDQRSP+54* |
| ORVP | BLDQRSP+48~, BLDQRSP+52*, BLDQRSP+70 |
| ORWARD | BLDQRSP+48~, BLDQRSP+55* |
| ORWMODE | BLDQRSP+9~, BLDQRSP+18*, BLDQRSP+19*, BLDQRSP+20*, BLDQRSP+21*, BLDQRSP+23, BLDQRSP+28, BLDQRSP+29, BLDQRSP+30, BLDQRSP+31 , BLDQRSP+32, BLDQRSP+62, BLDQRSP+68, BLDQRSP+80, BLDQRSP+82, BLDQRSP+86, BLDQRSP+116, BLDQRSP+131, BLDQRSP+132, BLDQRSP+134 , BLDQRSP+136, BLDQRSP+140, BLDQRSP+142, SETITEM+28, SETITEM+29, SETITEM+30, SETITEM+31, ISINPMED+2, ISMED+2 |
| ORWP94 | BLDQRSP+42~, BLDQRSP+51*, BLDQRSP+79 |
| ORWPSPIK | BLDQRSP+42~ |
| ORWPSWRG | BLDQRSP+42~, BLDQRSP+89 |
| ORXNP | BLDQRSP+41~ |
| >> P | BLDQRSP+115* |
| PATLOC | BLDQRSP+14~, BLDQRSP+15*, BLDQRSP+119 |
| PKG | ISINPMED+1~, ISINPMED+2*, ISINPMED+3*, ISINPMED+4, ISMED+1~, ISMED+2*, ISMED+3*, ISMED+4 |
| PROMPT | BLDQRSP+87~, BLDQRSP+95*, BLDQRSP+96, BLDQRSP+99, BLDQRSP+101, BLDQRSP+102, BLDQRSP+121*, BLDQRSP+122, BLDQRSP+123, BLDQRSP+124 , BLDQRSP+126, BLDQRSP+127, BLDQRSP+129, SETITEM~, SETITEM+3, SETITEM+4, SETITEM+5, SETITEM+6, SETITEM+7, SETITEM+8 , SETITEM+9, SETITEM+13, SETITEM+15, SETITEM+18, SETITEM+19, SETITEM+20, SETITEM+21, SETITEM+22, SETITEM+25, SETITEM+29 , SETITEM+30 |
| PSJNOPC | BLDQRSP+41~ |
| RESULT | ISINPMED+1~, ISINPMED+5*, ISINPMED+6 |
| RET | SVRPC~, SVRPC+1* |
| RSPREF | BLDQRSP+49~ |
| SCHLOC | BLDQRSP+14~ |
| SCHTYP | BLDQRSP+14~ |
| SEQ | BLDQRSP+87~, BLDQRSP+90*, BLDQRSP+91, BLDQRSP+116*, BLDQRSP+124*, BLDQRSP+127, BLDQRSP+129 |
| TEMPCAT | BLDQRSP+10~, BLDQRSP+70*, BLDQRSP+71*, BLDQRSP+73, BLDQRSP+77 |
| TEMPORIT | BLDQRSP+13~, BLDQRSP+22*, BLDQRSP+71 |
| U | BLDQRSP+15, BLDQRSP+16, BLDQRSP+29, BLDQRSP+32, BLDQRSP+52, BLDQRSP+53, BLDQRSP+54, BLDQRSP+55, BLDQRSP+56, BLDQRSP+57 , BLDQRSP+63, BLDQRSP+69, BLDQRSP+70, BLDQRSP+71, BLDQRSP+74, BLDQRSP+93, BLDQRSP+95, BLDQRSP+103, BLDQRSP+105, BLDQRSP+111 , BLDQRSP+118, BLDQRSP+124, BLDQRSP+132, BLDQRSP+136, BLDQRSP+140, BLDQRSP+141, BLDQRSP+142, SETITEM+28, SETITEM+29, SETITEM+31 , ISINPMED+2, ISINPMED+3, ISMED+2, ISMED+3 |
| VALIV | SETITEM+1~, SETITEM+2*, SETITEM+18*, SETITEM+19*, SETITEM+26 |
| X | BLDQRSP+49~, BLDQRSP+74~*, BLDQRSP+75, BLDQRSP+76, BLDQRSP+79*, BLDQRSP+81, SUBCODE~, SUBCODE+1, SUBCODE+2, SUBCODE+3 , SUBCODE+4, SUBCODE+5, SUBCODE+6, SUBCODE+7, SVRPC~ |
| XCODE | BLDQRSP+87~, SETITEM+1~, SETITEM+24*, SETITEM+25, SETITEM+32*, SETITEM+33 |
| Y | SETITEM+1~, SETITEM+25, ISINPMED+1~, ISINPMED+4*, ISINPMED+5 |