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 |