ORQQPL1 ; ALB/PDR,REV,ISL/JER,TC,LAB - PROBLEM LIST FOR CPRS GUI ;04/25/19 09:27
Source file <ORQQPL1.m>
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 | Line Occurrences |
---|---|
Function Call: WRITE |
|
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 |