Routine: ORWPCE

Information

ORWPCE ; SLC/JM/REV - wrap calls to PCE and AICS ;Aug 28, 2023@15:52

Package	Total	Call Graph
PCE Patient Care Encounter	4	$$GETFIELD^PXAAVSIT ($$DELVFILE,$$GETENC,$$VST2APPT)^PXAPI $$SVC^PXKCO SCCOND^PXUTLSCC
Lexicon Utility	3	LOOK^LEXA CONFIG^LEXSET ($$CPCONE,$$CPTONE,$$IMPDATE,$$ONE,IMPDATE)^LEXU
Text Integration Utility	3	$$ISADDNDM^TIULC1 DOCCNT^TIUSRVLV $$VSTRBLD^TIUSRVP
CPT HCPCS Codes	2	$$CODM^ICPTCOD $$MOD^ICPTMOD
Kernel	2	$$TITLE^XLFSTR $$RES^XUDHSET
Order Entry Results Reporting	2	$$CLINUSER^ORQQPL1 ($$GETVSIT,DQSAVE)^ORWPCE1
Automated Information Collection System	1	GETLST^IBDF18A
Clinical Reminders	1	$$PRENDIAG^PXRMPDX
DRG Grouper	1	($$CODEBA,$$VLTD)^ICDEX
Problem List	1	DSELECT^GMPLENFM
Registration	1	ELIG^VADPT

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

Package	Total	Caller Graph
Order Entry Results Reporting	26	ORQQVI ORWPCE ACTPROB ORWPCE CPTMODS ORWPCE CPTREQD ORWPCE DELETE ORWPCE DIAG ORWPCE GETMOD ORWPCE GETSVC ORWPCE HASVISIT ORWPCE HF ORWPCE I10IMPDT ORWPCE ICDVER ORWPCE IMM ORWPCE LEX ORWPCE LEXCODE ORWPCE NOTEVSTR ORWPCE PED ORWPCE PROC ORWPCE SAVE ORWPCE SCDIS ORWPCE SCSEL ORWPCE SK ORWPCE TRT ORWPCE VISIT ORWPCE XAM ORWPCE3

Entry Points

Name	Comments	DBIA/ICR reference
VISIT(LST,CLINIC,ORDATE)	; get list of visit types for clinic
PROC(LST,CLINIC,ORDATE)	; get list of procedures for clinic P12 for CPTMods
CPTMODS(LST,ORCPTCOD,ORDATE)	;Return CPT Modifiers for a CPT Code
GETMOD(MODINFO,ORMODIEN,ORDATE)	;Returns info for a specific CPT Modifier
DIAG(LIST,CLINIC,ORDATE,ORDFN)	; get list of diagnoses for clinic AND prior encounter diagnoses if ORDFN passed
IMM(LST,CLINIC)	;get list of immunizations for clinic
SK(LST,CLINIC)	;get list of skin test for clinic
HF(LST,CLINIC)	;get list of health factors for clinic
PED(LST,CLINIC)	;get list of education topices for clinic
TRT(LST,CLINIC)	;get list of treatments for clinic
XAM(LST,CLINIC)	;get list of exams for clinic
ACTPROB(GLST,DFN,ORDATE)	;get list of patient's active problems
SCSEL(VAL,DFN,ATM,LOC,VST)	; return SC conditions that may be selected ; VAL=SCallow^SCdflt;AOallow^AOdflt;IRallow^IRdflt;ECallow^ECdflt; ; MSTallow^MSTdflt;HNCallow^HNCdflt;CVAllow^CVDflt;SHADAllow^SHADDflt
SCDIS(LST,DFN)	; Return service connected % and rated disabilities
CPTREQD(VAL,IEN)	; return 1 in VAL if note still needs a CPT code
NOTEVSTR(VAL,IEN)	; return the VSTR^AUTHOR for a note
HASVISIT(ORY,IEN,DFN,ORLOC,ORDTE)	;Has visit or is stand alone
DELETE(VAL,VSTR,DFN,VISIT)	; delete PCE info when deleting a note ; VSTR = Visit String ; DFN = Patient IEN (#2) ; VISIT = Visit IEN (#9000010)
SAVE(RESULT,PCELIST,NOTEIEN,ORLOC)	; save PCE information
LEX(LST,X,APP,ORDATE)	; return list after lexicon lookup
LEXX
LEXCODE(VAL,IEN,APP,ORDATE)
ADDRES	; Add the ORW/PXAPI RESOURCE device
GETSVC(NEWSVC,SVC,LOC,INP)	; Returns the correct Service Connected Category
ICDVER(RESULT,ORDT)	; Get ICD codeset version (i.e., ICD-9-CM or ICD-10-CM)
ICDVERX
I10IMPDT(RESULT)	; Get ICD-10 Implementation Date
I10IMPX

External References

Name	Field # of Occurrence
DSELECT^GMPLENFM	ACTPROB+5
GETLST^IBDF18A	VISIT+2, PROC+2, DIAG+8, IMM+1, SK+1, HF+1, PED+1, TRT+1, XAM+1
$$CODEBA^ICDEX	DIAG+11
$$VLTD^ICDEX	DIAG+11
$$CODM^ICPTCOD	CPTMODS+3
$$MOD^ICPTMOD	GETMOD+3
LOOK^LEXA	LEX+12
CONFIG^LEXSET	LEX+6
$$CPCONE^LEXU	LEXCODE+5
$$CPTONE^LEXU	LEXCODE+4
$$IMPDATE^LEXU	ACTPROB+4, LEX+2, ICDVER+4, I10IMPDT+3
$$ONE^LEXU	LEXCODE+3
IMPDATE^LEXU	ICDVER+3, I10IMPDT+2
$$CLINUSER^ORQQPL1	SAVE+5
$$GETVSIT^ORWPCE1	DELETE+15
DQSAVE^ORWPCE1	SAVE+14
$$GETFIELD^PXAAVSIT	DELETE+18
$$DELVFILE^PXAPI	DELETE+24
$$GETENC^PXAPI	HASVISIT+4
$$VST2APPT^PXAPI	HASVISIT+5
$$SVC^PXKCO	GETSVC+5
$$PRENDIAG^PXRMPDX	DIAG+6
SCCOND^PXUTLSCC	SCSEL+4
$$ISADDNDM^TIULC1	NOTEVSTR+2
DOCCNT^TIUSRVLV	DELETE+21
$$VSTRBLD^TIUSRVP	NOTEVSTR+7
ELIG^VADPT	SCDIS+2
$$TITLE^XLFSTR	DIAG+7
$$RES^XUDHSET	ADDRES+2

Used in RPC

RPC Name	Call Tags
ORWPCE DIAG	DIAG
ORWPCE PROC	PROC
ORWPCE VISIT	VISIT
ORWPCE SCDIS	SCDIS
ORWPCE SCSEL	SCSEL
ORWPCE SAVE	SAVE
ORWPCE CPTREQD	CPTREQD
ORWPCE NOTEVSTR	NOTEVSTR
ORWPCE DELETE	DELETE
ORWPCE LEX	LEX
ORWPCE LEXCODE	LEXCODE
ORWPCE IMM	IMM
ORWPCE SK	SK
ORWPCE PED	PED
ORWPCE HF	HF
ORWPCE TRT	TRT
ORWPCE XAM	XAM
ORWPCE ACTPROB	ACTPROB
ORWPCE HASVISIT	HASVISIT
ORWPCE CPTMODS	CPTMODS
ORWPCE GETMOD	GETMOD
ORWPCE GETSVC	GETSVC
ORWPCE ICDVER	ICDVER
ORWPCE I10IMPDT	I10IMPDT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(391 - [#391]	SCDIS+4
^DIC(31 - [#31]	SCDIS+6
^DPT - [#2]	SCDIS+5
^SC - [#44]	GETSVC+2
^TIU(8925 - [#8925]	CPTREQD+1, NOTEVSTR+3, NOTEVSTR+6, NOTEVSTR+9, NOTEVSTR+10, HASVISIT+3
^TMP("IB"	ACTPROB+2!, ACTPROB+8, ACTPROB+9!, ACTPROB+10, ACTPROB+16, ACTPROB+17!, ACTPROB+18, ACTPROB+19
^TMP("LEXFND"	LEX+17, LEX+18, LEX+19, LEXX!
^TMP("LEXHIT"	LEXX!
^TMP("LEXLE"	LEXX!
^TMP("LEXSCH"	LEX+9, LEX+11, LEXX!
^TMP("ORWPCE"	SAVE+3!, SAVE+4*

Label References

Name	Line Occurrences
I10IMPX	I10IMPDT+2
ICDVERX	ICDVER+3
LEXX	LEX+13

Naked Globals

Name	Field # of Occurrence
^(	SCDIS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APP	LEX~, LEX+3, LEX+5, LEX+6, LEX+7, LEX+12, LEX+14, LEXCODE~, LEXCODE+3, LEXCODE+4 , LEXCODE+5
ATM	SCSEL~, SCSEL+4
CLINIC	VISIT~, VISIT+2, PROC~, PROC+2, DIAG~, DIAG+8, IMM~, IMM+1, SK~, SK+1 , HF~, HF+1, PED~, PED+1, TRT~, TRT+1, XAM~, XAM+1
CODE	DIAG+3~
CODEIEN	DIAG+3~
CODES	PROC+3~, PROC+6, PROC+9, PROC+10*, PROC+12
DATE	DIAG+3~
DFN	ACTPROB~, SCSEL~, SCSEL+4, SCDIS~, SCDIS+5, HASVISIT~, HASVISIT+4, DELETE~, DELETE+10, DELETE+15
DIAGINC	ACTPROB+1~
DIS	SCDIS+1~, SCDIS+6*, SCDIS+8
DSS	GETSVC+1~, GETSVC+2*, GETSVC+3, GETSVC+5
DT	VISIT+1, PROC+1, CPTMODS+2, GETMOD+2, DIAG+1, DIAG+11, ACTPROB+3, LEX+4, LEXCODE+2, ICDVER+1
DUZ	SAVE+5
FIRST	PROC+3~, PROC+6, PROC+8, PROC+12
GLST	ACTPROB~, ACTPROB+19*
GMPINDT	ACTPROB+1~, ACTPROB+4*
GMPLUSER	SAVE+1~, SAVE+5*, SAVE+14
HEADER	SAVE+1~, SAVE+12*
I	SCDIS+1~, SCDIS+5, LEX+1~, LEX+16, LEX+17*, LEX+18, LEX+19
IDX	PROC+3~, PROC+4, PROC+5, PROC+7, PROC+10, PROC+11, PROC+12
IEN	CPTREQD~, CPTREQD+1, NOTEVSTR~, NOTEVSTR+2, NOTEVSTR+3, NOTEVSTR+5, NOTEVSTR+6, NOTEVSTR+9, NOTEVSTR+10, HASVISIT~ , HASVISIT+3, LEX+1~, LEX+16, LEX+18, LEX+19, LEXCODE~, LEXCODE+3, LEXCODE+4, LEXCODE+5
ILST	SCDIS+1~, SCDIS+5, SCDIS+8, SCDIS+9, LEX+1~, LEX+15, LEX+19
INP	GETSVC~, GETSVC+5
ISADD	NOTEVSTR+1~, NOTEVSTR+2*, NOTEVSTR+4, NOTEVSTR+9
J	DIAG+3~
LEX	LEX+1~
LEX("LIST"	LEX+13, LEX+15
LIST	DIAG~, DIAG+6
LIST(	DIAG+12*
LIST(""	DIAG+13
LIST(0	DIAG+6, DIAG+10, DIAG+12, DIAG+13*
LIST(1	DIAG+7*
LOC	SCSEL~, SCSEL+4, GETSVC~, GETSVC+2, GETSVC+5
LST	VISIT~, PROC~, CPTMODS~, DIAG+3~, IMM~, SK~, HF~, PED~, TRT~, XAM~ , SCDIS~, LEX~
LST(	PROC+4, PROC+5!, PROC+7, PROC+10, PROC+11!, PROC+12, CPTMODS+7, DIAG+9, DIAG+11, DIAG+12 , SCDIS+8, LEX+19*
LST(1	SCDIS+3, LEX+14, LEX+15*
LST(2	SCDIS+4, SCDIS+9
MOD	PROC+3~, PROC+6, PROC+7, PROC+10
MODINFO	GETMOD~, GETMOD+4*
MODNAME	CPTMODS+1~, CPTMODS+6*, CPTMODS+7
NEWSVC	GETSVC~, GETSVC+5*
NOTEIEN	SAVE~, SAVE+5*, SAVE+14
ORCNT	DIAG+3~, DIAG+9*, DIAG+11, DIAG+12
ORCOD	ACTPROB+1~
ORCODSYS	ACTPROB+1~
ORCOUNT	DELETE+8~, DELETE+21, DELETE+22
ORCPTCOD	CPTMODS~, CPTMODS+3
ORDATA	GETMOD+1~, GETMOD+3*, GETMOD+4, ACTPROB+1~
ORDATE	VISIT~, VISIT+1, VISIT+2, PROC~, PROC+1, PROC+2, CPTMODS~, CPTMODS+2, CPTMODS+3, GETMOD~ , GETMOD+2, GETMOD+3, DIAG~, DIAG+1, DIAG+6, DIAG+8, ACTPROB~, ACTPROB+3, ACTPROB+4, ACTPROB+9 , LEX~, LEX+4, LEX+5, LEX+6, LEX+12, LEXCODE~, LEXCODE+2, LEXCODE+3, LEXCODE+4, LEXCODE+5
ORDFN	DIAG~, DIAG+5, DIAG+6
ORDT	ACTPROB+1~, ICDVER~, ICDVER+1*, ICDVER+4
ORDTE	HASVISIT~, HASVISIT+4
ORI	CPTMODS+1~, CPTMODS+4, CPTMODS+6, CPTMODS+7
ORIDX	CPTMODS+1~, CPTMODS+4, CPTMODS+5, CPTMODS+6, CPTMODS+7
ORIMPDT	ACTPROB+1~, ACTPROB+4, ACTPROB+9, LEX+1~, LEX+2, LEX+5
ORLOC	HASVISIT~, HASVISIT+4, SAVE~, SAVE+14
ORM	CPTMODS+1~, CPTMODS+3
ORM(	CPTMODS+5, CPTMODS+6, CPTMODS+7
ORMODIEN	GETMOD~, GETMOD+3, GETMOD+4
ORPRCNT	ACTPROB+1~, ACTPROB+6, ACTPROB+15, ACTPROB+18
ORPROB	ACTPROB+1~, ACTPROB+10, ACTPROB+11, ACTPROB+12*, ACTPROB+13, ACTPROB+14, ACTPROB+16
ORPROB(	ACTPROB+13, ACTPROB+14*
ORPROBIX	ACTPROB+1~, ACTPROB+7, ACTPROB+8, ACTPROB+9, ACTPROB+10, ACTPROB+16, ACTPROB+17
ORTRY	ACTPROB+1~
ORTXT	ACTPROB+1~
ORTXT1	ACTPROB+1~
ORVISIT	HASVISIT+1~, HASVISIT+3, HASVISIT+4, HASVISIT+5
ORVISITLIST	DELETE+8~
ORWSVC	GETSVC+1~, GETSVC+4*, GETSVC+5
ORX	SCSEL+3~, SCSEL+4
ORX("AO"	SCSEL+5
ORX("CV"	SCSEL+5
ORX("EC"	SCSEL+5
ORX("HNC"	SCSEL+5
ORX("IR"	SCSEL+5
ORX("MST"	SCSEL+5
ORX("SC"	SCSEL+5
ORX("SHAD"	SCSEL+5
ORY	HASVISIT~, HASVISIT+2, HASVISIT+5
PCELIST	SAVE~, SAVE+4, SAVE+14
PCELIST(1	SAVE+3
QTLTXT	ACTPROB+1~
RESULT	SAVE~, SAVE+14, ICDVER~, ICDVER+2, ICDVER+4, I10IMPDT~, I10IMPDT+1, I10IMPDT+3
S	SCSEL+3~*, SCSEL+5
SC	SCDIS+1~, SCDIS+7*, SCDIS+8
SCD	ACTPROB+1~
SVC	GETSVC~, GETSVC+4
TIEN	NOTEVSTR+1~, NOTEVSTR+4*, NOTEVSTR+9
U	PROC+12, CPTMODS+6, CPTMODS+7, GETMOD+4, DIAG+11, ACTPROB+11, SCDIS+3, SCDIS+4, SCDIS+6, SCDIS+7 , SCDIS+8, CPTREQD+1, NOTEVSTR+4, NOTEVSTR+6, NOTEVSTR+10, NOTEVSTR+11, HASVISIT+3, SAVE+3, LEX+19, LEXCODE+3 , LEXCODE+4, LEXCODE+5, GETSVC+2
VAEL	SCDIS+1~
VAEL(3	SCDIS+3
VAEL(4	SCDIS+4
VAEL(6	SCDIS+4
VAERR	SCDIS+1~
VAL	SCSEL~, SCSEL+5, CPTREQD~, CPTREQD+1, NOTEVSTR~, NOTEVSTR+5, NOTEVSTR+7, NOTEVSTR+10, NOTEVSTR+11, DELETE~ , DELETE+9, DELETE+24, LEXCODE~, LEXCODE+1, LEXCODE+3, LEXCODE+4, LEXCODE+5
VISIT	NOTEVSTR+1~, NOTEVSTR+6, NOTEVSTR+7, NOTEVSTR+8, DELETE~, DELETE+10, DELETE+13, DELETE+15, DELETE+16, DELETE+18 , DELETE+21, DELETE+24
VISITIEN	DIAG+3~
VST	SCSEL~, SCSEL+4
VSTR	DELETE~, DELETE+10, DELETE+15, SAVE+1~, SAVE+3*, SAVE+4
X	SCDIS+1~, SCDIS+5, SCDIS+6, SCDIS+7, SCDIS+8, LEX~, LEX+12, ADDRES+1~, ADDRES+2
X0	NOTEVSTR+1~, NOTEVSTR+3, NOTEVSTR+4, NOTEVSTR+10
X12	NOTEVSTR+1~, NOTEVSTR+6, NOTEVSTR+9, NOTEVSTR+10, NOTEVSTR+11
ZTDESC	SAVE+2~
ZTDTH	SAVE+2~
ZTIO	SAVE+2~
ZTRTN	SAVE+2~
ZTSAVE	SAVE+2~
ZTSK	SAVE+2~
ZTSYNC	SAVE+2~

Marked Items

Name	Field # of Occurrence
$T(IMPDATE^LEXU	ICDVER+3, I10IMPDT+2

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWPCE

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 26

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items