129 8.3 "3D1" - Potentionally Recursive Found 8.3.1 Waiver for Recursion in COMLSTK Routine: COMLSTK ^COMLSTK ; THREADS FLOW OF EACH ROUTINE ; 26-JUN-1985 ; RCR ! EXIT ! INIT ! START ! ! NEXTREF ! ! ! GETPR ! ! ! ! RECURS ! ! ! ! ! ^COMERR ; REPORT HANDLER ; 28-JUL-85 ; RCR ! ! ! ! STEPR ! ! ! LOADBF ! ! +-NEXTREF < STRUCTURE PREVIOUSLY DEFINED > < RECURSIVE AT THIS > ^2 <** 3D1 Potentially Recursive Block Found **> NEXTREF^COMLSTK This routine provides a structured label walk for the routine last processed. In to not have the process limited by the depth of call, the routine was written as recursive. NEXTREF provides a linkage to the next level of call within the stored relational reference structure, COM("LREF",label,label1).
129 8.3 "3D1" - Potentionally Recursive Found 8.3.1 Waiver for Recursion in COMLSTK Routine: COMLSTK ^COMLSTK ; THREADS FLOW OF EACH ROUTINE ; 26-JUN-1985 ; RCR ! EXIT ! INIT ! START ! ! NEXTREF ! ! ! GETPR ! ! ! ! RECURS ! ! ! ! ! ^COMERR ; REPORT HANDLER ; 28-JUL-85 ; RCR ! ! ! ! STEPR ! ! ! LOADBF ! ! +-NEXTREF < STRUCTURE PREVIOUSLY DEFINED > < RECURSIVE AT THIS > ^2 <** 3D1 Potentially Recursive Block Found **> NEXTREF^COMLSTK This routine provides a structured label walk for the routine last processed. In to not have the process limited by the depth of call, the routine was written as recursive. NEXTREF provides a linkage to the next level of call within the stored relational reference structure, COM("LREF",label,label1).
COMPLY.docx