Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | 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>

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

Interaction Calls

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

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
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All