DVBCPRF ;ALB/AG-Patient Record Flag ; 5/12/20 10:35am
Source file <DVBCPRF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FMT(ROOT) | ; Format - Convert record flag data to displayable data
; Sets ^TMP("DVBPRF",$J,NN) with flag data for multiple flags |
|
| HASFLG(DVBY,PTDFN) | ;Does patient PTDFN have flags
; DBIA 3860: $$GETACT^DGPFAPI(PTDFN,.FLGDATA) ; Returns array DVBY listing active assigned flags ; Array DVBY has form: ; DVBY(flagID) = flagID^flagname,CAT1 ; where CAT1 is 1 if flag is cat 1, 0 if cat 2 ; DVBY = Num of items returned in array ORY = num of flags |
|
| TRIGRPOP(POPUP,PTDFN) | ;Should the flag display pop up upon patient selection
|
|
| GETFLG(DVBY,PTDFN,FLAGID) | ;Return detailed flag info for flag FLAGID
|
|
| CLEAR(ORY) | ;Clear up the temp global
|
| RPC Name | Call Tags |
|---|---|
| DVBAB PRF POPUP | TRIGRPOP |
| DVBAB HASFLG | HASFLG |
| DVBAB GETFLAG | GETFLG |
| DVBAB CLRFLG | CLEAR |
