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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ORCXPND1

Package: Order Entry Results Reporting

Routine: ORCXPND1


Information

ORCXPND1 ; SLC/MKB - Expanded Display cont ;Jul 30, 2019@14:21:22

Source Information

Source file <ORCXPND1.m>

Call Graph

Call Graph Total: 33

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 7 ($$FINDCUR,$$GET)^DGENA  ($$CATEGORY,$$EXTCAT)^DGENA4  $$EXT^DGENU  DISP^DGIBDSP  EN^DGRPD  DIS^DGRPDB  (KVAR,OAD)^VADPT  
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:

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: 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+4
$$GET^DGENA DGINQB+4
$$CATEGORY^DGENA4 DGINQB+4
$$EXTCAT^DGENA4 DGINQB+5
$$EXT^DGENU DGINQB+4
DISP^DGIBDSP DGINQB+28
EN^DGRPD DGINQB+3
DIS^DGRPDB DGINQB+30
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+42, LABS+43
ALLERGY^ORCXPND2 COVER+2
ORDERS^ORCXPND2 ORDERS+1
AP^ORCXPND3 LABS+3
PL^ORCXPND4 PROBLEMS+1
EN^ORCXPNDR REPORTS+1
TEXT^ORQ12 LABS+7, ORDERS+7, CONSULTS+3
EN^ORWLR1 LABS+13
$$INPT^ORWPT1 DGINQB+18
START^ORWRP DGINQ+1
OEL^PSOORRL MEDS+3
EN3^RAO7PC3 XRAYS+1
EN30^RAO7PC3 XRAYS+2
$$START^SCMCMHTC DGINQB+10
$$OUTPTAP^SDUTL3 DGINQB+13
$$OUTPTPR^SDUTL3 DGINQB+8
$$OUTPTTM^SDUTL3 DGINQB+9
RPC^TIUSRV NOTES+2, SUMMRIES+2
KVAR^VADPT DGINQB+48
OAD^VADPT DGINQB+33
CPRS^VBECA3B LABS+13
EN^VBECRPT LABS+16
$$FMTE^XLFDT LABS+29
$$LJ^XLFSTR PLS+5
$$REPEAT^XLFSTR PLS+8
$$GET^XPAR LABS+13
$$NAME^XUAF4 PLS+5
$$PADD^XUAF4 PLS+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Enrollment Priority: ",$S($G(ORENRD("PRIORITY"))]"":"GROUP "_$G(ORENRD("PRIORITY")),1:"")_ORESG,?40,"Category: ",$$EXTCAT^DGENA4(ORENC),!!
  • Line Location: DGINQB+5
Function Call: WRITE
  • Prompt: !!,"Primary Care Information:"
  • Line Location: DGINQB+15
Function Call: WRITE
  • Prompt: !,"Primary Practitioner: ",$P(ORDOC,"^",2)
  • Line Location: DGINQB+16
Function Call: WRITE
  • Prompt: !,"Primary Care Team: ",$P(ORTEAM,"^",2)
  • Line Location: DGINQB+17
Function Call: WRITE
  • Prompt: !,"Attending Physician: ",$P($G(^VA(200,+ORATP,0)),U)
  • Line Location: DGINQB+19
Function Call: WRITE
  • Prompt: !,"Inpatient Provider: ",$P($G(^VA(200,+ORINP,0)),U)
  • Line Location: DGINQB+20
Function Call: WRITE
  • Prompt: !,"Associate Provider: ",ORASS
  • Line Location: DGINQB+21
Function Call: WRITE
  • Prompt: !!,"MH Treatment Information:"
  • Line Location: DGINQB+23
Function Call: WRITE
  • Prompt: !,"MH Treatment Coord: ",$E($P(ORMHP,"^",2),1,28)
  • Line Location: DGINQB+24
Function Call: WRITE
  • Prompt: ?52,"Position: ",$E($P(ORMHP,"^",3),1,18)
  • Line Location: DGINQB+25
Function Call: WRITE
  • Prompt: !,"MH Treatment Team: ",$E($P(ORMHP,"^",5),1,56)
  • Line Location: DGINQB+26
Function Call: WRITE
  • Prompt: !!,"Health Insurance Information:"
  • Line Location: DGINQB+27
Function Call: WRITE
  • Prompt: !!,"Service Connection/Rated Disabilities:"
  • Line Location: DGINQB+29
Function Call: WRITE
  • Prompt: !!,$S(CONTACT="N":"Next of Kin Information:",1:"Secondary Next of Kin Information:")
  • Line Location: DGINQB+35
Function Call: WRITE
  • Prompt: !,"Name: ",VAOA(9)
  • Line Location: DGINQB+36
Function Call: WRITE
  • Prompt: " (",VAOA(10),")"
  • Line Location: DGINQB+37
Function Call: WRITE
  • Prompt: !?7,VAOA(1)
  • Line Location: DGINQB+38
Function Call: WRITE
  • Prompt: !?7,VAOA(2)
  • Line Location: DGINQB+39
Function Call: WRITE
  • Prompt: !?7,VAOA(3)
  • Line Location: DGINQB+40
Function Call: WRITE
  • Prompt: !?7,VAOA(4)
  • Line Location: DGINQB+42
Function Call: WRITE
  • Prompt: ", "_$P(VAOA(5),"^",2)
  • Line Location: DGINQB+43
Function Call: WRITE
  • Prompt: " ",$P(VAOA(11),"^",2)
  • Line Location: DGINQB+44
Function Call: WRITE
  • Prompt: !!?7,"Phone number: ",VAOA(8)
  • Line Location: DGINQB+45
Function Call: WRITE
  • Prompt: !?7,"Work phone number: ",$P(^DPT(DFN,.21),U,11)
  • Line Location: DGINQB+46
Function Call: WRITE
  • Prompt: !?7,"Work phone number: ",$P(^DPT(DFN,.211),U,11)
  • Line Location: DGINQB+47

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DGINQB+11, DGINQB+12, DGINQB+46, DGINQB+47
^LAB(60 - [#60] LABS+38
^OR(100 - [#100] LABS+4, 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+49!
^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+41*, LABS+47, 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+19, DGINQB+20

Label References

Name Line Occurrences
$$INC S+8
$$S LABS+32, LABS+34, LABS+39
@( ORDERS+11, ORDERS+12
DGINQ PTINQ+3
NOTES COVER+2
ORDERS MEDS+4
PLS LABS+47
SETLINE LABS+30, LABS+33, LABS+35, LABS+40, LABS+45, LABS+46, LABS+47, LABS+48, 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+4*
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+39, S+8*
CMT LABS+46~*
CNT SETLINE~, SETLINE+1*
CONTACT DGINQB+1~, DGINQB+31*, DGINQB+32, DGINQB+35, DGINQB+46, DGINQB+47
CPRSGUI DGINQB+1~, DGINQB+2*, DGINQB+6!
DATE NOTES+1~, SUMMRIES+1~
DFN LABS+16, PTINQ+1~, PTINQ+2*, PTINQ+3, DGINQ~, DGINQB~, DGINQB+2, DGINQB+4, DGINQB+8, DGINQB+9
, DGINQB+10, DGINQB+11, DGINQB+12, DGINQB+13, DGINQB+18, DGINQB+46, DGINQB+47
DT DGINQB+13
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, LABS+4, 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+4*, LABS+5, LABS+6*
IG LABS+1~, LABS+8*
INC INC+3~*, INC+4
>> IOBOFF LABS+43
>> IOBON LABS+43
>> IOINHI LABS+42, LABS+43
>> IOINORM LABS+42, LABS+43
>> IOUOFF LABS+36
>> IOUON LABS+36
IVDT LABS+1~, LABS+11*, LABS+27, LABS+29, LABS+37, LABS+46
>> LCNT NOTES+3*, LABS+9*, LABS+18*, LABS+21*, LABS+24*, LABS+30, LABS+33, LABS+35, LABS+36, LABS+40
LABS+42, LABS+43, LABS+45, LABS+46, LABS+47, LABS+48, 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+39*, LABS+40, LABS+44*, LABS+45
LABS+46*, PLS+1~, PLS+5*, PLS+6, PLS+8*, PLS+9, SETLINE~, SETLINE+1
NAME LABS+1~, LABS+38*, LABS+39
>> NUM COVER+1, CONSULTS+2
ORASS DGINQB+1~, DGINQB+13*, DGINQB+21
ORATP DGINQB+1~, DGINQB+12*, DGINQB+14, DGINQB+19
ORCY LABS+1~, LABS+7!
ORCY( LABS+8
ORD XRPT+1~, XRPT+2*
ORDOC DGINQB+1~, DGINQB+8*, DGINQB+14, DGINQB+16
ORENC DGINQB+1~, DGINQB+4*, DGINQB+5
ORENRD DGINQB+1~, DGINQB+4
ORENRD("PRIORITY" DGINQB+5
ORENRD("SUBGRP" DGINQB+4
ORENRI DGINQB+1~, DGINQB+4*
ORESG DGINQB+1~, DGINQB+4*, DGINQB+5
>> ORESULTS ORDERS+1, CONSULTS+6, CONSULTS+9, XRAYS+1, XRAYS+2
ORI PTINQ+1~, PTINQ+4*, PTINQ+5*
ORIFN LABS+1~, LABS+4*, LABS+7, ORDERS+3~, ORDERS+11*
ORINP DGINQB+1~, DGINQB+11*, DGINQB+14, DGINQB+20
ORMHP DGINQB+1~, DGINQB+10*, DGINQB+14, DGINQB+22, DGINQB+24, DGINQB+25, DGINQB+26
ORPLS PLS+1~, PLS+3*, PLS+4*, PLS+5, PLS+7
ORSSTOPT DGINQB+1~
ORSSTRT DGINQB+1~
>> ORTAB COVER+1, CONSULTS+2
ORTEAM DGINQB+1~, DGINQB+9*, DGINQB+14, DGINQB+17
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+46
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+46
TST LABS+1~, LABS+27*, LABS+37, LABS+44
U COVER+1, MEDS+4, LABS+38, LABS+39, LABS+41, LABS+42, LABS+43, PLS+8, CONSULTS+2, XRAYS+1
, DGINQB+13, DGINQB+19, DGINQB+20, DGINQB+46, DGINQB+47
>> VALM("RM" XRAYS+9*
VAOA DGINQB+1~
VAOA("A" DGINQB+32*
VAOA(1 DGINQB+38
VAOA(10 DGINQB+37
VAOA(11 DGINQB+44
VAOA(2 DGINQB+39
VAOA(3 DGINQB+40
VAOA(4 DGINQB+41, DGINQB+42
VAOA(5 DGINQB+43
VAOA(8 DGINQB+45
VAOA(9 DGINQB+34, DGINQB+36
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
XQORNOD DGINQB+1~, DGINQB+2*
XT LABS+1~, LABS+37*, LABS+38, LABS+39, LABS+41, LABS+42, LABS+43
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All