Routine: DGPMUTL

Information

DGPMUTL ;ALB/MJK - SELECT PATIENT MOVEMENT FOR PATIENT ; 3/24/90 1PM ;

Source file <DGPMUTL.m>

Package	Total	Call Graph
VA Fileman	2	^%DT IX^DIC

Package	Total	Caller Graph
Registration	5	DGPMGLG3 DGPTFCR DGRUGC ^DGPM DGBLRV
Dietetics	1	FHMMNADM
Integrated Billing	1	IB20PT81
Scheduling	1	SCRPW41

Name	Comments	DBIA/ICR reference
EN	; -- sets DIC and DIC(0) before calling DFN (* FOR MAS USE ONLY *) ; input: DFN ; All desired DIC variables except DIC and DIC(0) ; output: Y, X, DTOUT, DUOUT as defined by FM documentation for ^DIC
PTF(DGPTF)	; -- determine ward at discharge ; o called by WARD AT DISCHARGE(c) field in PTF file ; input: DGPTF := ifn of ptf file
DFNQ
WARDQ
DIC	;
DFN	; -- select mvt for DFN patient (* FOR MAS USE ONLY *) ; input: DFN ; All desired DIC variables ; output: Y, X, DTOUT, DUOUT as defined by FM documentation for ^DIC
WARD	; -- determine ward at discharge ; o called by WARD AT DISCHARGE(c) field in pt mvt file ; input: D0 := d/c ifn of pat. mvt. file	ICR #152 Status: Retired Usage: Private

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($D(DIC("A")):DIC("A"),1:"Select Movement for "_$P(X,"^")_": ") Line Location: DFN+6
Function Call: WRITE	Prompt: DIC("B")_"// " Line Location: DFN+6
Function Call: READ	Timeout: DTIME Variable: X Line Location: DFN+7
Routine Call	DIC Line Location: DIC+2

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	WARD+6, WARD+8, PTF+6
^DGPM("APMV"	WARD+8
^DGPM("APTF"	PTF+6
^DIC(42 - [#42]	WARD+8
^DPT - [#2]	DFN+5

Name	Field # of Occurrence
>> %	DIC+1*
%DT	DFN+11*!
CA	WARD+5~, WARD+7*, WARD+8
D	DFNQ!, DIC+2*
D0	WARD+6, PTF+5~, PTF+6*
DFN	DFN+5, DIC+2, WARD+5~, WARD+7*, WARD+8
DGPTF	PTF~, PTF+6
>> DIC	EN+5*
>> DIC("A"	DFN+6
>> DIC("B"	DFN+6, DFN+8
>> DIC(0	EN+5, DIC+1
DTIME	DFN+7
>> DTOUT	DFN+7*, DFN+11, DFN+12
>> DUOUT	DFN+9*
IDT	WARD+5~, WARD+8*
M	WARD+5~, WARD+6, WARD+7, WARD+8
MVT	WARD+5~, WARD+8*
U	WARD+6, WARD+7, WARD+8, PTF+6
>> X	DFN+5, DFN+6, DFN+7, DFN+8, DFN+9, DFN+10, DFN+11, WARD+5, WARD+8
>> Y	DFN+5, DFN+7, DFN+9*, DFN+11, DFN+12