©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
DGPTSPQ ;ALB/MTC - PTF Utility Con; 5/18/05 ; 11/26/03 9:56am
Source file <DGPTSPQ.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHQ | ||
| 701 | ;-- This is the input transform logic for the following questions
; for the <701> PTF record: AO, IR, EC, MST, NTR ; Process: Check if the desired indicator was answered on a <501>. ; changed 6/17/98 for MST enhancement ; INPUT DGFLAG - 1=AO, 2=IR, 3=EC, 4=MST, 5=NTR, 6=CV, 7=SHAD |
|
| UP701 | ;-- This function will loop thru the <501> and determine if any
; of the SC, AO, IR, EC, MST, NTR, CV, and SHAD questions have been ; answered. If so, the cooresponding <701> will be updated. ; An answer of "yes" will take presidence. |
|
| CHQUES | ;-- This function will determine if the patient has any of the
; following indicated : AO, IR, EC, MST, NTR ; If so the array DGEXQ will contain: ; DGEXQ(1)="" - AO ; DGEXQ(2)="" - IR ; DGEXQ(3)="" - SW Asia Conditions/EC ; DGEXQ(4)="" - MST ;added 6/17/98 for MST enhancement ; DGEXQ(5)="" - NTR ;treatment for Head/Neck CA ; ;ONLY if (#28.11) Nose Throat Radium entered ; DGEXQ(6)="" - CV ;treatment for possible combat related ; ;condition ; DGEXQ(7)="" - SHAD ;treatment for Project 112/SHAD ; Otherwise they will be undefined. ; This routine is called from the PTF input templates. ; The following variables are defined: ; DGHOLD : Movemnent record before any changes been made. ; DGPTF : PTF Record Number. ; DGMOV : PTF Movement Number (optional) |
|
| UPQ | ||
| 501 | ;-- This is the input transform logic for the following questions:
; AO, IR, EC, MST, NTR ; Process: Make sure that the conditions are indicated before ; allowing data to be entered. If the indicators are ; not present and the question was answered, DGER ; will be set to 1. ; INPUT : DGFLAG - Field to check ; DGER - DGER error code |
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | CHQUES+19, CHQUES+26, 701+8, UP701+10 |
| Name | Line Occurrences |
|---|---|
| CHQ | CHQUES+28 |
| CHQUES | 501+10 |
| Name | Field # of Occurrence |
|---|---|
| ^( | UP701+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | CHQUES+19, 701+8, UP701+30*, UP701+31! |
| DA(1 | CHQUES+19 |
| >> DFN | CHQUES+22 |
| DGAO | UP701+7~, UP701+8*, UP701+14* |
| DGCV | UP701+7~, UP701+8*, UP701+24* |
| DGEC | UP701+7~, UP701+8*, UP701+18* |
| >> DGER | 501+9*, 501+11*, 701+6*, 701+8* |
| DGEXQ | 501+8~ |
| DGEXQ( | 501+11 |
| DGEXQ(1 | CHQUES+30* |
| DGEXQ(2 | CHQUES+32* |
| DGEXQ(3 | CHQUES+34* |
| DGEXQ(4 | CHQUES+36* |
| DGEXQ(5 | CHQUES+38* |
| DGEXQ(6 | CHQUES+40* |
| DGEXQ(7 | CHQUES+42* |
| >> DGFLAG | 501+11, 701+8 |
| DGHOLD | CHQUES+18~, CHQUES+19*, CHQUES+22 |
| DGIR | UP701+7~, UP701+8*, UP701+16* |
| DGMOV | CHQUES+26, UP701+7~, UP701+10*, UP701+12, UP701+14, UP701+16, UP701+18, UP701+20, UP701+22, UP701+24 , UP701+26 |
| DGMST | UP701+7~, UP701+8*, UP701+20* |
| DGNTR | UP701+7~, UP701+8*, UP701+22* |
| >> DGPTF | CHQUES+26, UP701+10, UP701+30 |
| DGSC | UP701+7~, UP701+8*, UP701+12* |
| DGSHAD | UP701+7~, UP701+8*, UP701+26* |
| DIE | UP701+30*, UP701+31! |
| DR | UP701+29*, UP701+31! |
| I | 701+5~, 701+8*, UP701+7~, UP701+10* |
| SDCLY | CHQUES+18~, CHQUES+19*, CHQUES+22, CHQUES+28 |
| SDCLY(1 | CHQUES+26!, CHQUES+30 |
| SDCLY(2 | CHQUES+26!, CHQUES+32 |
| SDCLY(4 | CHQUES+34 |
| SDCLY(5 | CHQUES+36 |
| SDCLY(6 | CHQUES+38 |
| SDCLY(7 | CHQUES+40 |
| SDCLY(8 | CHQUES+42 |
| U | CHQUES+22, CHQUES+26, 701+8, UP701+12, UP701+14, UP701+16, UP701+18, UP701+20, UP701+22, UP701+24 , UP701+26 |