Routine: ORWDXM1

Package	Total	Call Graph
Order Entry Results Reporting	8	($$FTDCOMP,$$NMSP,$$PTR,$$VAL)^ORCD $$EVT^OREVNTX ISPROSVC^ORQQCN2 $$ISTITR^ORUTL3 $$DRAFT^ORWDX2 (ADMTIME,VERTXT)^ORWDXM2 ($$DLGINFO,$$GETIVTYP,$$ISRAD,$$KEYVAR,$$SDRTCVER,$$VALQO,$$VALRADQO,$$VERORD,BLD4CHG,CHKCOPY,CHKDSBL,CHKVACT,SETKEYV)^ORWDXM3 (SETUP,SETUPS,VBASK)^ORWDXM4
VA FileMan	2	^%DT $$GET1^DIQ
Kernel	1	($$DT,$$NOW)^XLFDT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	4	ITEMS ORWDX2 ORWDXM1 BLDQRSP ORWDXM1 SVRPC

Name	Comments	DBIA/ICR reference
BLDQRSP(LST,ORIT,FLDS,ISIMO,ENCLOC)	; Build responses for an order ; LST=QuickLevel^ResponseID(ORIT;$H)^Dialog^Type^FormID^DGrp ; LST(n)=verify 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?)
SETITEM(DA,PROMPT,INST,MUSTASK)	; set dflt val & return if must prompt
SUBCODE(X)	; substitute code
PTR(NAME)	; -- Returns pointer to OR GTX NAME
ISINPMED(IFN)	;
ISMED(IFN)	; return 1 if pharmacy order dlg used
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
ISQO(IFN)	;return 1 if a non-VA medication quick order type of order dialog. p388
ISPROS()	;return 1 if OI is prosthetics service
TITR(ORDIALOG)	; add titration response when copying/changing old (pre-v32/p405) titration orders

Name	Field # of Occurrence
^%DT	BLDQRSP+94, BLDQRSP+100, BLDQRSP+109, BLDQRSP+116
$$GET1^DIQ	ISINPMED+4
$$FTDCOMP^ORCD	BLDQRSP+95, BLDQRSP+101
$$NMSP^ORCD	ISMED+4
$$PTR^ORCD	BLDQRSP+72, BLDQRSP+75
$$VAL^ORCD	BLDQRSP+90, BLDQRSP+93, BLDQRSP+94, BLDQRSP+95, BLDQRSP+99, BLDQRSP+100, BLDQRSP+101, BLDQRSP+105, BLDQRSP+106, BLDQRSP+113 , BLDQRSP+114, BLDQRSP+121
$$EVT^OREVNTX	BLDQRSP+65
ISPROSVC^ORQQCN2	ISPROS+6
$$ISTITR^ORUTL3	BLDQRSP+73
$$DRAFT^ORWDX2	BLDQRSP+74
ADMTIME^ORWDXM2	BLDQRSP+158
VERTXT^ORWDXM2	BLDQRSP+179
$$DLGINFO^ORWDXM3	BLDQRSP+32, BLDQRSP+33, BLDQRSP+78, BLDQRSP+184
$$GETIVTYP^ORWDXM3	SETITEM+18, SETITEM+19
$$ISRAD^ORWDXM3	BLDQRSP+182
$$KEYVAR^ORWDXM3	BLDQRSP+55
$$SDRTCVER^ORWDXM3	BLDQRSP+160
$$VALQO^ORWDXM3	BLDQRSP+159
$$VALRADQO^ORWDXM3	BLDQRSP+182
$$VERORD^ORWDXM3	BLDQRSP+178
BLD4CHG^ORWDXM3	BLDQRSP+31
CHKCOPY^ORWDXM3	BLDQRSP+29
CHKDSBL^ORWDXM3	BLDQRSP+25
CHKVACT^ORWDXM3	BLDQRSP+27
SETKEYV^ORWDXM3	BLDQRSP+54, BLDQRSP+56
SETUP^ORWDXM4	BLDQRSP+69
SETUPS^ORWDXM4	BLDQRSP+76
VBASK^ORWDXM4	BLDQRSP+142
$$DT^XLFDT	BLDQRSP+95, BLDQRSP+101, BLDQRSP+110, BLDQRSP+118
$$NOW^XLFDT	BLDQRSP+90, BLDQRSP+117
$$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, BLDQRSP+33, BLDQRSP+160
^DPT - [#2]	BLDQRSP+61
^OR(100 - [#100]	BLDQRSP+16, BLDQRSP+62, ISINPMED+3, ISMED+3
^ORD(100.5 - [#100.5]	BLDQRSP+65
^ORD(100.98 - [#100.98]	BLDQRSP+62, BLDQRSP+71, BLDQRSP+176, ISQO+1
^ORD(101.41 - [#101.41]	BLDQRSP+32, BLDQRSP+33, BLDQRSP+42, BLDQRSP+60, BLDQRSP+80, BLDQRSP+81, BLDQRSP+82, BLDQRSP+86, BLDQRSP+123, BLDQRSP+124 , BLDQRSP+126, BLDQRSP+128, BLDQRSP+132, BLDQRSP+134, BLDQRSP+135, BLDQRSP+136, BLDQRSP+138, BLDQRSP+146, BLDQRSP+148, BLDQRSP+149 , BLDQRSP+150, BLDQRSP+160, BLDQRSP+162, BLDQRSP+172, BLDQRSP+176, SETITEM+20, SETITEM+21, SETITEM+24, SETITEM+28, SETITEM+29 , SETITEM+31, SETITEM+33, PTR+1, ISINPMED+2, ISMED+2, ISQO+1, ISQO+2
^ORD(101.43 - [#101.43]	ISPROS+5
^SC - [#44]	BLDQRSP+46
^TMP("ORWDHTM"	SETITEM+3, SETITEM+5, SETITEM+7, SETITEM+8, SETITEM+9
^TMP("ORWDXMQ"	BLDQRSP+8!, BLDQRSP+164, BLDQRSP+167, BLDQRSP+169*
^TMP("ORWORD"	BLDQRSP+57!, BLDQRSP+187!, SETITEM+5, SETITEM+21
^TMP("PSJINS"	BLDQRSP+188!
^TMP("PSJMR"	BLDQRSP+188!
^TMP("PSJNOUN"	BLDQRSP+188!
^VA(200 - [#200]	SITEVAL+1

Name	Line Occurrences
$$ISINPMED	BLDQRSP+156
$$ISMED	BLDQRSP+151, BLDQRSP+159, BLDQRSP+178
$$ISPROS	SETITEM+32
$$ISQO	BLDQRSP+154
$$PTR	BLDQRSP+96, BLDQRSP+97, BLDQRSP+153, BLDQRSP+154, SETITEM+18, SETITEM+19, SETITEM+32, TITR+2
$$SITEVAL	SVRPC+1
$$SUBCODE	SETITEM+24, SETITEM+33
SETITEM	BLDQRSP+129, BLDQRSP+144
TITR	BLDQRSP+73

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	BLDQRSP+94, BLDQRSP+100, BLDQRSP+109, BLDQRSP+116
ADMLOC	BLDQRSP+14~
AUTOACK	BLDQRSP+40~, BLDQRSP+86, BLDQRSP+87, BLDQRSP+130, BLDQRSP+140, BLDQRSP+146, BLDQRSP+159, BLDQRSP+160, BLDQRSP+170, BLDQRSP+171 , BLDQRSP+172, BLDQRSP+174, BLDQRSP+176, BLDQRSP+178, BLDQRSP+179, BLDQRSP+181, BLDQRSP+182*, BLDQRSP+184
CDA	BLDQRSP+133~, BLDQRSP+135*, BLDQRSP+136, BLDQRSP+138, BLDQRSP+144, BLDQRSP+146
CLINFDLG	BLDQRSP+147~, BLDQRSP+149*, BLDQRSP+151
CLIVFID	BLDQRSP+79~, BLDQRSP+81*, BLDQRSP+139
CPROMPT	BLDQRSP+133~, BLDQRSP+136*, BLDQRSP+140, BLDQRSP+141, BLDQRSP+144
CSEQ	BLDQRSP+133~, BLDQRSP+134*, BLDQRSP+135
DA	BLDQRSP+79~, BLDQRSP+124*, BLDQRSP+126, BLDQRSP+128, BLDQRSP+129, SETITEM~, SETITEM+20, SETITEM+21, SETITEM+24, SETITEM+28 , SETITEM+29, SETITEM+31, SETITEM+33
DELAY	BLDQRSP+14~, BLDQRSP+157*, BLDQRSP+158
DUZ	SITEVAL+1
EDITONLY	SETITEM+1~, SETITEM+2*, SETITEM+27
ENCLOC	BLDQRSP~, BLDQRSP+158
FIRST	BLDQRSP+40~, BLDQRSP+45*
FLDS	BLDQRSP~, BLDQRSP+15, BLDQRSP+27, BLDQRSP+29, BLDQRSP+31, BLDQRSP+43, BLDQRSP+44, BLDQRSP+45, BLDQRSP+46, BLDQRSP+47 , BLDQRSP+48, BLDQRSP+54, BLDQRSP+62
GMRCNOAT	BLDQRSP+38~
GMRCNOPD	BLDQRSP+38~
GMRCREAF	BLDQRSP+38~
IFN	ISINPMED~, ISINPMED+2, ISINPMED+3, ISMED~, ISMED+2, ISMED+3, ISQO~, ISQO+1, ISQO+2
INST	BLDQRSP+79~, BLDQRSP+133~, BLDQRSP+141, BLDQRSP+142, BLDQRSP+144, BLDQRSP+163, BLDQRSP+164, BLDQRSP+166, BLDQRSP+167, BLDQRSP+169 , 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+158
ISXFER	BLDQRSP+11~, BLDQRSP+18, BLDQRSP+19, BLDQRSP+32, BLDQRSP+33, BLDQRSP+75, BLDQRSP+78, BLDQRSP+184
IVDLG	BLDQRSP+147~, BLDQRSP+148*, BLDQRSP+151
IVFID	BLDQRSP+79~, BLDQRSP+80*, BLDQRSP+139
KEY	BLDQRSP+79~, BLDQRSP+155*, BLDQRSP+164, BLDQRSP+167, BLDQRSP+169, BLDQRSP+184
KEYVAR	BLDQRSP+39~, BLDQRSP+55*, BLDQRSP+56, BLDQRSP+78, BLDQRSP+184
LEVEL	BLDQRSP+14~, BLDQRSP+157*, BLDQRSP+158
LRFDATE	BLDQRSP+34~
LRFSAMP	BLDQRSP+34~
LRFSCH	BLDQRSP+34~
LRFSPEC	BLDQRSP+34~
LRFURG	BLDQRSP+34~
LRFZX	BLDQRSP+34~
LST	BLDQRSP~, BLDQRSP+25, BLDQRSP+27, BLDQRSP+29, BLDQRSP+31
LST(0	BLDQRSP+23, BLDQRSP+25, BLDQRSP+27, BLDQRSP+29, BLDQRSP+32, BLDQRSP+33, BLDQRSP+59, BLDQRSP+60, BLDQRSP+69, BLDQRSP+77 , BLDQRSP+78, BLDQRSP+157, BLDQRSP+172, BLDQRSP+184, BLDQRSP+185, BLDQRSP+186*, SETITEM+30, SETITEM+31
MUSTASK	BLDQRSP+79~, BLDQRSP+129, BLDQRSP+130, BLDQRSP+144, BLDQRSP+146, SETITEM~, SETITEM+2, SETITEM+35
NAME	PTR~, PTR+1
ORAGE	BLDQRSP+39~, BLDQRSP+45*
ORASK	BLDQRSP+142~
ORCAT	BLDQRSP+40~, BLDQRSP+64, BLDQRSP+66, BLDQRSP+67, BLDQRSP+68, BLDQRSP+151
ORCOLLCT	BLDQRSP+35~
ORCOMP	BLDQRSP+34~
ORCOMPLX	BLDQRSP+37~
ORCONSVC	ISPROS+1~, ISPROS+5*, ISPROS+6
ORCOPAY	BLDQRSP+37~
ORDATE	BLDQRSP+38~
ORDG	BLDQRSP+40~, BLDQRSP+71
ORDIALOG	BLDQRSP+40~, BLDQRSP+73, BLDQRSP+86, BLDQRSP+90, BLDQRSP+123, BLDQRSP+124, BLDQRSP+126, BLDQRSP+128, BLDQRSP+132, BLDQRSP+134 , BLDQRSP+135, BLDQRSP+136, BLDQRSP+138, BLDQRSP+139, BLDQRSP+146, BLDQRSP+151, BLDQRSP+160, BLDQRSP+162, BLDQRSP+182, SETITEM+3 , SETITEM+5, SETITEM+7, SETITEM+20, SETITEM+21, SETITEM+24, SETITEM+28, SETITEM+29, SETITEM+31, SETITEM+33, TITR~
ORDIALOG(	BLDQRSP+72!, BLDQRSP+75!, BLDQRSP+91!, BLDQRSP+92!, BLDQRSP+96!, BLDQRSP+97!, BLDQRSP+102!, BLDQRSP+103!, BLDQRSP+108!, BLDQRSP+111! , BLDQRSP+119!, BLDQRSP+122!, BLDQRSP+140, BLDQRSP+141, BLDQRSP+153!, BLDQRSP+154!, BLDQRSP+161, BLDQRSP+162!, BLDQRSP+163, BLDQRSP+166 , BLDQRSP+167, BLDQRSP+169, SETITEM+4, SETITEM+6, SETITEM+7, SETITEM+9, SETITEM+13, SETITEM+15, SETITEM+20, SETITEM+22 , SETITEM+25, SETITEM+29, SETITEM+30, ISPROS+4, TITR+3, TITR+4
ORDIALOG("B"	BLDQRSP+91, BLDQRSP+92, BLDQRSP+102, BLDQRSP+103, BLDQRSP+108, BLDQRSP+111, BLDQRSP+119, BLDQRSP+122, ISPROS+2, ISPROS+3
ORDITM	ISPROS+1~, ISPROS+3, ISPROS+4, ISPROS+5
ORDIV	BLDQRSP+39~
ORDLOC	BLDQRSP+14~, BLDQRSP+16*, BLDQRSP+158
ORDRUG	BLDQRSP+37~
ORDSUP	BLDQRSP+37~
OREFILLS	BLDQRSP+36~
OREVENT	BLDQRSP+39~, BLDQRSP+48, BLDQRSP+49, BLDQRSP+50, BLDQRSP+51, BLDQRSP+52, BLDQRSP+64, BLDQRSP+65, BLDQRSP+157
OREVENT("EFFECTIVE"	BLDQRSP+51*
OREVENT("TS"	BLDQRSP+50*
OREVNTYP	BLDQRSP+41~, BLDQRSP+49*, BLDQRSP+63, BLDQRSP+64, BLDQRSP+66, BLDQRSP+67
ORG	ISPROS+1~, ISPROS+6, ISPROS+7
ORIMO	BLDQRSP+12~, BLDQRSP+17*, BLDQRSP+174
ORIMTIME	BLDQRSP+35~
ORIMTYPE	BLDQRSP+34~
ORINPT	BLDQRSP+36~
ORIT	BLDQRSP~, BLDQRSP+16, BLDQRSP+19, BLDQRSP+20, BLDQRSP+21, BLDQRSP+22*, BLDQRSP+25, BLDQRSP+27, BLDQRSP+29, BLDQRSP+31 , BLDQRSP+32, BLDQRSP+33, BLDQRSP+55, BLDQRSP+59, BLDQRSP+60, BLDQRSP+62, BLDQRSP+73, BLDQRSP+74, BLDQRSP+78, BLDQRSP+151 , BLDQRSP+154, BLDQRSP+155, BLDQRSP+156, BLDQRSP+159, BLDQRSP+160, BLDQRSP+172, BLDQRSP+176, BLDQRSP+178, BLDQRSP+182, BLDQRSP+184 , SETITEM+8, SETITEM+9
ORL	BLDQRSP+39~, BLDQRSP+44*, BLDQRSP+46
ORL(2	BLDQRSP+44*
ORLEAD	BLDQRSP+40~
ORMAX	BLDQRSP+35~
ORMEAL	BLDQRSP+38~
ORMORE	BLDQRSP+36~
ORNOUNS	BLDQRSP+36~
ORNP	BLDQRSP+39~, BLDQRSP+43*
ORNPO	BLDQRSP+38~
ORPARAM	BLDQRSP+38~
ORQTY	BLDQRSP+36~, BLDQRSP+37~
ORQUIT	BLDQRSP+40~, BLDQRSP+78, BLDQRSP+133~, BLDQRSP+134
ORSC	BLDQRSP+39~, BLDQRSP+43*
ORSCH	BLDQRSP+35~
ORSCHED	BLDQRSP+36~
ORSD	BLDQRSP+37~
ORSEX	BLDQRSP+39~, BLDQRSP+45*
ORSMAX	BLDQRSP+35~
ORSTMS	BLDQRSP+35~
ORTAS	BLDQRSP+34~
ORTEST	BLDQRSP+35~
ORTIME	BLDQRSP+35~, BLDQRSP+38~
ORTITRDLG	TITR+1~, TITR+2*, TITR+3, TITR+4
ORTRAIL	BLDQRSP+40~
ORTRAY	BLDQRSP+38~
ORTYPE	BLDQRSP+39~, BLDQRSP+45*
ORVP	BLDQRSP+39~, BLDQRSP+43*, BLDQRSP+61, BLDQRSP+159, BLDQRSP+178
ORWARD	BLDQRSP+39~, BLDQRSP+46*
ORWMODE	BLDQRSP+9~, BLDQRSP+18, BLDQRSP+19, BLDQRSP+20*, BLDQRSP+22, BLDQRSP+25, BLDQRSP+27, BLDQRSP+29, BLDQRSP+31, BLDQRSP+32 , BLDQRSP+33, BLDQRSP+53, BLDQRSP+59, BLDQRSP+71, BLDQRSP+74, BLDQRSP+78, BLDQRSP+89, BLDQRSP+155, BLDQRSP+160, BLDQRSP+171 , BLDQRSP+172, BLDQRSP+174, BLDQRSP+176, BLDQRSP+184, BLDQRSP+186, SETITEM+28, SETITEM+29, SETITEM+30, SETITEM+31, SETITEM+32 , ISINPMED+2, ISMED+2
ORWP94	BLDQRSP+37~, BLDQRSP+42*, BLDQRSP+70
ORWPSPIK	BLDQRSP+37~
ORWPSWRG	BLDQRSP+37~, BLDQRSP+87
ORXNP	BLDQRSP+36~
P	BLDQRSP+152~, BLDQRSP+153*
PATLOC	BLDQRSP+14~, BLDQRSP+15*, BLDQRSP+158
PKG	ISINPMED+1~, ISINPMED+2, ISINPMED+3, ISINPMED+4, ISMED+1~, ISMED+2, ISMED+3, ISMED+4
PROMPT	BLDQRSP+79~, BLDQRSP+128, BLDQRSP+129, BLDQRSP+132, BLDQRSP+134, BLDQRSP+135, BLDQRSP+161, BLDQRSP+162, BLDQRSP+163, BLDQRSP+164 , BLDQRSP+166, BLDQRSP+167, BLDQRSP+169, 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, SETITEM+32
PSJNOPC	BLDQRSP+36~
RESULT	ISINPMED+1~, ISINPMED+5*, ISINPMED+6
RET	SVRPC~, SVRPC+1*
RSPREF	BLDQRSP+40~
SCHLOC	BLDQRSP+14~
SCHTYP	BLDQRSP+14~
SEQ	BLDQRSP+79~, BLDQRSP+123, BLDQRSP+124, BLDQRSP+155, BLDQRSP+164*, BLDQRSP+167, BLDQRSP+169
SPLYDLG	BLDQRSP+147~, BLDQRSP+150*, BLDQRSP+151
TEMPCAT	BLDQRSP+10~, BLDQRSP+61, BLDQRSP+62, BLDQRSP+64, BLDQRSP+68
TEMPORIT	BLDQRSP+13~, BLDQRSP+21*, BLDQRSP+62
U	BLDQRSP+15, BLDQRSP+16, BLDQRSP+27, BLDQRSP+32, BLDQRSP+33, BLDQRSP+43, BLDQRSP+44, BLDQRSP+45, BLDQRSP+46, BLDQRSP+47 , BLDQRSP+48, BLDQRSP+54, BLDQRSP+60, BLDQRSP+61, BLDQRSP+62, BLDQRSP+65, BLDQRSP+102, BLDQRSP+103, BLDQRSP+108, BLDQRSP+111 , BLDQRSP+119, BLDQRSP+122, BLDQRSP+126, BLDQRSP+128, BLDQRSP+136, BLDQRSP+138, BLDQRSP+146, BLDQRSP+157, BLDQRSP+160, BLDQRSP+164 , BLDQRSP+172, BLDQRSP+176, BLDQRSP+184, BLDQRSP+185, BLDQRSP+186, SETITEM+28, SETITEM+29, SETITEM+31, ISINPMED+2, ISINPMED+3 , ISMED+2, ISMED+3, ISQO+1, ISQO+2, ISPROS+3, ISPROS+5
VALIV	SETITEM+1~, SETITEM+2, SETITEM+18, SETITEM+19*, SETITEM+26
VBFID	BLDQRSP+79~, BLDQRSP+82*, BLDQRSP+90
X	BLDQRSP+40~, BLDQRSP+65~, BLDQRSP+66, BLDQRSP+67, BLDQRSP+70, BLDQRSP+72, BLDQRSP+94, BLDQRSP+100, BLDQRSP+106, BLDQRSP+108 , BLDQRSP+114, BLDQRSP+115, SUBCODE~, SUBCODE+1, SUBCODE+2, SUBCODE+3, SUBCODE+4, SUBCODE+5, SUBCODE+6, SUBCODE+7 , SVRPC~
XCODE	BLDQRSP+79~, SETITEM+1~, SETITEM+24, SETITEM+25, SETITEM+33, SETITEM+34
Y	BLDQRSP+95, BLDQRSP+101, BLDQRSP+110, BLDQRSP+117, BLDQRSP+118, SETITEM+1~, SETITEM+25, ISINPMED+1~, ISINPMED+4*, ISINPMED+5

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDXM1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: