Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ORWDXM1

Package: Order Entry Results Reporting

Routine: ORWDXM1


Information

ORWDXM1 ;SLC/KCM - Order Dialogs, Menus ; 6/18/20 4:58pm

Source Information

Source file <ORWDXM1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Order Entry Results Reporting 7 ($$FTDCOMP,$$NMSP,$$PTR,$$VAL)^ORCD  $$EVT^OREVNTX  ISPROSVC^ORQQCN2  $$DRAFT^ORWDX2  (ADMTIME,VERTXT)^ORWDXM2  ($$DLGINFO,$$GETIVTYP,$$KEYVAR,$$SDRTCVER,$$VALQO,$$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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Order Entry Results Reporting 2 ORWDXM1 BLDQRSP  ORWDXM1 SVRPC  

Entry Points

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

External References

Name Field # of Occurrence
^%DT BLDQRSP+89, BLDQRSP+95, BLDQRSP+104, BLDQRSP+111
$$GET1^DIQ ISINPMED+4
$$FTDCOMP^ORCD BLDQRSP+90, BLDQRSP+96
$$NMSP^ORCD ISMED+4
$$PTR^ORCD BLDQRSP+72, BLDQRSP+74
$$VAL^ORCD BLDQRSP+88, BLDQRSP+89, BLDQRSP+90, BLDQRSP+94, BLDQRSP+95, BLDQRSP+96, BLDQRSP+100, BLDQRSP+101, BLDQRSP+108, BLDQRSP+109
, BLDQRSP+116
$$EVT^OREVNTX BLDQRSP+65
ISPROSVC^ORQQCN2 ISPROS+6
$$DRAFT^ORWDX2 BLDQRSP+73
ADMTIME^ORWDXM2 BLDQRSP+153
VERTXT^ORWDXM2 BLDQRSP+174
$$DLGINFO^ORWDXM3 BLDQRSP+32, BLDQRSP+33, BLDQRSP+77, BLDQRSP+175
$$GETIVTYP^ORWDXM3 SETITEM+18, SETITEM+19
$$KEYVAR^ORWDXM3 BLDQRSP+55
$$SDRTCVER^ORWDXM3 BLDQRSP+155
$$VALQO^ORWDXM3 BLDQRSP+154
$$VERORD^ORWDXM3 BLDQRSP+173
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+75
VBASK^ORWDXM4 BLDQRSP+137
$$DT^XLFDT BLDQRSP+90, BLDQRSP+96, BLDQRSP+105, BLDQRSP+113
$$NOW^XLFDT BLDQRSP+112
$$GET^XPAR SITEVAL+1

Used in RPC

RPC Name Call Tags
ORWDXM1 BLDQRSP BLDQRSP
ORWDXM1 SVRPC SVRPC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] BLDQRSP+32, BLDQRSP+33, BLDQRSP+155
^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+171, ISQO+1
^ORD(101.41 - [#101.41] BLDQRSP+32, BLDQRSP+33, BLDQRSP+42, BLDQRSP+60, BLDQRSP+79, BLDQRSP+80, BLDQRSP+84, BLDQRSP+118, BLDQRSP+119, BLDQRSP+121
, BLDQRSP+123, BLDQRSP+127, BLDQRSP+129, BLDQRSP+130, BLDQRSP+131, BLDQRSP+133, BLDQRSP+141, BLDQRSP+143, BLDQRSP+144, BLDQRSP+145
, BLDQRSP+155, BLDQRSP+157, BLDQRSP+167, BLDQRSP+171, 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+159*, BLDQRSP+162*, BLDQRSP+164*
^TMP("ORWORD" BLDQRSP+57!, BLDQRSP+178!, SETITEM+5*, SETITEM+21*
^TMP("PSJINS" BLDQRSP+179!
^TMP("PSJMR" BLDQRSP+179!
^TMP("PSJNOUN" BLDQRSP+179!
^VA(200 - [#200] SITEVAL+1

Label References

Name Line Occurrences
$$ISINPMED BLDQRSP+151
$$ISMED BLDQRSP+146, BLDQRSP+154, BLDQRSP+173
$$ISPROS SETITEM+32
$$ISQO BLDQRSP+149
$$PTR BLDQRSP+91, BLDQRSP+92, BLDQRSP+148, BLDQRSP+149, SETITEM+18, SETITEM+19, SETITEM+32
$$SITEVAL SVRPC+1
$$SUBCODE SETITEM+24, SETITEM+33
SETITEM BLDQRSP+124, BLDQRSP+139

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT BLDQRSP+89*, BLDQRSP+95*, BLDQRSP+104*, BLDQRSP+111*
ADMLOC BLDQRSP+14~
AUTOACK BLDQRSP+40~, BLDQRSP+84*, BLDQRSP+85*, BLDQRSP+125*, BLDQRSP+135*, BLDQRSP+141*, BLDQRSP+154*, BLDQRSP+155*, BLDQRSP+165, BLDQRSP+166*
, BLDQRSP+167*, BLDQRSP+169*, BLDQRSP+171*, BLDQRSP+173*, BLDQRSP+174, BLDQRSP+175
CDA BLDQRSP+128~, BLDQRSP+130*, BLDQRSP+131, BLDQRSP+133, BLDQRSP+139, BLDQRSP+141
CLINFDLG BLDQRSP+142~, BLDQRSP+144*, BLDQRSP+146
CLIVFID BLDQRSP+78~, BLDQRSP+80*, BLDQRSP+134
CPROMPT BLDQRSP+128~, BLDQRSP+131*, BLDQRSP+135, BLDQRSP+136, BLDQRSP+139
CSEQ BLDQRSP+128~, BLDQRSP+129*, BLDQRSP+130
DA BLDQRSP+78~, BLDQRSP+119*, BLDQRSP+121, BLDQRSP+123, BLDQRSP+124, SETITEM~, SETITEM+20, SETITEM+21, SETITEM+24, SETITEM+28
, SETITEM+29, SETITEM+31, SETITEM+33
DELAY BLDQRSP+14~, BLDQRSP+152*, BLDQRSP+153
DUZ SITEVAL+1
EDITONLY SETITEM+1~, SETITEM+2*, SETITEM+27
ENCLOC BLDQRSP~, BLDQRSP+153
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+78~, BLDQRSP+128~, BLDQRSP+136*, BLDQRSP+137, BLDQRSP+139, BLDQRSP+158*, BLDQRSP+159, BLDQRSP+161, BLDQRSP+162, BLDQRSP+164
, 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+153
ISXFER BLDQRSP+11~, BLDQRSP+18*, BLDQRSP+19*, BLDQRSP+32, BLDQRSP+33, BLDQRSP+74, BLDQRSP+77, BLDQRSP+175
IVDLG BLDQRSP+142~, BLDQRSP+143*, BLDQRSP+146
IVFID BLDQRSP+78~, BLDQRSP+79*, BLDQRSP+134
KEY BLDQRSP+78~, BLDQRSP+150*, BLDQRSP+159, BLDQRSP+162, BLDQRSP+164, BLDQRSP+175
KEYVAR BLDQRSP+39~, BLDQRSP+55*, BLDQRSP+56, BLDQRSP+77, BLDQRSP+175
LEVEL BLDQRSP+14~, BLDQRSP+152*, BLDQRSP+153
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+76
, BLDQRSP+77*, BLDQRSP+152, BLDQRSP+167, BLDQRSP+175*, BLDQRSP+176*, BLDQRSP+177*, SETITEM+30, SETITEM+31
MUSTASK BLDQRSP+78~, BLDQRSP+124, BLDQRSP+125, BLDQRSP+139, BLDQRSP+141, SETITEM~, SETITEM+2*, SETITEM+35*
NAME PTR~, PTR+1
ORAGE BLDQRSP+39~, BLDQRSP+45*
ORASK BLDQRSP+137~
ORCAT BLDQRSP+40~, BLDQRSP+64*, BLDQRSP+66*, BLDQRSP+67*, BLDQRSP+68*, BLDQRSP+146
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+84, BLDQRSP+118, BLDQRSP+119, BLDQRSP+121, BLDQRSP+123, BLDQRSP+127, BLDQRSP+129, BLDQRSP+130, BLDQRSP+131
, BLDQRSP+133, BLDQRSP+134, BLDQRSP+141, BLDQRSP+146, BLDQRSP+155, BLDQRSP+157, SETITEM+3, SETITEM+5, SETITEM+7, SETITEM+20
, SETITEM+21, SETITEM+24, SETITEM+28, SETITEM+29, SETITEM+31, SETITEM+33
ORDIALOG( BLDQRSP+72!, BLDQRSP+74!, BLDQRSP+91!, BLDQRSP+92!, BLDQRSP+97!, BLDQRSP+98!, BLDQRSP+103!, BLDQRSP+106!, BLDQRSP+114!, BLDQRSP+117!
, BLDQRSP+135, BLDQRSP+136, BLDQRSP+148!, BLDQRSP+149!, BLDQRSP+156, BLDQRSP+157!, BLDQRSP+158, BLDQRSP+161, BLDQRSP+162, BLDQRSP+164
, SETITEM+4, SETITEM+6*, SETITEM+7*, SETITEM+9*, SETITEM+13, SETITEM+15, SETITEM+20, SETITEM+22*, SETITEM+25*, SETITEM+29
, SETITEM+30, ISPROS+4
ORDIALOG("B" BLDQRSP+97, BLDQRSP+98, BLDQRSP+103, BLDQRSP+106, BLDQRSP+114, BLDQRSP+117, ISPROS+2, ISPROS+3
ORDITM ISPROS+1~, ISPROS+3*, ISPROS+4*, ISPROS+5
ORDIV BLDQRSP+39~
ORDLOC BLDQRSP+14~, BLDQRSP+16*, BLDQRSP+153
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+152
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+169
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+77, BLDQRSP+146, BLDQRSP+149
, BLDQRSP+150, BLDQRSP+151, BLDQRSP+154, BLDQRSP+155, BLDQRSP+167, BLDQRSP+171, BLDQRSP+173, BLDQRSP+175, 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+77, BLDQRSP+128~, BLDQRSP+129
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~
ORTRAIL BLDQRSP+40~
ORTRAY BLDQRSP+38~
ORTYPE BLDQRSP+39~, BLDQRSP+45*
ORVP BLDQRSP+39~, BLDQRSP+43*, BLDQRSP+61
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+73, BLDQRSP+77, BLDQRSP+87, BLDQRSP+150, BLDQRSP+155, BLDQRSP+166
, BLDQRSP+167, BLDQRSP+169, BLDQRSP+171, BLDQRSP+175, BLDQRSP+177, 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+85
ORXNP BLDQRSP+36~
P BLDQRSP+147~, BLDQRSP+148*
PATLOC BLDQRSP+14~, BLDQRSP+15*, BLDQRSP+153
PKG ISINPMED+1~, ISINPMED+2*, ISINPMED+3*, ISINPMED+4, ISMED+1~, ISMED+2*, ISMED+3*, ISMED+4
PROMPT BLDQRSP+78~, BLDQRSP+123*, BLDQRSP+124, BLDQRSP+127, BLDQRSP+129, BLDQRSP+130, BLDQRSP+156*, BLDQRSP+157, BLDQRSP+158, BLDQRSP+159
, BLDQRSP+161, BLDQRSP+162, BLDQRSP+164, 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+78~, BLDQRSP+118*, BLDQRSP+119, BLDQRSP+150*, BLDQRSP+159*, BLDQRSP+162, BLDQRSP+164
SPLYDLG BLDQRSP+142~, BLDQRSP+145*, BLDQRSP+146
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+97, BLDQRSP+98, BLDQRSP+103, BLDQRSP+106
, BLDQRSP+114, BLDQRSP+117, BLDQRSP+121, BLDQRSP+123, BLDQRSP+131, BLDQRSP+133, BLDQRSP+141, BLDQRSP+152, BLDQRSP+155, BLDQRSP+159
, BLDQRSP+167, BLDQRSP+171, BLDQRSP+175, BLDQRSP+176, BLDQRSP+177, 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
X BLDQRSP+40~, BLDQRSP+65~*, BLDQRSP+66, BLDQRSP+67, BLDQRSP+70*, BLDQRSP+72, BLDQRSP+89*, BLDQRSP+95*, BLDQRSP+101*, BLDQRSP+103
, BLDQRSP+109*, BLDQRSP+110, SUBCODE~, SUBCODE+1, SUBCODE+2, SUBCODE+3, SUBCODE+4, SUBCODE+5, SUBCODE+6, SUBCODE+7
, SVRPC~
XCODE BLDQRSP+78~, SETITEM+1~, SETITEM+24*, SETITEM+25, SETITEM+33*, SETITEM+34
Y BLDQRSP+90, BLDQRSP+96, BLDQRSP+105, BLDQRSP+112, BLDQRSP+113, SETITEM+1~, SETITEM+25, ISINPMED+1~, ISINPMED+4*, ISINPMED+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All