Routine: ORQQPL1

Package	Total	Call Graph
Problem List	5	GETFLDS^GMPLEDT3 (EN,NEW)^GMPLSAVE UPDATE^GMPLUTL $$DUPL^GMPLX ($$SERVICE,$$VIEW,VADPT)^GMPLX1
Lexicon Utility	4	LOOK^LEXA CONFIG^LEXSET $$GETASSN^LEXTRAN1 ($$IMPDATE,$$ONE)^LEXU
DRG Grouper	2	($$CODECS,$$SAB,$$STATCHK)^ICDEX $$ICDDATA^ICDXCODE
VA FileMan	2	LIST^DIC $$GET1^DIQ
CPT HCPCS Codes	1	$$CODEN^ICPTCOD
Registration	1	DEM^VADPT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	14	ORQQPL ADD SAVE ORQQPL CHECK DUP ORQQPL CLIN SRCH ORQQPL EDIT LOAD ORQQPL EDIT SAVE ORQQPL INIT PT ORQQPL INIT USER ORQQPL PROBLEM LEX SEARCH ORQQPL PROVIDER LIST ORQQPL SRVC SRCH ORQQPL UPDATE ORQQPL4 ORWPCE ORWPCE4

Entry Points

Name	Comments	DBIA/ICR reference
LEXSRCH(LIST,FROM,N,VIEW,ORDATE)	; Get candidate Problems from LEX file
SORT(LEX)	; Sort terms alphabetically
ICDREC(COD)	;
CPTREC(COD)	;
EDLOAD(RETURN,DA)	; LOAD EDIT ARRAYS ; DA=problem IFN
LOADFLDS(RETURN,NAM,TYP,I)	; LOAD FIELDS FOR TYPE OF ARRAY
EDSAVE(RETURN,GMPIFN,GMPROV,GMPVAMC,UT,EDARRAY,GMPSRCH)	; SAVE EDITED RES ; RETURN - boolean, 1 success, 0 failure ; EDARRAY - array used for indirect sets of GMPORIG() and GMPFLDS()
UPDATE(ORRETURN,UPDARRAY)	; UPDATE A PROBLEM RECORD ; Does essentially same job as EDSAVE above, however does not handle edits to comments ; or addition of multiple comments. ; Use initially just for status updates.
ADDSAVE(RETURN,GMPDFN,GMPROV,GMPVAMC,ADDARRAY,GMPSRCH)	; SAVE NEW RECORD ; RETURN - Problem IFN if success, 0 otherwise ; ADDARRAY - array used for indirect sets of GMPFLDS()
INITUSER(RETURN,ORDUZ)	; INITIALIZE FOR NEW USER ; taken from INIT^GMPLMGR ; leave GMPLUSER on symbol table - is evaluated in EDITSAVE
CLINUSER(ORDUZ)	;is this a clinical user?
INITPT(RETURN,DFN)	; GET PATIENT PARAMETERS
PROVSRCH(LST,FLAG,N,FROM,PART)	; Get candidate Rroviders from person file
CLINSRCH(Y,X)	; Get LIST OF CLINICS ; Note: This comes from CLIN^ORQPTQ2, where it was commented out in place of ; a call to ^XPAR. I would have just used CLIN^ORQPTQ2, but it didn't work - at ; least on SLC OEX directory. ; X has no purpose other than to satisfy apparent rpc and tcallv requirement for args
SRVCSRCH(Y,FROM,DIR,ALL)	; GET LIST OF SERVICES
DUP(Y,DFN,TERM,TEXT)	;Check for duplicate problem
GETDX(ORCODE,ORSYS,ORIDT)	; Get ICD associated with SNOMED CT or VHAT Code
GETDXX
TEST	; test invocation

Name	Field # of Occurrence
LIST^DIC	PROVSRCH+5
$$GET1^DIQ	LOADFLDS+11
GETFLDS^GMPLEDT3	EDLOAD+3
EN^GMPLSAVE	EDSAVE+32
NEW^GMPLSAVE	ADDSAVE+32
UPDATE^GMPLUTL	UPDATE+27
$$DUPL^GMPLX	DUP+1
$$SERVICE^GMPLX1	INITUSER+20, INITUSER+34
$$VIEW^GMPLX1	INITUSER+10
VADPT^GMPLX1	INITPT+7
$$CODECS^ICDEX	ICDREC+4
$$SAB^ICDEX	ICDREC+4
$$STATCHK^ICDEX	GETDX+20
$$ICDDATA^ICDXCODE	LEXSRCH+24, LEXSRCH+33, LEXSRCH+40, LEXSRCH+47, ICDREC+5
$$CODEN^ICPTCOD	CPTREC+2
LOOK^LEXA	LEXSRCH+7
CONFIG^LEXSET	LEXSRCH+6
$$GETASSN^LEXTRAN1	GETDX+7, GETDX+11
$$IMPDATE^LEXU	LEXSRCH+2, GETDX+3
$$ONE^LEXU	LEXSRCH+22, LEXSRCH+31
DEM^VADPT	INITPT+5
$$GET^XPAR	INITUSER+7, INITUSER+35

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LIST(I) Line Location: TEST+3
Routine Call	DIC Line Location: PROVSRCH+5

RPC Name	Call Tags
ORQQPL PROBLEM LEX SEARCH	LEXSRCH
ORQQPL EDIT LOAD	EDLOAD
ORQQPL INIT PT	INITPT
ORQQPL PROVIDER LIST	PROVSRCH
ORQQPL EDIT SAVE	EDSAVE
ORQQPL CLIN SRCH	CLINSRCH
ORQQPL ADD SAVE	ADDSAVE
ORQQPL INIT USER	INITUSER
ORQQPL UPDATE	UPDATE
ORQQPL SRVC SRCH	SRVCSRCH
ORQQPL CHECK DUP	DUP

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ, LIST^DIC

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	EDSAVE+29, EDSAVE+35, DUP+2, DUP+3
^AUPNPROB(0	ADDSAVE+9, ADDSAVE+22, ADDSAVE+26, ADDSAVE+36
^DIC(49 - [#49]	SRVCSRCH+2, SRVCSRCH+3
^GMPL(125.99 - [#125.99]	INITUSER+8
^SC - [#44]	CLINSRCH+9
^SC("B"	CLINSRCH+8
^TMP("LEXSCH"	LEXSRCH+62!
^VA(200 - [#200]	INITUSER+17, INITUSER+18, PROVSRCH+9
^XUSEC("ORELSE"	CLINUSER+4
^XUSEC("ORES"	CLINUSER+3
^XUSEC("PROVIDER"	CLINUSER+5

Name	Line Occurrences
$$CLINUSER	INITUSER+6
GETDXX	GETDX+14
LEXSRCH	TEST+2
LOADFLDS	EDLOAD+5, EDLOAD+6

Name	Field # of Occurrence
^(	CLINSRCH+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDARRAY	ADDSAVE~
ADDARRAY(	ADDSAVE+13, ADDSAVE+17, ADDSAVE+18, ADDSAVE+19
ALL	SRVCSRCH~, SRVCSRCH+3
CIEN	LEXSRCH+1~, LEXSRCH+11, LEXSRCH+16, LEXSRCH+24, LEXSRCH+33, LEXSRCH+40, LEXSRCH+47, LEXSRCH+58
CNT	SRVCSRCH+1~*, SRVCSRCH+2
COD	LEXSRCH+1~, LEXSRCH+11, LEXSRCH+15, LEXSRCH+20, LEXSRCH+21, LEXSRCH+23, LEXSRCH+29, LEXSRCH+30, LEXSRCH+32, LEXSRCH+38* , LEXSRCH+39, LEXSRCH+40, LEXSRCH+45, LEXSRCH+46, LEXSRCH+47, LEXSRCH+58, ICDREC~, ICDREC+2, ICDREC+3, ICDREC+4 , ICDREC+5, CPTREC~, CPTREC+1, CPTREC+2
CODIEN	ICDREC+1~, ICDREC+5*, ICDREC+6
CTXT	INITUSER+4~, INITUSER+7*, INITUSER+15, INITUSER+16, INITUSER+33
CVP	LOADFLDS+1~, LOADFLDS+8*, LOADFLDS+10, LOADFLDS+12
DA	EDLOAD~, EDLOAD+3, ADDSAVE+4~, ADDSAVE+34
DFN	INITPT~, INITPT+1, INITPT+7, DUP~, DUP+1
DIR	SRVCSRCH~, SRVCSRCH+2
DT	LEXSRCH+3, ICDREC+4, ICDREC+5, GETDX+2, TEST+2
DUZ	INITUSER+5
DUZ(2	INITPT+4
EDARRAY	EDSAVE~
EDARRAY(	EDSAVE+12, EDSAVE+16, EDSAVE+17, EDSAVE+18
FLAG	PROVSRCH~, PROVSRCH+4*, PROVSRCH+5
FROM	LEXSRCH~, LEXSRCH+7, PROVSRCH~, PROVSRCH+4, PROVSRCH+5, SRVCSRCH~, SRVCSRCH+2, SRVCSRCH+3, SRVCSRCH+4
GMPAGTOR	INITPT+2~, INITPT+9
GMPCV	INITPT+2~, INITPT+15
GMPDFN	ADDSAVE~
GMPFLD	EDLOAD+2~, EDLOAD+7!, EDSAVE+4~, EDSAVE+33!, ADDSAVE+4~
GMPFLD(10	EDSAVE+28
GMPGULF	INITPT+2~, INITPT+11
GMPHNC	INITPT+2~, INITPT+13
GMPIFN	EDSAVE~, EDSAVE+29, EDSAVE+35
GMPION	INITPT+2~, INITPT+10
GMPL	EDLOAD+2~, EDLOAD+7!, UPDATE+5~
GMPLPROV	INITUSER+4~, INITUSER+16*, INITUSER+17, INITUSER+18
GMPLUSER	EDSAVE+4~, EDSAVE+9, INITUSER+6, INITUSER+9
GMPLVIEW	INITUSER+36!
GMPLVIEW("CLIN"	INITUSER+28*, INITUSER+31
GMPLVIEW("SERV"	INITUSER+29*, INITUSER+30
GMPMST	INITPT+2~, INITPT+14
GMPORIG	EDLOAD+2~, EDLOAD+7!, EDSAVE+4~, EDSAVE+33!, UPDATE+5~, ADDSAVE+4~
GMPROV	EDSAVE~, ADDSAVE~
GMPSC	INITPT+2~, INITPT+8
GMPSHD	INITPT+2~, INITPT+16
GMPSRCH	EDSAVE~, EDSAVE+7, ADDSAVE~, ADDSAVE+7
GMPVAMC	EDSAVE~, ADDSAVE~
I	EDLOAD+2~, EDLOAD+4, EDLOAD+5, EDLOAD+6, LOADFLDS~, LOADFLDS+4, LOADFLDS+5, LOADFLDS+12, LOADFLDS+13, LOADFLDS+16 , LOADFLDS+17, CLINSRCH+5~, CLINSRCH+6, CLINSRCH+9, SRVCSRCH+1~, SRVCSRCH+2, SRVCSRCH+4, TEST+1~, TEST+3
ICDCODE	LEXSRCH+1~, LEXSRCH+11, LEXSRCH+22, LEXSRCH+23, LEXSRCH+24, LEXSRCH+31, LEXSRCH+32*, LEXSRCH+33
ICDCSYS	LEXSRCH+1~, LEXSRCH+12, LEXSRCH+22, LEXSRCH+24, LEXSRCH+31, LEXSRCH+33, ICDREC+1~, ICDREC+4, ICDREC+5
IEN	PROVSRCH+1~, PROVSRCH+8, PROVSRCH+9, PROVSRCH+10, CLINSRCH+5~, CLINSRCH+6, CLINSRCH+8, CLINSRCH+9, SRVCSRCH+1~, SRVCSRCH+3* , SRVCSRCH+4
LEX	LEXSRCH+1~, SORT~, GETDX+1~, GETDX+14
LEX(	GETDX+16, GETDX+18
LEX("ALPHA"	SORT+2*
LEX("LIST"	LEXSRCH+9, LEXSRCH+10, SORT+2
LEX("MAT"	LEXSRCH+61
LIST	LEXSRCH~, TEST+1~, TEST+2
LIST(	LEXSRCH+59, LEXSRCH+61, TEST+3
LST	PROVSRCH~
LST(	PROVSRCH+10*
LV	PROVSRCH+1~
LV("DILIST"	PROVSRCH+2, PROVSRCH+7
MAX	LEXSRCH+1~, LEXSRCH+60*, LEXSRCH+61
N	LEXSRCH~, LEXSRCH+4, LEXSRCH+7, PROVSRCH~, PROVSRCH+3, PROVSRCH+4*, PROVSRCH+5
NAM	LOADFLDS~, LOADFLDS+3, LOADFLDS+4, LOADFLDS+7, LOADFLDS+8, LOADFLDS+15, LOADFLDS+16
NAME	LEXSRCH+1~, LEXSRCH+11, LEXSRCH+17, LEXSRCH+25, LEXSRCH+34, LEXSRCH+41, LEXSRCH+48, LEXSRCH+49, LEXSRCH+52, LEXSRCH+53* , LEXSRCH+54, LEXSRCH+55, LEXSRCH+56, LEXSRCH+58, CLINSRCH+5~, CLINSRCH+6, CLINSRCH+8*, CLINSRCH+9
NS	PROVSRCH+1~, PROVSRCH+6, PROVSRCH+7, PROVSRCH+9, PROVSRCH+10
ORARRAY	UPDATE+5~, UPDATE+27
ORCODE	GETDX~, GETDX+7, GETDX+11
ORCSYSPR	GETDX+1~, GETDX+5*, GETDX+20
ORDATE	LEXSRCH~, LEXSRCH+3*, LEXSRCH+6, LEXSRCH+7, LEXSRCH+12, LEXSRCH+14, LEXSRCH+15, LEXSRCH+22, LEXSRCH+24, LEXSRCH+31 , LEXSRCH+33, LEXSRCH+40, LEXSRCH+47
ORDUZ	INITUSER~, INITUSER+5*, INITUSER+6, INITUSER+10, INITUSER+20, INITUSER+34, CLINUSER~, CLINUSER+3, CLINUSER+4, CLINUSER+5
ORENT	INITUSER+4~, INITUSER+34*, INITUSER+35
ORI	SORT+1~, SORT+2, GETDX+1~, GETDX+15, GETDX+16, GETDX+18
ORICD	GETDX+17~, GETDX+18, GETDX+19, GETDX+20*, GETDX+21
ORIDT	GETDX~, GETDX+2*, GETDX+4, GETDX+5, GETDX+7, GETDX+10, GETDX+20
ORIMPDT	LEXSRCH+1~, LEXSRCH+2, LEXSRCH+12, LEXSRCH+14, LEXSRCH+15, GETDX+1~, GETDX+3, GETDX+4, GETDX+5, GETDX+7 , GETDX+10
ORMAP	GETDX+1~, GETDX+10*, GETDX+11
ORRETURN	UPDATE~, UPDATE+27, UPDATE+30, UPDATE+31*
ORRETURN(0	UPDATE+17, UPDATE+21, UPDATE+29, UPDATE+30*, UPDATE+31
ORRETURN(1	UPDATE+18, UPDATE+22, UPDATE+29*
ORSYS	GETDX~, GETDX+6
ORUH	GETDX+1~, GETDX+4*, GETDX+14
ORUSER	CLINUSER+1~, CLINUSER+2, CLINUSER+3, CLINUSER+4, CLINUSER+5, CLINUSER+6
ORY	GETDX+1~, GETDX+3, GETDX+7, GETDX+8, GETDX+11, GETDX+14, GETDX+15, GETDX+21, GETDX+22, GETDXX
PART	PROVSRCH~, PROVSRCH+4*, PROVSRCH+5
PID	LOADFLDS+1~, LOADFLDS+10*, LOADFLDS+11
PN	LOADFLDS+1~, LOADFLDS+9, LOADFLDS+11, LOADFLDS+12
PV	INITUSER+4~, INITUSER+26*, INITUSER+27, INITUSER+28, INITUSER+29
RETURN	EDLOAD~, EDLOAD+5, EDLOAD+6, LOADFLDS~, EDSAVE~, EDSAVE+8, EDSAVE+20, EDSAVE+23, EDSAVE+28, EDSAVE+30 , EDSAVE+36, ADDSAVE~, ADDSAVE+8, ADDSAVE+21, ADDSAVE+25, ADDSAVE+34, ADDSAVE+37, INITUSER~, INITPT~
RETURN(	LOADFLDS+4, LOADFLDS+12, LOADFLDS+16*
RETURN(0	INITUSER+9, INITPT+4
RETURN(1	INITUSER+10, INITUSER+25, INITUSER+26, INITUSER+27, INITUSER+28, INITUSER+29, INITPT+6*
RETURN(10	INITUSER+31, INITPT+16
RETURN(11	INITUSER+32*
RETURN(12	INITUSER+33*
RETURN(13	INITUSER+35*
RETURN(2	INITUSER+11, INITPT+8
RETURN(3	INITUSER+12, INITPT+9
RETURN(4	INITUSER+13, INITPT+10
RETURN(5	INITUSER+14, INITPT+11
RETURN(6	INITUSER+15, INITPT+12
RETURN(7	INITUSER+18, INITUSER+19, INITPT+13*
RETURN(8	INITUSER+20, INITPT+14
RETURN(9	INITUSER+30, INITPT+15
RV	PROVSRCH+1~, PROVSRCH+2*, PROVSRCH+9, PROVSRCH+10
S	LEXSRCH+8, LEXSRCH+9, LEXSRCH+10, LEXSRCH+59, LEXSRCH+60, LOADFLDS+1~, LOADFLDS+2, LOADFLDS+3, LOADFLDS+4, LOADFLDS+6* , LOADFLDS+7, LOADFLDS+8, LOADFLDS+12, LOADFLDS+14, LOADFLDS+15, LOADFLDS+16, EDSAVE+4~, EDSAVE+11, EDSAVE+12, EDSAVE+16 , EDSAVE+17, EDSAVE+18, UPDATE+5~, UPDATE+8, UPDATE+9, UPDATE+13, UPDATE+14, UPDATE+15, ADDSAVE+4~, ADDSAVE+12 , ADDSAVE+13*, ADDSAVE+17, ADDSAVE+18, ADDSAVE+19
SYS	LEXSRCH+1~, LEXSRCH+11, LEXSRCH+14, LEXSRCH+19, LEXSRCH+20, LEXSRCH+28, LEXSRCH+29, LEXSRCH+37, LEXSRCH+38, LEXSRCH+44 , LEXSRCH+45, LEXSRCH+58
TERM	DUP~, DUP+1
TEXT	DUP~, DUP+1
TYP	LOADFLDS~, LOADFLDS+4, LOADFLDS+12, LOADFLDS+16
U	LEXSRCH+22, LEXSRCH+31, LEXSRCH+58, SORT+2, ICDREC+3, LOADFLDS+10, LOADFLDS+12, INITUSER+11, INITUSER+12, INITUSER+13 , INITUSER+14, INITUSER+18, INITPT+8, PROVSRCH+10, SRVCSRCH+3, DUP+2, DUP+3, GETDX+14
UPDARRAY	UPDATE~
UPDARRAY(	UPDATE+9, UPDATE+13, UPDATE+14, UPDATE+15
UT	EDSAVE~, EDSAVE+9
V	LOADFLDS+1~, LOADFLDS+2*, LOADFLDS+4, LOADFLDS+12, LOADFLDS+16
>> VA("BID"	INITPT+12
>> VADM(6	INITPT+6
VAL	LEXSRCH+1~, LEXSRCH+58*, LEXSRCH+59
VAL1	LEXSRCH+1~, LEXSRCH+10*, LEXSRCH+13, LEXSRCH+17, LEXSRCH+18, LEXSRCH+20, LEXSRCH+22, LEXSRCH+25, LEXSRCH+27, LEXSRCH+29 , LEXSRCH+31, LEXSRCH+34, LEXSRCH+36, LEXSRCH+38, LEXSRCH+41, LEXSRCH+43, LEXSRCH+45, LEXSRCH+48, LEXSRCH+49
VIEW	LEXSRCH~, LEXSRCH+5*, LEXSRCH+6
VSRQFLG	EDSAVE+5~, EDSAVE+6, EDSAVE+21, EDSAVE+24, EDSAVE+26, UPDATE+6~, UPDATE+7, UPDATE+19, UPDATE+23, UPDATE+25 , ADDSAVE+5~, ADDSAVE+6, ADDSAVE+23, ADDSAVE+27*, ADDSAVE+29
X	INITUSER+4~, INITUSER+8*, INITUSER+11, INITUSER+12, INITUSER+13, INITUSER+14, CLINSRCH~
Y	CLINSRCH~, SRVCSRCH~, DUP~, DUP+1, DUP+2, DUP+3*
Y(	CLINSRCH+9, SRVCSRCH+4

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORQQPL1

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: