Routine: OCXSEND1

Information

OCXSEND1 ;SLC/RJS,CLA - BUILD RULE TRANSPORTER ROUTINES (Get List of Objects to Transport) ;2/01/01 09:06

Name	Comments	DBIA/ICR reference
S	;
GETREC(OCXFILE)	;
ADDON	;
ADDREC(FILE,REC)	;
DELREC(FILE,REC)	;
GETFILE()	;
CNT(OCXFILE)	;
DIC(OCXDIC,OCXDIC0,OCXDICA,OCXX,OCXDICS,OCXW)	;

Name	Line Occurrences
Function Call: READ	Variable: OCXX Timeout: DTIME Line Location: GETREC+8
Function Call: WRITE	Prompt: !!,OCXDIAG Line Location: GETREC+8
Function Call: WRITE	Prompt: " <timeout>",$C(7) Line Location: GETREC+8
Function Call: WRITE	Prompt: !!,"None Selected for transport" Line Location: GETREC+13
Function Call: WRITE	Prompt: !!,"Already selected for transport:" Line Location: GETREC+14
Function Call: READ	Variable: OCXD0 Timeout: DTIME Line Location: GETREC+20
Function Call: WRITE	Prompt: !,$P(^OCXS(FILE,0),U,1)," --> ",$P($G(^OCXS(FILE,REC,0)),U,1)," added to list." Line Location: ADDREC+8
Function Call: WRITE	Prompt: !,OCXNAME," removed from list." Line Location: DELREC+6
Function Call: READ	Variable: OCXX Timeout: DTIME Line Location: GETFILE+6
Function Call: WRITE	Prompt: !!,OCXDIAG Line Location: GETFILE+6
Function Call: WRITE	Prompt: " <timeout>",$C(7) Line Location: GETFILE+6