Routine: ORQQPL1

Package	Total	Call Graph
Problem List	5	GETFLDS^GMPLEDT3 (EN,NEW)^GMPLSAVE UPDATE^GMPLUTL $$DUPL^GMPLX ($$SERVICE,$$VIEW,VADPT)^GMPLX1
Lexicon Utility	3	LOOK^LEXA CONFIG^LEXSET $$ICDONE^LEXU
VA Fileman	2	LIST^DIC $$GET1^DIQ
DRG Grouper	1	$$CODEN^ICDCODE
Registration	1	DEM^VADPT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORWPCE

Entry Points

Name	Comments	DBIA/ICR reference
CPTREC(COD)	;
ICDREC(COD)	;
EDLOAD(RETURN,DA,GMPROV,GMPVAMC)	; LOAD EDIT ARRAYS ; DA=problem IFN
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
INITUSER(RETURN,ORDUZ)	; INITIALIZE FOR NEW USER ; taken from INIT^GMPLMGR ; leave GMPLUSER on symbol table - is evaluated in EDITSAVE ;
ADDSAVE(RETURN,GMPDFN,GMPROV,GMPVAMC,ADDARRAY)	; SAVE NEW RECORD ; RETURN - Problem IFN if success, 0 otherwise ; ADDARRAY - array used for indirect sets of GMPFLDS()
CLINUSER(ORDUZ)	;is this a clinical user?
PROVSRCH(LST,FLAG,N,FROM,PART)	; Get candidate Rroviders from person file
SRVCSRCH(Y,FROM,DIR,ALL)	; GET LIST OF SERVICES
EDSAVE(RETURN,GMPIFN,GMPROV,GMPVAMC,UT,EDARRAY)	; SAVE EDITED RES ; RETURN - boolean, 1 success, 0 failure ; EDARRAY - array used for indirect sets of GMPORIG() and GMPFLDS()
INITPT(RETURN,DFN)	; GET PATIENT PARAMETERS
DUP(Y,DFN,TERM,TEXT)	;Check for duplicate problem
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.
LEXSRCH(LIST,FROM,N,VIEW,ORDATE)	; Get candidate Problems from LEX file
LOADFLDS(RETURN,NAM,TYP,I)	; LOAD FIELDS FOR TYPE OF ARRAY

Name	Field # of Occurrence
LIST^DIC	PROVSRCH+5
$$GET1^DIQ	LOADFLDS+11
GETFLDS^GMPLEDT3	EDLOAD+3
EN^GMPLSAVE	EDSAVE+16
NEW^GMPLSAVE	ADDSAVE+13
UPDATE^GMPLUTL	UPDATE+9
$$DUPL^GMPLX	DUP+1
$$SERVICE^GMPLX1	INITUSER+19
$$VIEW^GMPLX1	INITUSER+9
VADPT^GMPLX1	INITPT+7
$$CODEN^ICDCODE	LEXSRCH+20, LEXSRCH+27, LEXSRCH+34
LOOK^LEXA	LEXSRCH+6
CONFIG^LEXSET	LEXSRCH+5
$$ICDONE^LEXU	LEXSRCH+20, LEXSRCH+27
DEM^VADPT	INITPT+5
$$GET^XPAR	INITUSER+6

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+13, EDSAVE+19, DUP+2, DUP+3
^AUPNPROB(0	ADDSAVE+6, ADDSAVE+17
^DIC(49 - [#49]	SRVCSRCH+2, SRVCSRCH+3
^GMPL(125.99 - [#125.99]	INITUSER+7
^ICD9("AB"	ICDREC+4, ICDREC+5
^ICPT("BA"	CPTREC+2
^SC - [#44]	CLINSRCH+9
^SC("B"	CLINSRCH+8
^TMP("LEXSCH"	LEXSRCH+48!
^VA(200 - [#200]	INITUSER+16, INITUSER+17, PROVSRCH+9
^XUSEC("ORELSE"	CLINUSER+4
^XUSEC("ORES"	CLINUSER+3
^XUSEC("PROVIDER"	CLINUSER+5

Name	Line Occurrences
$$CLINUSER	INITUSER+5
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+10, ADDSAVE+11
ALL	SRVCSRCH~, SRVCSRCH+3
CIEN	LEXSRCH+1~, LEXSRCH+10, LEXSRCH+14, LEXSRCH+20, LEXSRCH+27, LEXSRCH+34*, LEXSRCH+44
CNT	SRVCSRCH+1~*, SRVCSRCH+2
COD	LEXSRCH+1~, LEXSRCH+10, LEXSRCH+13, LEXSRCH+18, LEXSRCH+19, LEXSRCH+25, LEXSRCH+26, LEXSRCH+32, LEXSRCH+33, LEXSRCH+34 , LEXSRCH+44, ICDREC~, ICDREC+2, ICDREC+3*, ICDREC+4, ICDREC+5, CPTREC~, CPTREC+1, CPTREC+2
CODIEN	ICDREC+1~, ICDREC+4, ICDREC+5, ICDREC+6
CTXT	INITUSER+4~, INITUSER+6*, INITUSER+14, INITUSER+15, INITUSER+32
CVP	LOADFLDS+1~, LOADFLDS+8*, LOADFLDS+10, LOADFLDS+12
DA	EDLOAD~, EDLOAD+3, ADDSAVE+4~, ADDSAVE+15
DFN	INITPT~, INITPT+1, INITPT+7, DUP~, DUP+1
DIR	SRVCSRCH~, SRVCSRCH+2
DT	LEXSRCH+2
DUZ	INITUSER+5, INITUSER+9, INITUSER+19
DUZ(2	INITPT+4
EDARRAY	EDSAVE~
EDARRAY(	EDSAVE+10, EDSAVE+11
FLAG	PROVSRCH~, PROVSRCH+4*, PROVSRCH+5
FROM	LEXSRCH~, LEXSRCH+6, 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+17!, ADDSAVE+4~
GMPFLD(10	EDSAVE+12
GMPGULF	INITPT+2~, INITPT+11
GMPHNC	INITPT+2~, INITPT+13
GMPIFN	EDSAVE~, EDSAVE+13, EDSAVE+19
GMPION	INITPT+2~, INITPT+10
GMPL	EDLOAD+2~, EDLOAD+7!, UPDATE+5~
GMPLPROV	INITUSER+4~, INITUSER+15*, INITUSER+16, INITUSER+17
GMPLUSER	EDSAVE+4~, EDSAVE+6, INITUSER+5, INITUSER+8
GMPLVIEW	INITUSER+33!
GMPLVIEW("CLIN"	INITUSER+27*, INITUSER+30
GMPLVIEW("SERV"	INITUSER+28*, INITUSER+29
GMPMST	INITPT+2~, INITPT+14
GMPORIG	EDLOAD+2~, EDLOAD+7!, EDSAVE+4~, EDSAVE+17!, UPDATE+5~, ADDSAVE+4~
GMPROV	EDLOAD~, EDSAVE~, ADDSAVE~
GMPSC	INITPT+2~, INITPT+8
GMPSHD	INITPT+2~, INITPT+16
GMPVAMC	EDLOAD~, EDSAVE~, ADDSAVE~
I	EDLOAD+2~, EDLOAD+4, EDLOAD+5, EDLOAD+6, LOADFLDS~, LOADFLDS+4, LOADFLDS+5, LOADFLDS+12, LOADFLDS+13, CLINSRCH+5~ , CLINSRCH+6, CLINSRCH+9, SRVCSRCH+1~, SRVCSRCH+2, SRVCSRCH+4*
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~
LEX("LIST"	LEXSRCH+8, LEXSRCH+9
LEX("MAT"	LEXSRCH+47
LIST	LEXSRCH~
LIST(	LEXSRCH+45, LEXSRCH+47
LST	PROVSRCH~
LST(	PROVSRCH+10*
LV	PROVSRCH+1~
LV("DILIST"	PROVSRCH+2, PROVSRCH+7
MAX	LEXSRCH+1~, LEXSRCH+46*, LEXSRCH+47
N	LEXSRCH~, LEXSRCH+3, LEXSRCH+6, PROVSRCH~, PROVSRCH+3, PROVSRCH+4*, PROVSRCH+5
NAM	LOADFLDS~, LOADFLDS+3, LOADFLDS+4, LOADFLDS+7, LOADFLDS+8
NAME	LEXSRCH+1~, LEXSRCH+10, LEXSRCH+15, LEXSRCH+21, LEXSRCH+28, LEXSRCH+35, LEXSRCH+36, LEXSRCH+39, LEXSRCH+40, LEXSRCH+41* , LEXSRCH+42, LEXSRCH+44, CLINSRCH+5~, CLINSRCH+6, CLINSRCH+8*, CLINSRCH+9
NS	PROVSRCH+1~, PROVSRCH+6, PROVSRCH+7, PROVSRCH+9, PROVSRCH+10
ORARRAY	UPDATE+9, UPDATE+10!
ORDATE	LEXSRCH~, LEXSRCH+2*, LEXSRCH+5, LEXSRCH+6, LEXSRCH+20, LEXSRCH+27
ORDUZ	INITUSER~, CLINUSER~, CLINUSER+3, CLINUSER+4, CLINUSER+5
ORRETURN	UPDATE~, UPDATE+9, UPDATE+13, UPDATE+14*
ORRETURN(0	UPDATE+12, UPDATE+13*, UPDATE+14
ORRETURN(1	UPDATE+12*
ORUSER	CLINUSER+1~, CLINUSER+2, CLINUSER+3, CLINUSER+4, CLINUSER+5, CLINUSER+6
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+25*, INITUSER+26, INITUSER+27, INITUSER+28
RETURN	EDLOAD~, EDLOAD+5, EDLOAD+6, LOADFLDS~, EDSAVE~, EDSAVE+5, EDSAVE+12, EDSAVE+14, EDSAVE+20, ADDSAVE~ , ADDSAVE+5, ADDSAVE+15, ADDSAVE+18, INITUSER~, INITPT~
RETURN(	LOADFLDS+4, LOADFLDS+12
RETURN(0	INITUSER+8, INITPT+4
RETURN(1	INITUSER+9, INITUSER+24, INITUSER+25, INITUSER+26, INITUSER+27, INITUSER+28, INITPT+6*
RETURN(10	INITUSER+30, INITPT+16
RETURN(11	INITUSER+31*
RETURN(12	INITUSER+32*
RETURN(2	INITUSER+10, INITPT+8
RETURN(3	INITUSER+11, INITPT+9
RETURN(4	INITUSER+12, INITPT+10
RETURN(5	INITUSER+13, INITPT+11
RETURN(6	INITUSER+14, INITPT+12
RETURN(7	INITUSER+17, INITUSER+18, INITPT+13*
RETURN(8	INITUSER+19, INITPT+14
RETURN(9	INITUSER+29, INITPT+15
RV	PROVSRCH+1~, PROVSRCH+2*, PROVSRCH+9, PROVSRCH+10
S	LEXSRCH+7, LEXSRCH+8, LEXSRCH+9, LEXSRCH+45, LEXSRCH+46, LOADFLDS+1~, LOADFLDS+2, LOADFLDS+3, LOADFLDS+4, LOADFLDS+6* , LOADFLDS+7, LOADFLDS+8, LOADFLDS+12, EDSAVE+4~, EDSAVE+9, EDSAVE+10, EDSAVE+11, UPDATE+5~, UPDATE+6, UPDATE+7* , UPDATE+8, ADDSAVE+4~, ADDSAVE+9, ADDSAVE+10, ADDSAVE+11
SYS	LEXSRCH+1~, LEXSRCH+10, LEXSRCH+12, LEXSRCH+17, LEXSRCH+18, LEXSRCH+24, LEXSRCH+25, LEXSRCH+31*, LEXSRCH+32, LEXSRCH+44
TERM	DUP~, DUP+1
TEXT	DUP~, DUP+1
TYP	LOADFLDS~, LOADFLDS+4, LOADFLDS+12
U	LEXSRCH+20, LEXSRCH+27, LEXSRCH+44, ICDREC+3, LOADFLDS+10, LOADFLDS+12, INITUSER+10, INITUSER+11, INITUSER+12, INITUSER+13 , INITUSER+17, INITPT+8, PROVSRCH+10, SRVCSRCH+3, DUP+2, DUP+3
UPDARRAY	UPDATE~
UPDARRAY(	UPDATE+7, UPDATE+8
UT	EDSAVE~, EDSAVE+6
V	LOADFLDS+1~, LOADFLDS+2*, LOADFLDS+4, LOADFLDS+12
>> VA("BID"	INITPT+12
>> VADM(6	INITPT+6
VAL	LEXSRCH+1~, LEXSRCH+44*, LEXSRCH+45
VAL1	LEXSRCH+1~, LEXSRCH+9*, LEXSRCH+11, LEXSRCH+15, LEXSRCH+16, LEXSRCH+18, LEXSRCH+20, LEXSRCH+21, LEXSRCH+23, LEXSRCH+25 , LEXSRCH+27, LEXSRCH+28, LEXSRCH+30, LEXSRCH+32, LEXSRCH+35, LEXSRCH+36
VIEW	LEXSRCH~, LEXSRCH+4*, LEXSRCH+5
X	INITUSER+4~, INITUSER+7*, INITUSER+10, INITUSER+11, INITUSER+12, INITUSER+13, 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: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: