Routine: DGPMVODS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

DGPMVODS ;ALB/MIR - ODS TRANSACTIONS FOR ADMIT AND DISCHARGE ; 16 JAN 91

Source Information

Source file <DGPMVODS.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
ODS	1	ADD^A1B2UTL
Registration	1	(ON,PT,PT1)^DGYZODS
VA FileMan	1	^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Registration	3	DGPMV DGPMV31 DGPMV33
Electronic Health Modernization	1	EHMDGPMV
ODS	1	A1B2ADM

Entry Points

Name	Comments	DBIA/ICR reference
NEW	;Determine if ODS software is on and, if so, make sure period of service is defined
ADM	;if operation desert shield admission, create an entry in the ODS ADMISSIONS file
DIS	;check for displace patients...create new entry if necessary

External References

Name	Field # of Occurrence
ADD^A1B2UTL	ADM+3, DIS+6
ON^DGYZODS	NEW+2
PT^DGYZODS	ADM+1
PT1^DGYZODS	DIS+4
^DIE	NEW+6, ADM+4, ADM+5, DIS+7, DIS+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Entry of Eligibility Code and Period of Service is required to continue.",! Line Location: NEW+4
Routine Call	DIE Line Location: NEW+6 ADM+4 ADM+5 DIS+7 DIS+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DGPM - [#405]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	ADM+2, DIS+2
^DGPM("APHY"	ADM+2
^DIC(21 - [#21]	NEW+3
^DIC(45.7 - [#45.7]	ADM+2
^DPT - [#2]	NEW+3

Naked Globals

Name	Field # of Occurrence
^(	NEW+3
^("ODS"	DIS+2
^(0	ADM+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A1B2DT	ADM+3, DIS+5
>> A1B2FL	ADM+3, DIS+5
DA	NEW+5, ADM+1~, ADM+3, ADM+5, DIS+1~, DIS+6, DIS+8*
>> DFN	NEW+3, NEW+5
>> DGODS	NEW+2, ADM+1, DIS+4
>> DGODSE	ADM+3, ADM+5, DIS+6, DIS+8
>> DGODSON	NEW+2*
DGODSPT	DIS+2*, DIS+3, DIS+9!
>> DGPMA	ADM+3, DIS+5
>> DGPMDA	ADM+2, ADM+5, DIS+2, DIS+8
DGSPEC	ADM+2*, ADM+6!
DIE	NEW+5, ADM+4, ADM+5, ADM+6!, DIS+1~, DIS+7, DIS+8*
>> DR	NEW+6, ADM+4, ADM+5, DIS+7, DIS+8*
>> Y	ADM+3, DIS+6