Routine: ORPRF

Information

ORPRF ;SLC/JLI/JMC -Patient record flag ;6/14/06

Source file <ORPRF.m>

Name	Comments	DBIA/ICR reference
FMT(ROOT,DBRSDATA,DGHIST)	; Format - Convert record flag data to displayable data ; Sets ^TMP("ORPRF",$J,NN) with flag data for multiple flags ; DBRSDATA - local array with DBRS data ; DGHIST - local array with PRF history records
HASFLG(ORY,PTDFN)	;Does patient PTDFN has flags ; DBIA 3860: $$GETACT^DGPFAPI(PTDFN,.FLGDATA) ; Returns array ORY listing active assigned flags ; Array ORY has form: ; ORY(flagID) = flagID^flagname,CAT1 ; where CAT1 is 1 if flag is cat 1, 0 if cat 2 ; ORY = Num of items returned in array ORY = num of flags
HASFLG1(ORY,PTDFN)	; Does patient PTDFN have Cat I flags ; Returns array ORY listing active assigned Cat I flags ; Array ORY has form: ; ORY(flagID) = flagID^flagname ; ORY = Num of Cat I flags ; If pt has no Cat I flags ORY = 0 and no flags are returned. ; Also calls FMT^ORPRF, which sets ^TMP("ORPRF" for Cat I flags ;
HASCAT1(HASCAT1,PTDFN)	;Does patient have Category I flags (no arrays) ; Returns boolean HASCAT1 = 0 or 1 ; Does NOT set arrays or TMP globals
HASCAT1X	;
TRIGRPOP(POPUP,PTDFN)	;Should the flag display pop up upon patient selection ; for patient PTDFN?
GETFLG(ORY,PTDFN,FLAGID)	;Return detailed flag info for flag FLAGID
CLEAR(ORY)	;Clear up the temp global