©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
DGNTUT ;ALB/RPM - Utility functions for N/T Radium Treatments ; 7/16/01 3:04pm
Source file <DGNTUT.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | $$GETCUR^DGNTAPI $$SITE^VASITE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHNGQ | ||
| CHANGE(DGDFN,DGNTN,DGENR) | ;Did the answers change?
; Input ; DGDFN - Patients DFN ; DGNTN("HNC") - Head/Neck Cancer Diagnosis "Y,N" ; DGNTN("NTR") - NTR Status code, "Y,N,U" ; DGNTN("AVI") - Aviator code, "Y,N" ; DGNTN("SUB") - Sub Training code, "Y,N" ; DGNTN("VER") - Verification method, "S,M,N" ; DGENR - Enrollment Z11 update [optional default=0] |
|
| STATUS(DGARR) | ;Determine if screening status is complete
; Input ; DGARR - result array of $$GETCUR^DGNTAPI |
|
| SITE(DGSITE) | ;Convert a station number into a pointer to the
; INSTITUTION file (#4). If called with a null parameter then ; the pointer to the INSTITUTION file (#4) of the primary site ; will be returned. |
|
| INTERP(DGINTR) | ;Create external status interpretation
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | SITE+12, SITE+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGARR | STATUS~ |
| DGARR("HNC" | STATUS+12 |
| DGARR("NTR" | STATUS+11 |
| DGARR("VER" | STATUS+13 |
| DGCHG | CHANGE+14~, CHANGE+26*, CHANGE+32, CHANGE+33*, CHANGE+34*, CHNGQ |
| DGDFN | CHANGE~, CHANGE+19, CHANGE+27 |
| DGENR | CHANGE~, CHANGE+25*, CHANGE+31 |
| DGIEN | CHANGE+15~, CHANGE+27*, CHANGE+28, CHANGE+34 |
| DGINT | INTERP+14~ |
| DGINT( | INTERP+15* |
| DGINT("HNC" | INTERP+20, INTERP+24 |
| DGINT("NTR" | INTERP+17 |
| DGINT("VER" | INTERP+18, INTERP+22 |
| DGINTR | INTERP~, INTERP+15 |
| DGINTRP | INTERP+12~, INTERP+16*, INTERP+19*, INTERP+21*, INTERP+23*, INTERP+25*, INTERP+26 |
| DGNTN | CHANGE~ |
| DGNTN( | CHANGE+33 |
| DGNTN("AVI" | CHANGE+22* |
| DGNTN("HNC" | CHANGE+20* |
| DGNTN("NTR" | CHANGE+21* |
| DGNTN("SUB" | CHANGE+23* |
| DGNTN("VER" | CHANGE+24*, CHANGE+31 |
| DGNTO | CHANGE+16~ |
| DGNTO( | CHANGE+33 |
| DGNTO("VER" | CHANGE+31 |
| DGRSLT | STATUS+8~, STATUS+10*, STATUS+14*, STATUS+16*, STATUS+18*, STATUS+20*, STATUS+21*, STATUS+22 |
| DGSITE | SITE~, SITE+11*, SITE+12, SITE+13*, SITE+15*, SITE+16*, SITE+17 |
| DGST | STATUS+9~ |
| DGST("HNC" | STATUS+12*, STATUS+19 |
| DGST("NTR" | STATUS+11*, STATUS+14, STATUS+15 |
| DGST("VER" | STATUS+13*, STATUS+17, STATUS+20, STATUS+21 |
| DGX | CHANGE+17~, CHANGE+32*, CHANGE+33, INTERP+13~, INTERP+15* |
| U | SITE+15 |