©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
DGPFDD ;ALB/RPM - PRF DATA DICTIONARY UTILITIES ; 9/06/06 1:14pm
Source file <DGPFDD.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | ($$GETALL,$$GETASGN,$$STOALL)^DGPFAA $$FNDTITLE^DGPFAPI1 ($$FNDEVNT,STOEVNT)^DGPFHLL1 $$MPIOK^DGPFUT |
| VA Fileman | 3 | EN^DDIOL $$EXTERNAL^DILFD $$GET1^DIQ |
| Kernel | 2 | $$NOW^XLFDT $$ACTIVE^XUAF4 |
| Text Integration Utility | 1 | $$GETLIST^TIUPRF |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TIULIST(DGTIUIEN) | ;DD lookup screen for (#26.11) file (#.07) field
|
|
| INACT(DGIEN,DGSTAT,DGFILE,DGUSER) | ;Inactivate flag trigger
; This procedure is used as a trigger that is fired when the ; STATUS (#.02) field of a record in either the PRF LOCAL FLAG (#26.11) ; file or PRF NATIONAL FLAG (#26.15) file is changed from Active to ; Inactive. The trigger will inactivate all Patient Record ; Flag assignments associated with the inactivated Flag. |
|
| SCRNDIV(DGIEN,DGSEL) | ;division screen
|
|
| PIHELP | ;Executable help for PRINCIPAL INVESTIGATOR(S) (#.01) sub-field of
|
|
| SCRNSEL(DGIEN,DGSEL) | ;screen user selection
|
|
| EVENT(DGDFN) | ;PRF HL7 EVENT trigger
|
|
| GETLIST(DGCAT,DGLIST) | ;Get list of TIU Progress Note Titles
; This function is used to retrieve a list of active TIU Progress ; Note Titles that can be associated with Category I or Category II ; Record Flags. |
|
| COS(DGAPRV) | ;transform POSTMASTER to CHIEF OF STAFF
|
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | PIHELP+27 |
| $$GETALL^DGPFAA | EVENT+24 |
| $$GETASGN^DGPFAA | INACT+30 |
| $$STOALL^DGPFAA | INACT+39 |
| $$FNDTITLE^DGPFAPI1 | TIULIST+38 |
| $$FNDEVNT^DGPFHLL1 | EVENT+21 |
| STOEVNT^DGPFHLL1 | EVENT+27 |
| $$MPIOK^DGPFUT | EVENT+18 |
| $$EXTERNAL^DILFD | PIHELP+25 |
| $$GET1^DIQ | COS+21, SCRNSEL+20 |
| $$GETLIST^TIUPRF | GETLIST+21 |
| $$NOW^XLFDT | INACT+35 |
| $$ACTIVE^XUAF4 | SCRNDIV+33 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| 26.112 | EXTERNAL^DILFD |
| ^DG(40.8 - [#40.8] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | SCRNDIV+31 |
| ^DGPF(26.13 - [#26.13] | INACT+27, SCRNDIV+32 |
| ^DPT - [#2] | EVENT+12 |
| ^TMP("DGPNLIST" | TIULIST+24 |
| Name | Line Occurrences |
|---|---|
| $$GETLIST | TIULIST+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGAIEN | INACT+17~, INACT+26*, INACT+27*, INACT+30 |
| DGAPRV | COS~, COS+19, COS+21 |
| DGASGN | EVENT+9~, EVENT+24 |
| DGCAT | GETLIST~, GETLIST+21 |
| DGCNT | PIHELP+18~, PIHELP+22*, PIHELP+24*, PIHELP+25, PIHELP+26 |
| DGDFN | EVENT~, EVENT+12, EVENT+18, EVENT+21, EVENT+24, EVENT+27 |
| DGERR | COS+17~, SCRNSEL+12~, SCRNSEL+21 |
| DGFILE | INACT~, INACT+22, INACT+25 |
| DGFLD | SCRNSEL+13~, SCRNSEL+20*, SCRNSEL+22 |
| DGIEN | INACT~, INACT+20, INACT+25, PIHELP+19~, PIHELP+22*, PIHELP+23*, PIHELP+25, SCRNSEL~, SCRNSEL+18, SCRNSEL+20 , SCRNDIV~, SCRNDIV+29, SCRNDIV+31 |
| DGINST | SCRNDIV+24~, SCRNDIV+31*, SCRNDIV+32, SCRNDIV+33 |
| DGLIST | GETLIST~, GETLIST+21 |
| >> DGLKUP | PIHELP+16 |
| >> DGLKUP( | PIHELP+23 |
| DGNAMES | PIHELP+20~, PIHELP+27 |
| DGNAMES( | PIHELP+25*, PIHELP+26* |
| DGPFA | INACT+28~, INACT+30, INACT+39 |
| DGPFA("REVIEWDT" | INACT+33* |
| DGPFA("STATUS" | INACT+31, INACT+32* |
| DGPFAH | INACT+29~, INACT+39 |
| DGPFAH("ACTION" | INACT+34* |
| DGPFAH("APPRVBY" | INACT+37* |
| DGPFAH("ASSIGNDT" | INACT+35* |
| DGPFAH("COMMENT" | INACT+38* |
| DGPFAH("ENTERBY" | INACT+36* |
| >> DGPFORIG("TIUTITLE" | TIULIST+35 |
| DGPNLIST | TIULIST+14~, TIULIST+24*, TIULIST+25, TIULIST+28, TIULIST+29, TIULIST+30, TIULIST+36, TIULIST+38, TIULIST+40, TIULIST+41 |
| DGRSLT | TIULIST+15~, TIULIST+21*, TIULIST+40*, TIULIST+43, GETLIST+18~, GETLIST+19*, GETLIST+21*, GETLIST+23, SCRNSEL+14~, SCRNSEL+16* , SCRNSEL+24*, SCRNSEL+26, SCRNDIV+25~, SCRNDIV+27*, SCRNDIV+36*, SCRNDIV+38 |
| DGSEL | SCRNSEL~, SCRNSEL+18, SCRNSEL+22, SCRNDIV~, SCRNDIV+29, SCRNDIV+32, SCRNDIV+33 |
| DGSTAT | INACT~, INACT+21 |
| DGSUB | INACT+18~, INACT+25*, INACT+27 |
| DGTIUIEN | TIULIST~, TIULIST+19, TIULIST+40 |
| DGUSER | INACT~, INACT+23, INACT+36, INACT+37 |
| DGX | TIULIST+16~, TIULIST+29*, TIULIST+30 |
| DGY | TIULIST+17~, TIULIST+29*, TIULIST+30*, TIULIST+35, TIULIST+36, TIULIST+37, TIULIST+38 |
| >> DIK | EVENT+15 |
| >> DIKJ | EVENT+15 |
| >> DIKLK | EVENT+15 |
| >> DIKS | EVENT+15 |
| >> DIN | EVENT+15 |
| >> DIU(0 | EVENT+15 |
| U | INACT+31, TIULIST+35, TIULIST+38, SCRNDIV+31 |
| >> XQORNOD(0 | TIULIST+35 |