©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
DGPFLF6 ;ALB/RPM - PRF FLAG MANAGEMENT LM SUB-ROUTINE ; 4/19/04 4:25pm
Source file <DGPFLF6.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | $$GETHTIU^DGPFAPI1 $$ANSWER^DGPFUT |
| VA Fileman | 1 | $$EXTERNAL^DILFD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CKTIUPN(DGTITLE,DGARRAY) | ;check for progress notes linked to a record flag
|
|
| ASGNCNT(DGFIEN,DGDFNLST) | ;counts existing assignments for a given flag
|
|
| PRININV(DGFIEN,DGPFLF) | ;Prompt for principle investigators
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPF(26.11 - [#26.11] | PRININV+25 |
| ^DGPF(26.13 - [#26.13] | ASGNCNT+21, ASGNCNT+25, ASGNCNT+27 |
| ^TMP("DGHTIU" | CKTIUPN+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGARRAY | CKTIUPN~, CKTIUPN+26, CKTIUPN+30 |
| DGASK | PRININV+11~, PRININV+36*, PRININV+39, PRININV+42, PRININV+45, PRININV+46, PRININV+53, PRININV+69, PRININV+70, PRININV+73 , PRININV+74 |
| DGCNT | PRININV+12~, PRININV+30*, PRININV+72*, PRININV+73, PRININV+74, ASGNCNT+16~, ASGNCNT+19*, ASGNCNT+26*, ASGNCNT+29 |
| DGDA | PRININV+13~, PRININV+33*, PRININV+36, PRININV+47*, PRININV+63*, PRININV+69, PRININV+75* |
| DGDFN | ASGNCNT+17~, ASGNCNT+24*, ASGNCNT+25*, ASGNCNT+27, CKTIUPN+20~, CKTIUPN+29*, CKTIUPN+30*, CKTIUPN+32 |
| DGDFNLST | ASGNCNT~ |
| DGDFNLST( | ASGNCNT+27* |
| DGFIEN | PRININV~, PRININV+22*, PRININV+25, ASGNCNT~, ASGNCNT+21, ASGNCNT+25, ASGNCNT+27 |
| DGHTIU | CKTIUPN+21~, CKTIUPN+28*, CKTIUPN+31, CKTIUPN+32, CKTIUPN+34, CKTIUPN+35, CKTIUPN+37 |
| DGI | CKTIUPN+22~, CKTIUPN+33*, CKTIUPN+34*, CKTIUPN+35 |
| DGLAST | PRININV+14~, PRININV+30*, PRININV+33, PRININV+42, PRININV+46*, PRININV+47, PRININV+54, PRININV+55, PRININV+56, PRININV+57 , PRININV+58, PRININV+59, PRININV+61, PRININV+62*, PRININV+63, PRININV+69 |
| DGLKUP | PRININV+15~, PRININV+26* |
| DGLKUP( | PRININV+45, PRININV+46, PRININV+56!, PRININV+73* |
| DGNEWPI | PRININV+16~, PRININV+70*, PRININV+71, PRININV+74 |
| DGORIG | PRININV+17~, PRININV+25*, PRININV+26 |
| DGORIG( | PRININV+58 |
| DGPFLF | PRININV~ |
| DGPFLF("PRININV" | PRININV+30, PRININV+33, PRININV+42, PRININV+47, PRININV+54, PRININV+55, PRININV+56, PRININV+57, PRININV+58, PRININV+59* , PRININV+61!, PRININV+63, PRININV+69, PRININV+74* |
| DGPREV | PRININV+18~, PRININV+57*, PRININV+62 |
| DGQUIT | PRININV+19~, PRININV+29*, PRININV+35, PRININV+39*, PRININV+42* |
| DGRSLT | PRININV+20~, PRININV+28*, PRININV+39*, PRININV+77, CKTIUPN+19~, CKTIUPN+24*, CKTIUPN+30, CKTIUPN+34, CKTIUPN+35*, CKTIUPN+39 |
| DGTITLE | CKTIUPN~, CKTIUPN+26, CKTIUPN+32 |
| U | PRININV+33, PRININV+42, PRININV+47, PRININV+55, PRININV+56, PRININV+58, PRININV+63, PRININV+69, PRININV+74, CKTIUPN+35 |