GMPLSPECAUTH ;SLC/AGP,GN - Problems Special Authorities ; Nov 21, 2025@19:37
Source file <GMPLSPECAUTH.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SHOWSA() | ;Switch to allow=1 / disallow=0, New SA indicator structure for Problem List
|
|
| SAOFFOUT | ;Code switch of JSON return true msg
|
|
| OLDSC(J) | ; -- Returns name of SC field by piece number
|
|
| SADESC(VALUE) | ; SA description from SA IEN or CODE
|
|
| GETVALUE(DEF) | ;
|
|
| DETAIL(GMPL,IFN,GMPL1) | ;Get SA info in orig format
|
|
| COMPARE(OLDVALUE,NEWVALUE,CODE) | ;
|
|
| EDIT(IFN,GMPLORIG,GMPFLD) | ;Edit
|
|
| SET(IFN,GMPFLD,GMPOLDIND,GMPROV,GMPORIG) | ||
| BLDSAAUDIT | ; Create audit xref arrays from passed in arrays; subcript by internal CODE for comparing of old to new values
|
|
| SETARRAY(AR,FULLSTRUCT) | ;Sets SA Instructions, called by RPC tag
|
|
| SETVALUE(VALUE) | ;Converts json value to Mumps value
|
|
| GETPATSA(DFN,SA,SA2) | ;Get the patients SA indicators. GMPL similar to PXSPECAUTH, but returns 3 additional data elements to Problem List tab.
|
|
| GETNEWSA(IFN,GMPL1,GMPLSA) | ; Get Problem file Special Authorities for printing
|
|
| EP(IFN) | ;moved here from GMPLX
|
|
| SPECAUTHDEF(RESULTS,JSONIN) | ;Return Patient Special Authorities (SA) that may be selected via a JSON serialized string. *508
; Input: JSONIN = JSON elements: {patientId}: DFN, ; {loadStructure}:true/false value (optional); Load SAs rules structure ; Output: RESULTS = JSON elements: {code}: internal abbr, ; {visible}:true/false |
|
| SETERROR(RESULTS,ERROR) | ;
|
|
| PNUM(IDX) | ; Returns Piece number of the old SA field
|
|
| SAFORPROBLEM(OUTPUT,ALLOWED,PIDX,PID) | ; Returns Special Authorities for a problems
|
|
| SETDEFAULT | ;
|
|
| SAFORPROBLEMS(RESULTS,JSONIN) | ; Returns Special Authorities for a list of problems
|
| RPC Name | Call Tags |
|---|---|
| GMPLSPECAUTH SPECAUTHDEF | SPECAUTHDEF |
| GMPLSPECAUTH SAFORPROBLEMS | SAFORPROBLEMS |
