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 |
