Routine: ORCXPND1

Information

ORCXPND1 ; SLC/MKB - Expanded Display cont ;May 3, 2021@21:00

Package	Total	Call Graph
Order Entry Results Reporting	10	$$NMSP^ORCD (BLANK,ITEM,SETVIDEO)^ORCXPND (ALLERGY,ORDERS)^ORCXPND2 AP^ORCXPND3 PL^ORCXPND4 EN^ORCXPNDR TEXT^ORQ12 EN^ORWLR1 $$INPT^ORWPT1 START^ORWRP
Registration	8	($$FINDCUR,$$GET)^DGENA ($$CATEGORY,$$EXTCAT)^DGENA4 $$EXT^DGENU DISP^DGIBDSP EN^DGRPD DIS^DGRPDB (KVAR,OAD)^VADPT GET^VAFCREL
Kernel	3	$$FMTE^XLFDT ($$LJ,$$REPEAT)^XLFSTR ($$NAME,$$PADD)^XUAF4
Lab Service	3	RR^LR7OR1 EN1^LR7OSBR EN^LR7OSMZ0
Consult Request Tracking	2	RT^GMRCGUIA DT^GMRCSLM2
Scheduling	2	$$START^SCMCMHTC ($$OUTPTAP,$$OUTPTPR,$$OUTPTTM)^SDUTL3
VBECS	2	CPRS^VBECA3B EN^VBECRPT
Outpatient Pharmacy	1	OEL^PSOORRL
Radiology Nuclear Medicine	1	(EN3,EN30)^RAO7PC3
Text Integration Utility	1	RPC^TIUSRV
Toolkit	1	$$GET^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Order Entry Results Reporting	6	ORCXPNDR ORRHCQ ORWOR ORWPS ORWPT ORWRA

Entry Points

Name	Comments	DBIA/ICR reference
COVER	; -- Cover Sheet
NOTES	; -- Progress Notes
PROBLEMS	; -- Problem List
MEDS	; -- Pharmacy
LABS	; -- Laboratory [RESULTS ONLY for ID=OE order #]
PLS	; List performing laboratories
SETLINE(LINE,CNT)	;
DELAY	; -- Delayed Orders
NEW	; -- New Orders
ORDERS	; -- Orders
REPORTS	; -- Patient Profiles
CONSULTS	; -- Consults
XRAYS	; -- Radiology
XRPT	; -- Body of Report for CASE, PROC
SUMMRIES	; -- Discharge Summaries
PTINQ	; Print Patient Inquiry in List Manager
DGINQ(DFN)	; Patient Inquiry
DGINQB(DFN)	; Build Patient Inquiry
TRIM(X)	; Trim Spaces
S(X,Y,Z)	; Pad Over ; X=Column # ; Y=Current Length ; Z=Text ; SP=Text Sent ; CCNT=Line Position After Input Text
INC(X,Y)	; Character Position Count ; X=Current Count ; Y=Text

External References

Name	Field # of Occurrence
$$FINDCUR^DGENA	DGINQB+31
$$GET^DGENA	DGINQB+31
$$CATEGORY^DGENA4	DGINQB+31
$$EXTCAT^DGENA4	DGINQB+32
$$EXT^DGENU	DGINQB+31
DISP^DGIBDSP	DGINQB+55
EN^DGRPD	DGINQB+3
DIS^DGRPDB	DGINQB+57
RT^GMRCGUIA	CONSULTS+9
DT^GMRCSLM2	CONSULTS+8
RR^LR7OR1	LABS+5, LABS+6
EN1^LR7OSBR	LABS+20
EN^LR7OSMZ0	LABS+23
$$NMSP^ORCD	ORDERS+4
BLANK^ORCXPND	LABS+9, LABS+31, ORDERS+9, CONSULTS+4, XRAYS+6, XRAYS+7
ITEM^ORCXPND	LABS+8, ORDERS+8, CONSULTS+4, XRAYS+5, XRAYS+6
SETVIDEO^ORCXPND	LABS+36, LABS+44, LABS+45
ALLERGY^ORCXPND2	COVER+2
ORDERS^ORCXPND2	ORDERS+1
AP^ORCXPND3	LABS+4
PL^ORCXPND4	PROBLEMS+1
EN^ORCXPNDR	REPORTS+1
TEXT^ORQ12	LABS+7, ORDERS+7, CONSULTS+3
EN^ORWLR1	LABS+13
$$INPT^ORWPT1	DGINQB+45
START^ORWRP	DGINQ+1
OEL^PSOORRL	MEDS+3
EN3^RAO7PC3	XRAYS+1
EN30^RAO7PC3	XRAYS+2
$$START^SCMCMHTC	DGINQB+37
$$OUTPTAP^SDUTL3	DGINQB+40
$$OUTPTPR^SDUTL3	DGINQB+35
$$OUTPTTM^SDUTL3	DGINQB+36
RPC^TIUSRV	NOTES+2, SUMMRIES+2
KVAR^VADPT	DGINQB+75
OAD^VADPT	DGINQB+60
GET^VAFCREL	DGINQB+7
CPRS^VBECA3B	LABS+13
EN^VBECRPT	LABS+16
$$FMTE^XLFDT	LABS+29
$$LJ^XLFSTR	PLS+5
$$REPEAT^XLFSTR	PLS+8
$$GET^XPAR	LABS+13, DGINQB+4
$$NAME^XUAF4	PLS+5
$$PADD^XUAF4	PLS+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Caregiver Information:" Line Location: DGINQB+5
Function Call: WRITE	Prompt: ! Line Location: DGINQB+7
Function Call: WRITE	Prompt: "Caregiver information not currently available: ",$P(ORRET(0),"^",2),! Line Location: DGINQB+8
Function Call: WRITE	Prompt: "No Caregiver information returned." Line Location: DGINQB+9
Function Call: WRITE	Prompt: ?5,"Primary Caregiver: " Line Location: DGINQB+18
Function Call: WRITE	Prompt: ?24,ORD("PRIM",ORRETS),! Line Location: DGINQB+20
Function Call: WRITE	Prompt: ! Line Location: DGINQB+21
Function Call: WRITE	Prompt: ?3,"Secondary Caregiver: " Line Location: DGINQB+23
Function Call: WRITE	Prompt: ?24,ORD("SEC",ORRETS),! Line Location: DGINQB+25
Function Call: WRITE	Prompt: ! Line Location: DGINQB+26
Function Call: WRITE	Prompt: ?5,"General Caregiver: " Line Location: DGINQB+28
Function Call: WRITE	Prompt: ?24,ORD("GEN",ORRETS),! Line Location: DGINQB+30
Function Call: WRITE	Prompt: !!!,"Enrollment Priority: ",$S($G(ORENRD("PRIORITY"))]"":"GROUP "_$G(ORENRD("PRIORITY")),1:"")_ORESG,?40,"Category: ",$$EXTCAT^DGENA4(ORENC),!! Line Location: DGINQB+32
Function Call: WRITE	Prompt: !!,"Primary Care Information:" Line Location: DGINQB+42
Function Call: WRITE	Prompt: !,"Primary Practitioner: ",$P(ORDOC,"^",2) Line Location: DGINQB+43
Function Call: WRITE	Prompt: !,"Primary Care Team: ",$P(ORTEAM,"^",2) Line Location: DGINQB+44
Function Call: WRITE	Prompt: !,"Attending Physician: ",$P($G(^VA(200,+ORATP,0)),U) Line Location: DGINQB+46
Function Call: WRITE	Prompt: !,"Inpatient Provider: ",$P($G(^VA(200,+ORINP,0)),U) Line Location: DGINQB+47
Function Call: WRITE	Prompt: !,"Associate Provider: ",ORASS Line Location: DGINQB+48
Function Call: WRITE	Prompt: !!,"MH Treatment Information:" Line Location: DGINQB+50
Function Call: WRITE	Prompt: !,"MH Treatment Coord: ",$E($P(ORMHP,"^",2),1,28) Line Location: DGINQB+51
Function Call: WRITE	Prompt: ?52,"Position: ",$E($P(ORMHP,"^",3),1,18) Line Location: DGINQB+52
Function Call: WRITE	Prompt: !,"MH Treatment Team: ",$E($P(ORMHP,"^",5),1,56) Line Location: DGINQB+53
Function Call: WRITE	Prompt: !!,"Health Insurance Information:" Line Location: DGINQB+54
Function Call: WRITE	Prompt: !!,"Service Connection/Rated Disabilities:" Line Location: DGINQB+56
Function Call: WRITE	Prompt: !!,$S(CONTACT="N":"Next of Kin Information:",1:"Secondary Next of Kin Information:") Line Location: DGINQB+62
Function Call: WRITE	Prompt: !,"Name: ",VAOA(9) Line Location: DGINQB+63
Function Call: WRITE	Prompt: " (",VAOA(10),")" Line Location: DGINQB+64
Function Call: WRITE	Prompt: !?7,VAOA(1) Line Location: DGINQB+65
Function Call: WRITE	Prompt: !?7,VAOA(2) Line Location: DGINQB+66
Function Call: WRITE	Prompt: !?7,VAOA(3) Line Location: DGINQB+67
Function Call: WRITE	Prompt: !?7,VAOA(4) Line Location: DGINQB+69
Function Call: WRITE	Prompt: ", "_$P(VAOA(5),"^",2) Line Location: DGINQB+70
Function Call: WRITE	Prompt: " ",$P(VAOA(11),"^",2) Line Location: DGINQB+71
Function Call: WRITE	Prompt: !!?7,"Phone number: ",VAOA(8) Line Location: DGINQB+72
Function Call: WRITE	Prompt: !?7,"Work phone number: ",$P(^DPT(DFN,.21),U,11) Line Location: DGINQB+73
Function Call: WRITE	Prompt: !?7,"Work phone number: ",$P(^DPT(DFN,.211),U,11) Line Location: DGINQB+74

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DGINQB+38, DGINQB+39, DGINQB+73, DGINQB+74
^LAB(60 - [#60]	LABS+38
^OR(100 - [#100]	LABS+3, ORDERS+4, ORDERS+11, ORDERS+12, CONSULTS+3, XRAYS+2
^TMP("GMRCR"	CONSULTS+10, CONSULTS+11!
^TMP("LRC"	LABS+20!, LABS+21, LABS+22!, LABS+23!, LABS+24, LABS+25!
^TMP("LRRR"	LABS+2!, LABS+6, LABS+9, LABS+10, LABS+51!
^TMP("OR"	COVER+1, CONSULTS+2
^TMP("ORDATA"	PTINQ+5, PTINQ+8!
^TMP("ORLRC"	LABS+14!, LABS+17*, LABS+18, LABS+19!
^TMP("ORPLS"	LABS+43*, LABS+49, PLS+4, PLS+11!
^TMP("ORXPND"	NOTES+3, LABS+9, LABS+18, LABS+21, LABS+24, SETLINE+1, ORDERS+10, CONSULTS+5, CONSULTS+7, CONSULTS+10 , XRPT+2, XRPT+3, SUMMRIES+3, PTINQ+7
^TMP("PS"	MEDS+2!, MEDS+4, MEDS+6!
^TMP("TIUAUDIT"	NOTES+1!, SUMMRIES+1!
^TMP($J	XRAYS+3, XRAYS+4, XRAYS+5, XRAYS+6, XRAYS+7, XRAYS+8!, XRPT+2, XRPT+3
^UTILITY($J	XRAYS+8!
^VA(200 - [#200]	DGINQB+46, DGINQB+47

Label References

Name	Line Occurrences
$$INC	S+8
$$S	LABS+32, LABS+34, LABS+41
@(	ORDERS+11, ORDERS+12
DGINQ	PTINQ+3
NOTES	COVER+2
ORDERS	MEDS+4
PLS	LABS+49
SETLINE	LABS+30, LABS+33, LABS+35, LABS+42, LABS+47, LABS+48, LABS+49, LABS+50, PLS+2, PLS+6 , PLS+9, PLS+10
XRPT	XRAYS+6, XRAYS+7

Naked Globals

Name	Field # of Occurrence
^(	LABS+18, LABS+21, LABS+24, LABS+38, CONSULTS+10, XRAYS+7, XRPT+2, XRPT+3, PTINQ+5
^("ORD"	XRPT+2
^(0	LABS+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	DGINQB+1~, DGINQB+31*
AUTHOR	NOTES+1~, SUMMRIES+1~
CASE	XRAYS+3~, XRAYS+4, XRAYS+5, XRAYS+6, XRAYS+7, XRPT+2, XRPT+3
CCNT	LABS+1~, LABS+10, LABS+27, LABS+32, LABS+34, LABS+37, LABS+41, S+8*
CMT	LABS+48~*
CNT	SETLINE~, SETLINE+1*
CONTACT	DGINQB+1~, DGINQB+58*, DGINQB+59, DGINQB+62, DGINQB+73, DGINQB+74
CPRSGUI	DGINQB+1~, DGINQB+2*, DGINQB+33!
DATE	NOTES+1~, SUMMRIES+1~
DFN	LABS+4, PTINQ+1~, PTINQ+2*, PTINQ+3, DGINQ~, DGINQB~, DGINQB+2, DGINQB+7, DGINQB+31, DGINQB+35 , DGINQB+36, DGINQB+37, DGINQB+38, DGINQB+39, DGINQB+40, DGINQB+45, DGINQB+73, DGINQB+74
DT	DGINQB+40
GMRCOER	CONSULTS+8~*
I	NOTES+1~, NOTES+3, LABS+18~, LABS+21~, LABS+24~, ORDERS+7~, ORDERS+8, CONSULTS+1~, CONSULTS+10, XRPT+1~ , XRPT+3, SUMMRIES+1~, SUMMRIES+3
>> ID	NOTES+2, MEDS+3, MEDS+4, LABS+3, ORDERS+4, ORDERS+6, ORDERS+7, ORDERS+11, ORDERS+12, CONSULTS+3* , CONSULTS+5, CONSULTS+7, CONSULTS+8, CONSULTS+9, XRAYS+1, XRAYS+2, SUMMRIES+2
IDE	LABS+1~, LABS+3, LABS+4, LABS+5, LABS+6
IG	LABS+1~, LABS+8*
INC	INC+3~*, INC+4
>> IOBOFF	LABS+45
>> IOBON	LABS+45
>> IOINHI	LABS+44, LABS+45
>> IOINORM	LABS+44, LABS+45
>> IOUOFF	LABS+36
>> IOUON	LABS+36
IVDT	LABS+1~, LABS+11*, LABS+27, LABS+29, LABS+37, LABS+48
>> LCNT	NOTES+3, LABS+9, LABS+18, LABS+21, LABS+24, LABS+30, LABS+33, LABS+35, LABS+36, LABS+42 , LABS+44, LABS+45, LABS+47, LABS+48, LABS+49, LABS+50, PLS+2, PLS+6, PLS+9, PLS+10 , ORDERS+10, CONSULTS+5, CONSULTS+7, CONSULTS+10, XRPT+2, XRPT+3, SUMMRIES+3, PTINQ+4, PTINQ+6, PTINQ+7
LINE	LABS+29, LABS+30, LABS+32, LABS+33, LABS+34, LABS+35, LABS+41, LABS+42, LABS+46, LABS+47 , LABS+48, PLS+1~, PLS+5, PLS+6, PLS+8, PLS+9, SETLINE~, SETLINE+1
NAME	LABS+1~, LABS+38*, LABS+41
>> NUM	COVER+1, CONSULTS+2
ORA	DGINQB+6~, DGINQB+12*, DGINQB+13, DGINQB+14, DGINQB+15
ORASS	DGINQB+1~, DGINQB+40*, DGINQB+48
ORATP	DGINQB+1~, DGINQB+39*, DGINQB+41, DGINQB+46
ORCY	LABS+1~, LABS+7!
ORCY(	LABS+8
ORD	XRPT+1~, XRPT+2*, DGINQB+6~
ORD("GEN"	DGINQB+15*, DGINQB+27, DGINQB+30
ORD("PRIM"	DGINQB+13*, DGINQB+17, DGINQB+20
ORD("SEC"	DGINQB+14*, DGINQB+22, DGINQB+25
ORDOC	DGINQB+1~, DGINQB+35*, DGINQB+41, DGINQB+43
ORENC	DGINQB+1~, DGINQB+31*, DGINQB+32
ORENRD	DGINQB+1~, DGINQB+31
ORENRD("PRIORITY"	DGINQB+32
ORENRD("SUBGRP"	DGINQB+31
ORENRI	DGINQB+1~, DGINQB+31*
ORESG	DGINQB+1~, DGINQB+31*, DGINQB+32
>> ORESULTS	ORDERS+1, CONSULTS+6, CONSULTS+9, XRAYS+1, XRAYS+2
ORGEN	DGINQB+6~, DGINQB+10*
ORI	PTINQ+1~, PTINQ+4, PTINQ+5
ORIFN	LABS+1~, LABS+3, LABS+7, ORDERS+3~, ORDERS+11
ORINP	DGINQB+1~, DGINQB+38*, DGINQB+41, DGINQB+47
ORMHP	DGINQB+1~, DGINQB+37*, DGINQB+41, DGINQB+49, DGINQB+51, DGINQB+52, DGINQB+53
ORPLS	PLS+1~, PLS+3, PLS+4, PLS+5, PLS+7
ORPRIM	DGINQB+6~, DGINQB+10*
ORRET	DGINQB+6~, DGINQB+7
ORRET(	DGINQB+11, DGINQB+12
ORRET(0	DGINQB+8, DGINQB+9
ORRETS	DGINQB+6~, DGINQB+10, DGINQB+11, DGINQB+12, DGINQB+13, DGINQB+14, DGINQB+15, DGINQB+19, DGINQB+20, DGINQB+24* , DGINQB+25, DGINQB+29, DGINQB+30*
ORSEC	DGINQB+6~, DGINQB+10*
ORSSTOPT	DGINQB+1~
ORSSTRT	DGINQB+1~
>> ORTAB	COVER+1, CONSULTS+2
ORTEAM	DGINQB+1~, DGINQB+36*, DGINQB+41, DGINQB+44
ORTX	CONSULTS+1~, CONSULTS+3
ORTX(1	CONSULTS+3
ORVP	MEDS+3, LABS+5, LABS+6, LABS+9, LABS+10, LABS+20, LABS+23, XRAYS+1, XRAYS+3, XRAYS+4 , XRAYS+5, XRAYS+6, XRAYS+7, XRAYS+8, XRPT+2, XRPT+3, PTINQ+2, DGINQB+1~, DGINQB+2*
ORY	NOTES+1~, NOTES+2, NOTES+3, NOTES+4, ORDERS+7~, SUMMRIES+1~, SUMMRIES+2, SUMMRIES+3, SUMMRIES+4
ORY(	ORDERS+8
PKG	COVER+1~, COVER+2, ORDERS+3~, ORDERS+4, ORDERS+5
PROC	XRAYS+3~, XRAYS+5, XRAYS+6, XRAYS+7*, XRPT+2, XRPT+3
PSET	XRAYS+3~*, XRAYS+5, XRAYS+7
PTLOC	NOTES+1~, SUMMRIES+1~
SP	S+7~*, S+8, S+9
SS	LABS+1~, LABS+10, LABS+11, LABS+12, LABS+23, LABS+26, LABS+27, LABS+37, LABS+48
SUB	LABS+1~, CONSULTS+1~, CONSULTS+8, CONSULTS+9, CONSULTS+10
SUBJ	NOTES+1~, SUMMRIES+1~
TAB	ORDERS+3~, ORDERS+5*, ORDERS+6, ORDERS+11, ORDERS+12
TCNT	LABS+1~, LABS+27*, LABS+28
TEST	LABS+1~, LABS+10*
TEST(	LABS+11, LABS+27, LABS+37, LABS+48
TST	LABS+1~, LABS+27*, LABS+37, LABS+46
U	COVER+1, MEDS+4, LABS+4, LABS+38, LABS+41, LABS+43, LABS+44, LABS+45, PLS+8, CONSULTS+2 , XRAYS+1, DGINQB+40, DGINQB+46, DGINQB+47, DGINQB+73, DGINQB+74
>> VALM("RM"	XRAYS+9*
VAOA	DGINQB+1~
VAOA("A"	DGINQB+59*
VAOA(1	DGINQB+65
VAOA(10	DGINQB+64
VAOA(11	DGINQB+71
VAOA(2	DGINQB+66
VAOA(3	DGINQB+67
VAOA(4	DGINQB+68, DGINQB+69
VAOA(5	DGINQB+70
VAOA(8	DGINQB+72
VAOA(9	DGINQB+61, DGINQB+63
X	LABS+1~, LABS+8, LABS+18, LABS+21, LABS+24, PLS+1~, PLS+7, PLS+8, CONSULTS+1~, CONSULTS+2 , CONSULTS+3, CONSULTS+4, CONSULTS+10, XRPT+1~, XRPT+3, PTINQ+1~, PTINQ+5, PTINQ+7, TRIM~, TRIM+1* , TRIM+2*, TRIM+3, S~, S+7, INC~, INC+3
XQADATA	LABS+4~*
XQORNOD	DGINQB+1~, DGINQB+2*
XT	LABS+1~, LABS+37*, LABS+38, LABS+41, LABS+43, LABS+44, LABS+45
Y	S~, S+7, INC~, INC+3
Z	S~, S+6, S+7

Marked Items

Name	Field # of Occurrence
$T(CPRS^VBECA3B	LABS+13
$T(EN^ORWLR1	LABS+13

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCXPND1

Information

Source Information

Call Graph

Call Graph Total: 34

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items