©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
DGPFALF ;ALB/KCL,RBS - PRF LOCAL FLAG API'S ; 4/8/04 4:03pm
Source file <DGPFALF.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | $$FNDFLAG^DGPFALF $$VALID^DGPFUT |
| VA Fileman | 2 | UPDATE^DIE GETS^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETLF(DGPFIEN,DGPFLF) | ;retrieve a single PRF LOCAL FLAG (#26.11) record
|
|
| FNDFLAG(DGPFFLG) | ;Find Flag Name IEN
; This function finds a flag record IEN using the name field. ; Input: ; DGPFFLG - Flag Name field (.01) value |
|
| STOFLAG(DGPFLF,DGPFERR) | ;store a single PRF LOCAL FLAG (#26.11) file record
|
|
| PRININV(DGPFIEN,DGFDA) | ; setup principal investigator(s) multiple (#26.112)
; Input: ; DGPFIEN - value will indicate to EDIT or ADD a New Record ; IEN# = IEN of existing entry - Edit to existing Record ; 0 = Add New Record ; DGFDA - array used by FileMan (passed by reference) |
| FileNo | Call Tags |
|---|---|
| ^DGPF(26.11 - [#26.11] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPF(26.11 - [#26.11] | GETLF+33, FNDFLAG+10 |
| Name | Line Occurrences |
|---|---|
| PRININV | STOFLAG+35 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGERR | GETLF+27~, GETLF+36, STOFLAG+11~, STOFLAG+38 |
| DGFDA | STOFLAG+11~, STOFLAG+35, PRININV~ |
| DGFDA( | STOFLAG+26*, STOFLAG+27*, STOFLAG+28*, STOFLAG+29*, STOFLAG+30*, STOFLAG+31*, STOFLAG+32*, STOFLAG+33*, PRININV+25* |
| DGFDAIEN | STOFLAG+11~ |
| DGFDAIEN(1 | STOFLAG+38 |
| DGFLD | STOFLAG+11~, STOFLAG+17 |
| DGFLD( | STOFLAG+14* |
| DGFLD("DESC" | STOFLAG+15* |
| DGFLD("FLAG" | STOFLAG+20, STOFLAG+26 |
| DGFLD("NOTIDAYS" | STOFLAG+30 |
| DGFLD("PRININV" | STOFLAG+16*, STOFLAG+35, PRININV+18, PRININV+21, PRININV+25 |
| DGFLD("REVFREQ" | STOFLAG+29 |
| DGFLD("REVGRP" | STOFLAG+31 |
| DGFLD("STAT" | STOFLAG+27 |
| DGFLD("TIUTITLE" | STOFLAG+32 |
| DGFLD("TYPE" | STOFLAG+28 |
| DGFLDS | GETLF+26~ |
| DGFLDS( | GETLF+39, GETLF+40, GETLF+41, GETLF+42, GETLF+43, GETLF+44, GETLF+45, GETLF+47, GETLF+50, GETLF+51 |
| DGIEN | FNDFLAG+8~, FNDFLAG+10*, FNDFLAG+12, STOFLAG+11~, STOFLAG+20*, STOFLAG+24, STOFLAG+35, STOFLAG+38*, STOFLAG+40 |
| DGIENS | GETLF+25~, GETLF+34*, GETLF+35, GETLF+39, GETLF+40, GETLF+41, GETLF+42, GETLF+43, GETLF+44, GETLF+45 , GETLF+47, STOFLAG+11~, STOFLAG+24*, STOFLAG+25*, STOFLAG+26, STOFLAG+27, STOFLAG+28, STOFLAG+29, STOFLAG+30, STOFLAG+31 , STOFLAG+32, STOFLAG+33, PRININV+16~, PRININV+20*, PRININV+22*, PRININV+23*, PRININV+25 |
| DGPFERR | STOFLAG~, STOFLAG+17 |
| DGPFFLG | FNDFLAG~, FNDFLAG+9, FNDFLAG+10 |
| DGPFIEN | GETLF~, GETLF+33, GETLF+34, PRININV~, PRININV+15*, PRININV+19, PRININV+20 |
| DGPFLF | GETLF~, STOFLAG~ |
| DGPFLF( | STOFLAG+14 |
| DGPFLF("DESC" | GETLF+47*, GETLF+48!, STOFLAG+15 |
| DGPFLF("FLAG" | GETLF+39* |
| DGPFLF("NOTIDAYS" | GETLF+43* |
| DGPFLF("OLDFLAG" | STOFLAG+20 |
| DGPFLF("PRININV" | GETLF+51*, STOFLAG+16 |
| DGPFLF("REVFREQ" | GETLF+42* |
| DGPFLF("REVGRP" | GETLF+44* |
| DGPFLF("STAT" | GETLF+40* |
| DGPFLF("TIUTITLE" | GETLF+45* |
| DGPFLF("TYPE" | GETLF+41* |
| DGSUB | GETLF+28~, GETLF+50*, GETLF+51, STOFLAG+11~, STOFLAG+13*, STOFLAG+14, PRININV+16~, PRININV+18*, PRININV+20, PRININV+21 , PRININV+23, PRININV+25 |
| RESULT | GETLF+29~, GETLF+31*, GETLF+53*, GETLF+55 |
| U | GETLF+39, GETLF+40, GETLF+41, GETLF+42, GETLF+43, GETLF+44, GETLF+45, GETLF+51, STOFLAG+14, PRININV+25 |