©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ORPRF ;SLC/JLI-Patient record flag ;6/14/06
Source file <ORPRF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TRIGRPOP(POPUP,PTDFN) | ;Should the flag display pop up upon patient selection
; for patient PTDFN? |
|
| HASCAT1(HASCAT1,PTDFN) | ;Does patient have Category I flags (no arrays)
; Returns boolean HASCAT1 = 0 or 1 ; Does NOT set arrays or TMP globals |
|
| CLEAR(ORY) | ;Clear up the temp global
|
|
| FMT(ROOT) | ; Format - Convert record flag data to displayable data
; Sets ^TMP("ORPRF",$J,NN) with flag data for multiple 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 ; |
|
| HASCAT1X | ;
|
|
| 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 |
|
| GETFLG(ORY,PTDFN,FLAGID) | ;Return detailed flag info for flag FLAGID
|
| RPC Name | Call Tags |
|---|---|
| ORPRF HASFLG | HASFLG |
| ORPRF GETFLG | GETFLG |
| ORPRF CLEAR | CLEAR |
| ORPRF HASCAT1 | HASCAT1 |
| ORPRF TRIGGER POPUP | TRIGRPOP |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("ORPRF" | FMT+5*, FMT+6*, FMT+7*, FMT+9*, FMT+10*, FMT+12*, FMT+13*, FMT+15*, FMT+16*, FMT+17* , FMT+18*, FMT+19*, FMT+20*, FMT+21*, FMT+22*, HASFLG+9!, HASFLG+13, HASFLG+14, HASFLG+16, HASFLG1+10! , HASFLG1+19, HASFLG1+20, GETFLG+1, GETFLG+4, GETFLG+5, CLEAR+1! |
| Name | Line Occurrences |
|---|---|
| FMT | HASFLG+12, HASFLG1+18 |
| HASCAT1X | HASCAT1+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTFLGS | HASFLG1+9~, HASFLG1+11*, HASFLG1+12, HASCAT1+3~, HASCAT1+5* |
| CAT1 | HASFLG+8~, HASFLG+15*, HASFLG+16*, HASFLG+17 |
| CAT1CNT | HASFLG1+9~, HASFLG1+13*, HASFLG1+15*, HASFLG1+17, HASFLG1+21 |
| CNT | FMT+2~, FMT+3*, FMT+7*, FMT+9*, FMT+10*, FMT+12*, FMT+13*, FMT+15*, FMT+16*, FMT+17* , FMT+18*, FMT+19*, FMT+20*, FMT+21*, FMT+22*, GETFLG+2~, GETFLG+3*, GETFLG+5* |
| FLAGID | HASFLG1+9~, HASFLG1+13*, HASFLG1+14*, HASFLG1+15, HASFLG1+16, HASCAT1+3~, HASCAT1+4*, HASCAT1+6*, HASCAT1+7, GETFLG~ , GETFLG+1, GETFLG+4, GETFLG+5 |
| HASCAT1 | HASCAT1~, HASCAT1+4*, HASCAT1+6, HASCAT1+7* |
| IDX | FMT+2~, FMT+3*, FMT+4*, FMT+5, FMT+6, FMT+7, FMT+8, FMT+9, FMT+10, FMT+11 , FMT+12, FMT+13, FMT+15, FMT+16, FMT+17, FMT+18, FMT+19, FMT+20, FMT+21, FMT+22 |
| IDY | HASFLG+8~, HASFLG+13*, HASFLG+14, HASFLG+16, HASFLG+17, HASFLG1+19*, HASFLG1+20 |
| IX | FMT+2~, FMT+11*, FMT+12, GETFLG+2~, GETFLG+3*, GETFLG+4*, GETFLG+5 |
| ORY | HASFLG~, HASFLG+7*, HASFLG+10*, HASFLG+11, HASFLG1~, HASFLG1+8*, HASFLG1+12*, HASFLG1+17*, HASFLG1+21*, GETFLG~ , CLEAR~ |
| ORY( | HASFLG+14*, HASFLG+17*, HASFLG1+20*, GETFLG+5* |
| POPUP | TRIGRPOP~, TRIGRPOP+6* |
| PRFARR | HASFLG+8~, HASFLG1+9~, HASCAT1+3~, TRIGRPOP+5~ |
| PRFARR( | HASFLG1+14, HASFLG1+15, HASFLG1+16!, HASCAT1+6, HASCAT1+7 |
| PTDFN | HASFLG~, HASFLG+10, HASFLG1~, HASFLG1+11, HASCAT1~, HASCAT1+5, TRIGRPOP~, TRIGRPOP+6, GETFLG~ |
| ROOT | FMT~, FMT+23! |
| ROOT( | FMT+4, FMT+5, FMT+6, FMT+7, FMT+8, FMT+11, FMT+12, FMT+15, FMT+16, FMT+18 , FMT+19, FMT+20, FMT+21, FMT+22 |
| U | FMT+5, FMT+6, FMT+7, FMT+15, FMT+16, FMT+18, FMT+19, FMT+20, FMT+21, FMT+22 , HASFLG+14, HASFLG+17, HASFLG1+20 |
| Name | Field # of Occurrence |
|---|---|
| $T(GETACT^DGPFAPI | HASFLG+7, HASFLG1+8 |