Routine: DGPMV331

Package	Total	Call Graph
Registration	5	NEW^DGPMV3 FAMT^DGPMV30 SET^DGPMV32 ASIHOF^DGPMV321 SPEC^DGPMV36
VA Fileman	2	^DIE ^DIK

Package	Total	Caller Graph
Registration	3	DGPMV321 DGPMV322 DGPMV33

Entry Points

Name	Comments	DBIA/ICR reference
CRXFR	;for FROM ASIH and CONTINUED ASIH (O.F.), create corresponding transfer
ASIH	;if admission type was TO ASIH...
UNDO	;delete discharge/transfer is time-out during transfer
Q
DEL	;delete the NHCU discharge if FROM ASIH - called from transfer, too
SPEC	;ask specialty on return?

Name	Field # of Occurrence
NEW^DGPMV3	CRXFR+3
FAMT^DGPMV30	CRXFR+1
SET^DGPMV32	UNDO+3
ASIHOF^DGPMV321	UNDO+3
SPEC^DGPMV36	SPEC+1
^DIE	ASIH+5, ASIH+6, ASIH+7, DEL+6, CRXFR+2, CRXFR+6, CRXFR+9
^DIK	DEL+4, UNDO+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,7,7,"Time-out during ASIH movement...now deleting discharge and transfer" Line Location: UNDO+1
Routine Call	DIE Line Location: ASIH+5 ASIH+6 ASIH+7 DEL+6 CRXFR+2 CRXFR+6 CRXFR+9

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.1 - [#405.1]	SPEC+1
^DGPM - [#405]	ASIH+1, ASIH+4, ASIH+5, DEL+1, DEL+2, DEL+4, DEL+5, CRXFR+4, CRXFR+6, CRXFR+7 , CRXFR+8, CRXFR+9, UNDO+3
^DGPM("APMV"	CRXFR+7, CRXFR+8
^DGPT - [#45]	ASIH+7, DEL+6
^UTILITY("DGPM"	ASIH+5, DEL+3, DEL+4, DEL+5, CRXFR+4, CRXFR+6, CRXFR+9, UNDO+2

Name	Field # of Occurrence
^(	CRXFR+7, CRXFR+8
^("A"	DEL+4*
^("P"	ASIH+5, DEL+4
^(0	ASIH+1, ASIH+4, CRXFR+7, CRXFR+8, UNDO+3, SPEC+1

Name	Field # of Occurrence
>> DA	ASIH+4, ASIH+5, ASIH+6, ASIH+7, DEL+1, DEL+2, DEL+4, DEL+6, CRXFR+2, CRXFR+6* , CRXFR+9, UNDO+2*
>> DFN	CRXFR+3, CRXFR+7, CRXFR+8
DG	ASIH+5!, ASIH+6!, ASIH+7!, DEL+6!, CRXFR+2!, CRXFR+6!, CRXFR+9!
DGFAC	CRXFR+1!
DGHX	CRXFR+1*, SPEC+1, SPEC+2!
>> DGMAS	CRXFR+1*
>> DGPM0ND	CRXFR+3*
>> DGPMA	ASIH+2, ASIH+3, ASIH+5, ASIH+7, CRXFR+1, CRXFR+3, CRXFR+5, UNDO+3
DGPMAA	ASIH+1*, ASIH+4, ASIH+7, Q!, DEL+1, DEL+3, DEL+6
DGPMAI	ASIH+1*, Q!, DEL+3, DEL+5, CRXFR+3, CRXFR+7, CRXFR+8
DGPMAN	ASIH+1, CRXFR+7, UNDO+3~*
DGPMCA	UNDO+3~*
>> DGPMDA	ASIH+6, CRXFR+2, UNDO+2
>> DGPMER	UNDO+1*
>> DGPMP	ASIH+3
>> DGPMT	DEL+7
DGPMXMT	Q!, CRXFR+6*, UNDO+2, SPEC+1
>> DGX	CRXFR+1, CRXFR+3, CRXFR+5, CRXFR+6
>> DIE	ASIH+5, ASIH+6, ASIH+7, DEL+6, CRXFR+2, CRXFR+6
>> DIE("NO^"	CRXFR+3, CRXFR+6
>> DIK	DEL+4, UNDO+2
DQ	ASIH+5!, ASIH+6!, ASIH+7!, DEL+6!, CRXFR+2!, CRXFR+6!, CRXFR+9!
>> DR	ASIH+5, ASIH+6, ASIH+7, DEL+6, CRXFR+2, CRXFR+6, CRXFR+8*
>> I	CRXFR+7, CRXFR+8
>> J	CRXFR+7, CRXFR+8
>> X	CRXFR+3, CRXFR+7, CRXFR+8*
>> Y	CRXFR+4, CRXFR+6, SPEC+1*