Routine: ORWDXM1

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

Local Variables

Legend:

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

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDXM1

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: