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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORQQPL1

Package: Order Entry Results Reporting

Routine: ORQQPL1


Information

ORQQPL1 ; ALB/PDR,REV,ISL/JER,TC,LAB - PROBLEM LIST FOR CPRS GUI ;04/25/19 09:27

Source Information

Source file <ORQQPL1.m>

Call Graph

Call Graph

Call Graph Total: 16

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  

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

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

External References

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

Interaction Calls

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

Used in RPC

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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*
Info |  Source |  Call Graph |  Caller Graph |  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  | All