Routine: IBINI07B

Information

IBINI07B ; ; 21-MAR-1994

Source file <IBINI07B.m>

Name	Comments	DBIA/ICR reference
Q

Name	Line Occurrences
Function Call: WRITE	Prompt: " Admission Date: ",Y,@("$E("_DIC_"%I,0),0)") Line Location: Q+28
Function Call: WRITE	Prompt: " ",$P($G(^DPT(+$P($G(^DGPM(+$P(Y,U,2),0)),U,3),0)),U) Line Location: Q+32

Name	Field # of Occurrence
$T(Q+I	IBINI07B+2
$T(Q+I+1	IBINI07B+2