Routine: IBINI023

Information

IBINI023 ; ; 21-MAR-1994

Source file <IBINI023.m>

Name	Comments	DBIA/ICR reference
Q

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"Maximum length for this entry is now ",$S(IBLNGX="":59,$P(^IBE(350.71,DA,0),U,3)="P":$P(IBLNGX,U,3),1:$P(IBLNGX,U,2))," characters.",! Line Location: Q+64

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