DGPTSPQ ;ALB/MTC - PTF Utility Con; 5/18/05 ; 11/26/03 9:56am
Source file <DGPTSPQ.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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) |
|
| CHQ | ||
| 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 |
|
| 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. |
|
| UPQ |
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | Classic Fileman Calls |
