Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTSPQ

Package: Registration

Routine: DGPTSPQ


Information

DGPTSPQ ;ALB/MTC - PTF Utility Con; 5/18/05 ; 11/26/03 9:56am

Source Information

Source file <DGPTSPQ.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Scheduling 1 CL^SDCO21  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 5 DGPTF4  DGPTX53  DGPTX54  DGX5F5  DGX5F6  

Entry Points

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

External References

Name Field # of Occurrence
^DIE UP701+31
CL^SDCO21 CHQUES+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] CHQUES+19, CHQUES+26, 701+8, UP701+10

Label References

Name Line Occurrences
CHQ CHQUES+28
CHQUES 501+10

Naked Globals

Name Field # of Occurrence
^( UP701+10

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All