Routine: IBDUTIL1

Information

IBDUTIL1 ;ALB/SS - GENERIC UTILITIES ;16-AUG-11

Name	Comments	DBIA/ICR reference
UPDWD(IBDFILE,IBDIENS,IBDFLD,IBDFLG,IBDARR)	;
INSREC(IBDFILE,IBDIEN,IBDZFDA,IBDRECNO,IBDFLGS,IBDLCKGL,IBDLCKTM,IBDNEWRE)	;*/
INSREC01(IBDFILE,IBDIEN,IBDVAL01,IBDRECNO,IBDFLGS,IBDLCKGL,IBDLCKTM,IBDNEWRE)	;*/
MULTFLDS(IBDFILEN,IBDIEN,IBDVALAR,IBDFLAG)	;
SINGLFLD(IBDFILEN,IBDFLDNO,IBDIEN,IBDVAL,IBDFLAG)	;
FREETEXT(IBDPROM,IBDMXLEN)	;*/
YESNO(IBDPROM,IBDDFLT,IBDOPT,IBDTMOUT)	;EP
FILLFLDS(IBDFILNO,IBDFIELD,IBDIEN,IBDNEWVL)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: "OKAY" Line Location: IBDUTIL1+20
Function Call: WRITE	Prompt: $$INSREC^IBDUTIL1(357.6,"",.ZZ,"") Line Location: UPDWD+26
Function Call: WRITE	Prompt: $$INSREC01^IBDUTIL1(366.14,"",IBDATE,"") Line Location: INSREC+25
Function Call: WRITE	Prompt: $$INSREC01^IBDUTIL1(357.6,"","ZZ TEST","") Line Location: INSREC+26
Function Call: WRITE	Prompt: $$INSREC01^IBDUTIL1(9002313.77,"",55555555,45555,,,,1) Line Location: INSREC+28
Function Call: WRITE	Prompt: $$INSREC01(366.141,345,"SUBMIT","") Line Location: INSREC+33
Function Call: WRITE	Prompt: $$INSREC01(366.141,345,"SUBMIT",23) Line Location: INSREC+35
Function Call: WRITE	Prompt: $$INSREC01(366.1412,"55,234","INS","") Line Location: INSREC+41
Function Call: WRITE	Prompt: !!,"This response must have no more than "_IBDMXLEN_" characters" Line Location: FREETEXT+13
Function Call: WRITE	Prompt: !,"and must not contain embedded uparrow.",! Line Location: FREETEXT+14
Function Call: WRITE	Prompt: $$FILLFLDS^IBDUTIL1(357.1,.01,227,"AA SHAVKAT DIAGNOSIS") Line Location: YESNO+24